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,22 
523 
52^ 
525 
525 
527 
528 
529 
530 
531 
532 
533 
53^ 

535  002670 

536  002670 

537  002674 

538  002700 

539  002704 

540  002706 

541  002710 

542  002714 
545  002716 

544  002720 

545  002722 

546  002724 

547  002726 
548 

549  002730 

550  002736 

551  002742 

552  002746 

553  002754 
554 

555 
556 

557  002756 

558  002760 

559  002762 

560  002766 

561  0C2770 

562  002772 

563  002774 

564  003000 


005067     176532 

005067     176530 

016500     00001 OG 

001423 

005001 

012703     001070' 

006000 

103417 

00520-' 

006200 

103414 

001374 

112763  000135     Mim 

162703  001041' 

010367  176460 

012767  001041'    176454 
000207 


010102 

006302 

016202     000036' 

112223 

112223 

112223 

112723     C00054 

000747 


.SBTTL  GETURM  -  GET  UNIBUS  RUN  MASK 

••»  -  GETURM  -  GET  UNIBUS  RUN  MASK 

INPUTS: 

R5  =  ADDRESS  Of   CONTROLLER   TEMPLATE 

OUTPUTS: 

CNTBLK+6  =  UNIBUS  RUr;  MASK  (MAYBE; 
R0-R3  =  DESTROYED 


GETURM: 


10$: 


20$ 


FOUND 


^C$: 


CLR 

CNT8LK+6 

ASSUME  NO  URM 

CLR 

CNTBLKtIO 

•  >  • 

MOV 

C.PRM+10(R5),R0 

GET  THE  URM 

BEQ 

20$ 

IF  EQ,  NONE 

CLR 

R1 

INITIALIZE  COUNT  (CLEAR  C-BIT) 

MOV 

«URMVAL,R3 

POINT  TO  OUTPUT  BUFFER 

ROR 

RO 

GET  FIRST  RUN  MASK 

BCS 

30$ 

IF  CS,  UBA  PRESENT 

INC 

R1 

INCREMENT  COUNT 

ASR 

RO 

CHECK  IF  NEXT  BUS  RUN  PRESENT 

BCS 

30$ 

IF  CS,  YES 

BNE 

10$ 

IF  NE,  MORE  TO  DO 

MOVB 

#'J,-1(R3; 

SET  END  OF  RUN  MASKS 

SUB 

*URM,R3 

CALCULATE  LENGTH  OF  SIRING 

MOV 

R3. CNTBLK+6 

STORE  LENGTH  OF  STRING 

MOV 

#URM,CNT8LK+10 

AND  ADDRESS  OF  STRING 

RETURN 

RUN  MASK 

MOV 

R1,R2 

COPY  CURRENT  COUNT 

ASL 

R2 

•  CONVERT  TO  A  WORD  INDEX 

MOV 

URMrSL(R2),R2 

■  GET  ADDRESS  OF  BUS  NAME 

MOVB 

CR2)+,(R3)t 

■  STORE  BUS  NAME 

MOVB 

(R2)+,(R3)+ 

',        >  •  > 

MOVB 

(R2)+,(R3)+ 

MOVB 

#<',>, (R3)+ 

;  PLUS  DELIMETER 

BR 

10$ 

;  AND  GE!  NEXT 

C  1 
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SHOLOG  -  LIST  LOGGING  OPTIONS 
LOCAL  DATA 


97 
98 
99 

100 

101 

102 

103  000000 

lOA  000044 

105  000112 

106  000166 

107  000207 

108  000230 

109  000246 

110  000262 
111 

112  000264 

113 

114  0U0267 

115 

116  000276 

117 

000302 


S  2 
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11 

119 

120 

121  000312 

122  000313 

123  000314 

124  000315 

125  000316 
126 

127 
128 

129  000322 

130  000324 

131  000326 

132  000330 


000002 
002 
012 
012 
012 
012 
040 
040 
117 

000002 
117 

000003 
115 

000007 
106 

000004 
103 

000007 


000001 
000002 
C00004 
000000 


103 
114 
113 
040 
Oil 
040 
040 
156 

146 

157 

151 

157 


106 
157 
156 
040 
116 
123 
105 


146 
156 
154 
156 


.SBTTL  LOCAL  DATA 


**** 
LOCAL 


ERRSUP: 

HEADR; 

HEADR1: 

SNKMSG: 

NOINFO; 

STAMSG: 

EVTMSG: 

ON: 

Off: 

MONITR 

FILE: 

CONSLE 


BITNUM 
FLAGS: 
PREVNT 
STATE: 
MSG8LK 


DA1A 

.ENABL 

EXSERR 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

ONL  =  .-i 

.ASCII 

OFFL=. 

.ASCII 

MONL=. 

.ASCII 

FILEL= 

.ASCII 

CONL=. 

.EVEN 

.BLK8 

.BLKB 

.BLKB 

.BLKb 

•  BLKW 


_LC 

<EX$ERR>/CFE  --  Euent  logging  not  supported/ 

<12>/Louging  characteristics  as  of  5!V  !!3Z/ 

<12>/Kn6nn  logging  characteristics  as  of  H  Ji3Z/ 

<12>/  Logging  =  !VA/ 

<12>/   No  information/ 

/  State  =  XVA/ 

/  Events  =/<12> 

/On/ 
ON 

/Off/ 
-OFF 

/Moni  tor/ 
-MONITR 

/File/ 
.-FILE 

/Console/ 
-CONSLE 


SINK  TYPE  TABLE 


SNKT8L: 


.WORD 
.WORD 
.WORD 
.WORD 


FF.CON 
FF.FJL 
FF.MON 
0 


BIT  NUMBER  FOR  EVENT  MASKS 

FLAGS  BYTE  FOR  DISPLAYING  EVENT  MASKS 

STORAGE  FOR  PREVIOUS  EVENT  TYPE 

LOGGING  STATE  WORD 

MESSAGE  ARGUMENT  BLOCK 


LAGGING  CONSOLE 
LOGGING  FILE 
LOGGING  MONITOR 
END  OF  TABLE 


C  2 
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B  3 

SHOLOG     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:26     PAGE  3 

MACRO  CROSS  REFERENCE  CREF   OA.OO 

MACRO  NAME      REFERENCES 

EPRINT  #A-86 

ERRORS  #4-75  7-191 

PRINT^  #4-70  7-206  7-246  8-282  9-309  10-329  10-376 


C     3 

F1LE«MD"SH0M0D 
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XPRCUG  -  SHOW  MODULE  X25-PROTOCOL  GROUP 


^61 
^62 
463 
464 
A65 
466 
467 
468 
469 
470 
471 

472  002774 

473  002774 

474  003000 

475  003002 

476  003004 

477  003012 

478  003014 

479  003016 

480  003020 

481  003022 

482  003030 

483  003032 

484  003040 

485  003042 

486  0C3050 

487  003052 

488  003060 

489  003062 

490  003070 

491  003072 

492  003076 

493  003102 

494  003106 

495  003112 

496  003114 
497 

498 
499 

500  003132 

501  003136 

502  003142 

503  003150 

504  003152 

505  003160 

506  003166 

507  0031^2 

508  003176 

509  003200 
510 


.SBTTL  XPRCUG  -  SHOW  MODULE  X25-PR0T0C0L  GROUP 
**♦  XPRCUG  -  SHOW  MODULE  X25-PROTOCOL  GROUP 
INPUT 


OUTPUT 


$CUG  =  PARSED  GROUP  ID  STRING 
CUGSDF  TEMPLATE(S) 

THE  GROUP  CHARACTERISTICS  ARE  DISPLAYED. 


012705 
011505 
001476 
122765 
001372 
010504 
011404 
001767 
122764 
001763 
122764 
001366 
032767 
001010 
026764 
001356 
026764 
001352 
012700 
016420 
016420 
016420 
010502 
C62702 
000005 


OOOOOOG 
OOOOOOG  OOOOOOG 

0000006  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000002G  000002G 

000000' 
OOOOOOG 
000002G 
OOOOOOG 

OOOOOOG 


XPRCUG: 


10$: 


20$: 


30$: 


012720  000001 

012720  002022' 

132764  OOOOOOG  OOOOOOG 

001406 

012740  000013  177774 

012760  002007'  177776 

012703  001170' 

004767  000634 

000707 

000207 


35$: 


40$: 


MOV 

MOV 

BEQ 

CMPB 

BNE 

MOV 

MOV 

BEQ 

CMPB 

BEQ 

CMPB 

BNE 

BIT 

BNE 

CMP 

BNE 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

.REPT 

MOV 

.ENDR 

MOV 

MOV 

Bra 

I'iOV 

MOV 

MOV 

CALL 

BR 

RETURN 


POINT  TO  TEMPLATE  LISTHEAD 
GET  NEXT  TEMPLATE 
IF  EQ,  END  OF  LIST 
;  TEST  TEMPLATE  TVPE 
IF  NE,  NOT  DTE  'EMPLATE 
SCAN  CUGS  FOR  THIS  DTE 
NEXT  TEMPLATE 

IF  EQ,  NO  MORE  CUGS,  THIS  DTE 
;  IS  THIS  THE  NEXT  DTE  ? 
IF  EQ,  YES 

;  IS  IT  A  GROUP  TEMPLATE? 
IF  NE,  KEEP  LOOKING 
KNOWN  GROUPS  ? 
IF  NE,  YES 
COMPARE  NAMES 
IF  NE,  NEXT  TEMPLATE 
$CUGt2,C$U\-M+2(R4);  COMPARE  NAMES 
20$  ;  IF  NE,  NEXT  TEMPLATE 

#CUG6K,R0       ;  POINT  TO  ARGUMENT  BLOCK 
C$UNAM(R4),CR0)+;  COPY  GROUP  NAME 
C$UNAM+2(R4),(R0)+  ;   ... 
C$UCUG(R4),(R0)+;  GROUP  NUMBER 

COPY  TEMPLATE  POINTER 

POINT  TO  DTE  NAME 


#$TMLST,R5 

(R5),R5 

40$  , 

#CS.DTE,C.STS(R5) 

10$ 

R5,R4 

(R4),R4 

10$  , 

#CS.DrE,C.STS(R4) 

10$ 

#CS.CUG,C.STS(R4) 

20$ 

#XP.KNG,$0PRND  ; 

30$ 

$CUG,C$UNAM(R4)  ; 

20$ 


R5.R2 

#D$TADR,R2 
5 
(R2)*,(R0)t 


COPY  RAD50  DTE  ID  STRING 


#8LANKL,(R0)t  ;  ASSUME  NOT  TYPE  BILATERAL 

#BLANK,(R0)+  ;  NEED  BLANK  FOR  $EDMSG  QUIRK 

*CU$BIL,C$UFLG(R4)      ;  CHECK  TYPE 

35$  ;  IF  EO,  PRINT 

#TYP8L,-4(R0)  ;  ELSE  TYPE  =  BILATERAL 

#TYPB,-2(R0)  ;   ... 

#CUGFT,R3  ;  POINT  TO  FORMATTING  TABLE 

PRINT  ;  FORMAT  AND  PRINT  THE  INFORMATION 

20$  ;  CONTINUE 


C  4 
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MOVQPT   -   SET    UP  OPTIONAL    PARAMETERS 
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901 
902 
90? 
90^ 
905 
906 
907 
908 
909 
910 
9^1 
912 
913 
9K 
915 
916 

917  O0A632 

918  O0'i632 

919  004634 

920  004636 

921  004640 

922  &04642 

923  004644 

924  004646 

925  004650 

926  004654 

927  004656 

928  004662 
929 

930 


.S8TTL  MOVOP"   SET  UP  OPTIONAL  PARAMETERS 
**  MOVOPT  -  SET  UP  OPTIONAL  PARAMETERS 
INPUT 


OUTPUT 


CALL 


REGISTERS 


012402 

060502 

012401 

012223 

005301 

003375 

012401 

032465  OOOOOOG 

001402 

050167     173130 

000204 

000001 


MOVOPT: 


10$: 


20$: 


MOV 
ADD 
MOV 
MOV 
DEC 
BGT 
MOV 
BIT 
BEO 
BIS 
RTS 

.END 


R5 
R3 


TEMPLATE  ADDRESS 
ARGUMENT  BLOCK  POINTER 


THE  PARAMETER  BLOCK  IS  SET  UP.  IF  THE  OPTION 

'S  PRESENT  IN  THE  TEMPLATE  IT  UILL  BE  SET  IN  THE 

PRINT  OPTIONS  WORD. 


JSR 
.WORD 


R4, MOVOPT 

OFFSET, WORDCOUNT, PRINT  OPTION, TEMPLATE  OPTION 


R1  AND  R2  ARE  CORRUPTED. 


(R4)  + 

R2 

R5,R2 

(R4)  + 

Rl 

(R2)  + 

(R^) 

+ 

R1 

10$ 

(R".)  + 

,R1 

(R4)  + 

,C.ST 

S(RS) 

20$ 

R1, OPTION 

R4 

GET  OFFSET  OF  DATA  FIELD 

POINT  TO  DATA 

GET  COUNT 

MOVE  DATA 

COUNT  DOWN 

UNTIL  DATA  MOVED  TO  ARGSLK 

GET  PRINT  OPTION 

WAS  IT  SELECTED  IN  TEMPLATE 

IF  EQ,  NO 

ELSE    SEI ECT    FOR   PRINTING 


"1 
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MACRO  DEFINITIONS 
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91 
92 
93 
94 
95 

96  000000 

97  000046 

98  000124 

99  000142 

100  000160 

101  000205 

102  000264 
103 

104  000266 

105 

106 

107 

103  000276 
109  000502 


,■  LOCAL  MTA 


012 
012 
012 
040 
040 
C40 
^17 

000002 
103 

000007 


120 
113 
120 
040 
040 
040 
156 

154 


162 
156 
162 
123 
115 
115 


HEADR: 

HEADRl 

PROMSG 

01MSG 

02MSG 

03MSG 

ON; 


BEX 

<12>/Process  characteristics  as  of  5!Y  !£3Z/ 
<12>/Knnwn  processes  characteristics  as  of  XY  7,51/ 
<12>/Prjcess  =  XR/ 


i45  CLEAR: 


.NLIST 
.ENABL 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.a:ciz 

.ASCIZ 

.ASCII 

ONL=.-ON 

.ASCII  /Cleared/ 

CLEARL-. -CLEAR 

.EVEN 


/  State  =  !!VA/ 
/  Maximum  lines  = 
/  Maximum  lines  = 
/On/ 


W/ 

J!M,  Maximum 


-rot lers 


%M/ 


MSG8LK:  .BLKU   2 
.PSECT 


MESSAGE  ARGUMENT  BLOCK 


C  6 
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*SHREM  -  SHOW  REMOTE  CHARACTERISTICS 


284  0006A6 

012702 

000334' 

25$: 

MOV 

#MS18LK,R2 
C.ADD(r5),R1    ; 

285  000652 

016501 

000010 

MOV 

286  000656 

004767 

000334 

CALL 

PUTADR 

287  000662 

012701 

000252' 

MOV 

#P4N0D,R1 

288  000666 

016522 

000004 

MOV 

C.NAM(R5),(R2)+  ; 
C.NAM+2(R5),(R2)+ 

289  00C672 

016522 

00000b 

MOV 

290  000676 

012700 

OOOOOOG 

30$: 

MOV 

#$BUFF,R0 

291  000702 

012702 

000334' 

MOV 

#MS18LK,R2 

292  000706 

004767 

OOOOOOG 

CALL 

SEDMSG 

293  000712 

112720 

000040 

35$: 

M0V8 

#40,(R0)+ 

294  000716 

120027 

00001 7G 

CMP8 

R0,#$BUFFtNAMC0L 
35i 

295  000722 

003773 

BLE 

296  000724 

012701 

00026T 

MOV 

*N0DNM,R1       ; 

297  000730 

004767 

OOOOOOG 

CALL 

$EDMSG 

298  000734 

PRINT 

#$BUFF 

299  000744 

004767 

000276 

CALL 

GETDLL 

300  000750 

301 

302 

000713 

BR 

10$ 

■  EiNID 

OF  TEMPLATES  FOUND 

303 

304  000752 

005700 

40$: 

TST 

RO 

305  000754 

001004 

d'JE 

50$ 

306  000^56 

032767 

OOOOOOG 

OOOOOOG 

dIT 

#WC.NOD,$WILD 

307  000764 

001401 

BEQ 

101$ 

308  000766 

309 

310 

511 

312  000770 

000207 

50$: 

RETURN 

;•  ERROR  CONDI  TIGMS 

101$: 

ERRORS 

#ERRN0D        ; 

3i3  001000 

000207 

RETURN 

POINT  TO  MESSAGE  BLOCK 
GET  THE  NODE  ADDRESS 
USE  PHASE  4  STYLE  ADDRESS 
POINT  AT  INPUT  STRING  TABLE 
STORE  THE  REMOTE  NAME 

POINT  At'oUTPUT  BUFFER 
POINT  AT  ARGUMENT  LIST 
FORMAT  NODE  ADDRESS 
TAB  OVER  ... 


POINT  AT  CONTROL  STRING  FOR  NAME 

fORMA''  NAME 

PRINT  THE  MESSAGE 

PRINT  DOWNL'NE  LOAD  DATABASE 

CONTINUE 


WERE  ANY  OBJECTS  FOUND  ? 

IF  NE,  YES  ..  OKAY 

WAS  THIS  A  WILD  CARD  SPECIFICATION 

IF  EQ,  NO  ..  REMOTE  NOT  FOUND 

RETURN  TO  CALLER 


FAILED  TO  FIND  REMOTE  TEMPLATE 
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ATTCDICTTrC 


SHOREM     CREATED  BY  MACPO  OM  29-JUN-85  AT  05:27 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 


B  8 

PAGE  5 

CREF   OA.OO 


TM 
Ta 


CONER 


GX 


#4-219 
4-220 

#4-224 
8-481 


#4-219 

#4-222 

4-224 


4-219 
#4-222 


#4-219 
4-222 


4-219 
#4-222 


#4-220 
4-222 


#4-220 
#4-223 


4-220 
#4-223 


#4-220 
4-223 


SHOREM 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:27 
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TMPBUF  -  PARSE  BUFFER  DEFINITIO  MACRO  V05.03b  Saturday  29-Jun-85 
Table  of  contenti 


B  9 

05:28 


■;-  56  MACRO  DtFlNITIOMS 

5-  92  LOCAL  DATA 

6-  135  TPARS  STATE  TABLES 

7-  19^  STMBUF  -  BUILD  BUFFER  TEMPLATE 

8-  23A  SETCBN  -  SET  TO  CHANGE  NUMBER 

9-  265  SETCBS  -  SET  CCB  SIZE 

10-  295  SETRBN  -  SET  RDB  NUMBER 

11-  328  SETRBS  -  SET  RDB  SIZE 

12-  359  SETSBN  -  SET  SDB  NUMBER 

13-  388  SETSBS  -  SET  SDB  SIZE 

'4-  418  SETTHR  -  SET  RDB  THRESHOLD 
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IMPBUf  - 
SETTHP  - 

4A9 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 


PARSE  BUFFER  DEFINITIO  MACRO  V05.03b  Saturday  29-Jun-85 
SET  RDB  THRESHOLD 


V^ 


8  Page  15 


SE 


.SBTTL 
♦«  UPDALC 
INPUTS 
OUTPUT 


UPDALC: 

CALL 
ADD 
ADC 
ADD 


UPDALC   ■■  UPDATE  ALLOCATION 

-  UPDATE  ALLOCATION 

R0,R1   VALUES  TO  BE  MULTIPLIED 

THE  MULTIPLIED  VALUE  IS  APPLIED  TO 

THE  DOUBLE  PRECISION  BLOCK  AREA  MINIMUM 


$MUL 

R1,$6L<MN 
$BLKMNt2 
R0,$t^KMN+2 


MULTIPLE  EM  OUT 
UPDATE  LOW  ORDER 
AND  HIGH  ORDER 


000001 


RETURN 
.END 
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TMPCHN 
SETLO  - 

202 
205 
204 
205 
206 
207 
208 
209 
210 
211 
212 
2^3 
2K 
215 
216 
217 
218 
219 


-  OARSE  OUTGOING  CHANNEL  MACRO  V05.03b  Saturday  29-Jun-85  05:28  Page 
SET  LOW  END  OF  CHANNEL  RANGE  IN  TEMPLATE 


.5STTL 
.SBTTL 


SETLO 
SETHI 


SET  LOW  END  OF  CHANNEL  RANGE  IN  TEMPLATE 
SET  HIGH  END  OF  CHANNEL  RANGE  IN  TEMPLATE 


OOOIAA 
000164 


000001 


•»  SETLO  -  SET  LOW  END  OF  CHANNEL  RANGE  IN  TEMPLATE 
»«  SETHI  -  SET  HIGH  END  OF  CHANNEL  RANGE  IN  TEMPLATE 

INPUTS:       .TPARS  CONVENTIONS. 

OUTPUT:       CHANNEL  NUMBER  SET  IN  TEMPLATE. 

SETLO:   SGTNUM  *C$HL0,#1 ,*4095 . 
SETHI:   IGTNUM  #C$HHI ,#1 ,*4095 . ,#CH$HI 

.END 
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SETPRl  -  SET  THE  PRIORITY 


242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 


.SBTTL   SETPR]  -  SET  THE  PRIORITV 

*•»  -  SETPR!  -  SET  THE  CONTROLLER  PRIORITY 

THIS  ACTION  ROUTINE  CHECKS  THE  CONTROLLER  PRIORITV  TO  MAKE  SURE  IT  IS  VALID 
AND  STORES  IT  IN  THE  TEMPLATE. 


INPUT; 


.PNUMB  =  PRIORITV 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


000222 

000222  016700  177552 

000226  016760  OOOOOOG  000012 

000234  022767  000004  OOOOOOG 

000242  101004 

000244  022767  000006  OOOOOOG 

000252  103002 

000254  062716  000002 

000260  000207 


SETPRl: 


MOV 

MOV 

CMP 

BHI 

CMP 

BHI5 

10$: 

ADD 

20$: 

RETURN 

THE  PRIORITV  IS  STORED  IN  C.PRI  OF  THE  TEMPLATE. 


TEMP,RO  ;  GET  START  OF  TEMPLATE 

.PNUMB.C.PRHRO)  ;  STORE  THE  PRIORITY  IN  THE  TEMPLATE 

#4,.PNUMB  ;  IS  THE  PRIORITY  IN  RANGE  ? 

10$  ;  IF  HI,  NO  -  REJECT 

#6,.PNUMB  ;  IS  IT  STILL  IN  RANGE  ? 

20$  ;  IF  HIS,  VES  -  OKAY 

#2,(SP)  ;  ELSE,  REJECT  THE  TRANSITION 


C  12 

TMPCNT  -  PARSE  CONTROLLER  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:29  Page  11 

cCTiifiM    -    <;FT    tuf    lIMIHliC;    RliM    MA<;k 


8  13 

IMPruG  -  PARSE  CLOSED  USER  GROU  MACRO  V05.05b  Saturday  29-Jun-85  05:29  Page  7-1 
SFTflG  -  SET  FLAGS  BYTE 

2^9        000001  .END 


C  13 

TMPCUG  -  PARSE  CLOSED  USER  GROU  MACRO  V05.03b  Saturday  29-Jun-85  05:29  Page  7-2 
Svmhnl  f^blp 


TMPDDM  -  PARSE  DEVICE  PROCESS 
SETPRl  -  SET  THE  PRIORITY 


231 
232 
233 
23A 
23S 
236 
237 
233 
239 
2A0 
2^1 
2A2 
2A5 
2AA 
2A5 
246 
2A7 
2A8 
2A9 
250 
251 
252 
253 
25A 
255 


B  U 
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.S8TTL   SETPRl  -  SET  THE  PRIORITY 

«♦♦  -  StTPRI  -  SET  THE  PROCESS  PRIORITY 

THIS  ACTION  ROUTINE  CHECKS  THE  DDM  PRIORITY  TO  MAKE  SURE  IT  IS  VALID 
AND  STORES  IT  IN  THE  TEMPLATE. 


SE 


INPUT r 


.PNUMB  =  PRIORITY 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 


OUTPUT: 


THE  PRIORITY  IS  STORED  IN  C.PRl  OF  THE  TEMPLATE. 


OOOUO 

OOOKO  016700  177636 

OOOKA  016760  OOOOOOG  000010 

000152  022767  OOOOOA  OOOOOOG 

000160  lOlOOA 

000162  022767  000006  OOOOOOG 

000170  103002 

000172  062716  000002 

000176  000207 


SETPRl: 


10$: 
20$: 


Ml.V 

MOV 

CMP 

BHI 

CMP 

BHIS 

ADD 

RETURN 


TEMP,RO 

. PNUMB, C.PRKRO) 

#A,. PNUMB 

lOi 

*6,.fNUMB 

20i 

#2,(SP) 


GET  START  Of  TEMPLATE 
;  STORE  THE  PRIORITY  IN  THE  TEMPLATE 
IS  THE  PRIORITY  IN  RANGE  ? 
IF  HI,  NO  -  REJECT 
IS  IT  STILL  IN  RANGE  ? 
IF  HIS,  YES  -  OKAY 
ELSE,  REJECT  THE  TRANSITION 


c  u 

TMPDDM  -    PARSE   DEVICE   PROCESS   D  MACRO  V05.03b   Saturday   29-Jun-85   05:30     Page   10 
SFTNI  T    -    qTORF    NIIMRFR    OF    LINE    TABLES 


Tf 
Sf 


SETLUS  - 

169 
170 
171 
172 
173 
17A 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 
192 


§  15 
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NUMBER  OF  LOGICAL  LINKS  PROCESS  SHOULD  SUPPORT 


000056 
000056 
000062 
000070 
00007^ 
000076 
000102 
00010'. 
000110 


.S8TTL   SETLKS  -  NUMBER  OF  LOGICAL  LINKS  PROCESS  SHOULD  SUPPORT 
'«»♦  -  SETLKS  -  SETUP  NUMBER  OF  LOGICAL  LINKS 

THIS  ACTION  ROUTINE  SETS  UP  THE  NUMBER  OF  LOGICAL  LINKS  FOR  THIS  PROCESS. 
INPUT: 


.PNUMB  =  NUMBER  OF  LOGICAL  LINKS 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT 


THE  NUMBER  OF  LOGICAL  LINKS  ARE  STORED  IN  C.LKS  OF  THE  TEMPLATE 


016700 
016760 
005767 
001003 
105767 
0OUO2 
062716 
000207 


177716 

OOOOOOG  000010 
OOOOOOG 

000001G 

000002 


SETLKS: 


10$: 
20$: 


MOV 

MOV 

TST 

BNE 

TSTB 

BEQ 

ADD 

RETURN 


TEMP.RO 

. PNUMB, C.LKS(RO) 

.PNUMH 

10$ 

.PNUMBtl 

20$ 

*2,(SP) 


GET  START  OF  TEMPLATE 
;  STORE  THE  NUMBER  OF  LOGICAL  LINKS 
IS  IT  ONLY  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  IT  A  BYTE  VALUE  ? 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 


C  15 

TMPDEC  -  CFE  PARSE  DEC$DF  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:30  Page  8 
SETNDC  -  NUMBER  OF  NODE  COUNTERS 


B  16 

TMPDEC  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:31  PAGE   ? 

SYMBOL    CROSS   REFERENCE  CREF        04.00 

SYMBOL      VALUE  REFERENCES 

11    -91  11-295  12-317  12-320  13-312  13-315  11-368  11-371  15-393 

PNUMH     =   ......     GX  7-137^  8-215®  9-211^  10-267  11-293  12-318  13-513  11-369  15-391 

16-120  17-116 

.IPARS     =   ......     GX  6-163 


C  16 
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GETSLT   -   GET    THE   LOADING    INFORMATION   CO-ROUTINE 


Page  9 


566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 

586  003002 

587  003002 

588  00300A 

589  003010 

590  0030K 

591  003020 
592 

593 
59A 

595  003022 

596  003026 

597  003032 

598  003036 
599 

600 
601 

■2  0030A2 
oU3  003050 

604  003052 

605  003056 

606  003060 

607  003062 

608  003070 

609  003072 

610  003100 

611  003102 

612  003110 

613  003112 
t^'-,  003120 
6i'^  003122 

616  003130 

617  003136 

618  003144 

619  003152 

620  003160 

621  003166 

622  003174 


011646 
010566 
016705 
004767 
103573 


010567 
005067 
005067 
005067 


032765 
001462 
012700 
011000 
001446 
122760 
001372 
026760 
001366 
026760 
001362 
026760 
001556 
052767 
016067 
016567 
01 '.067 
016067 
016067 
016067 
000410 


.SBTTL      GETSLT   -   GET   THE   LOADING   INFORMATION   CO-ROUTINE 

♦**   -  GETSLT   -   GET   THE    LOADING   INFORMATION   CO-ROUTINE 

THIS    CO-ROUTINE    IS   CALLED  UNTIL   A  C-BIT    IS   SET.    THIS    CO-ROUTINE   RETURNS 
TRIBUTARY   STATUS    INFORMATION  FOR   EACH   TRIBUTRARY. 


NOTE 


THIS  CO-ROUTINE  USES  R5  AS  TEMPORARY  STORAGE, 
ROUTINE  MUST  NOT  DESTROY  R5. 


THEREFORE  THE  CALLING 


INPUTS: 

SDVNAM 


LINE  DESCRIPTOR  BLOCK 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

STABLK  =  THE  LINE  STATE  ARGUMENT  BLOCK 

X2PSLX  =  X.25  LEVEL  2  PARAMETERS  (IF  LINE  REQUIRES  X.25  LEVEL  2) 


000002 
175062 
OOOOOOG 


175050 
176430 
176430 
176426 


GETSLT: 

MOV 

MOV 

MOV 

CALL 

BCS 

FOUND  IT  :  I 


10$: 


MOV 
CLR 
CLR 
CLR 


(SP),-(SP) 

R5,2(SP) 

CURSLT,R5 

SFNSLT 

60$ 


R5,CURSLT 
STA8LK+4 
STABLKtIO 
STABLK+12 


MOVE  RETURN  ADDRESS  UP  ON  STACK 

SAVE  R5 

POINT  AT  CURRENT  SLT 

FIND  THE  NEXT  SLT  TEMPLATE 

IF  CS,  NOT  FOUND 


save  current  slt  address 
assume  point  to  point  line 

;;;  must  zero  the  address 


IF  LINE  NEEDS  LEVEL  2,  GET  PARAMETERS 


OOOOOOG  OOOOOOG  15$: 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOCPG  OOOOOOG 

000002G  000002G 

000004G  000004G 

000020  174750 
OOOOOOG  17633C 
OOOOOOG  176324 
OOOOOOG  1^6326 
OOOOOOG  176322 
OOOOOOG  176316 
OOOOOOG  176312 


20$: 


BII 

BEQ 

MOV 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

3IS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BR 


#LF.X2P 

30$ 

#$TMLST 

(RO),RO 

25$ 

#CS.X2P 

20$ 

$DVNAM 

20$ 

$DVNAMt 

20$ 

$DVNAMt 

20$ 

#0P.X2P 

X$2HB7> 

S$LCTT( 

X$28SZ( 

X$2WSZ( 

Xi2RTC( 

X$2RTT( 

30$ 


S$LFLG(R5 
,R0 

,C.STS(R0S 
X$2LIN(R0' 
2,X$2LIN+^ 
4,X$2LIN+4 

DSPOPT  ; 

R0),X2PBLK 
R5),X2PBLK 
RG),X2PBL2 
RO),x2FGl2 
R0),X2P8L3 
R0),X2P3L3 


);  TEST  FOR  LEVEL  2 
IF  EQ,  NOT  X25  OR  KMX 
POINT  TO  TEMPLATE  LISTHEAD 
POINT  TO  NEXT  TEMPLATE  "N  LIST 
IF  EQ,  NO  LEVEL  2  TEMPLATE 
;  IS  THIS  A  LEVEL  2  TEMPLATE 
IF  NE,  KEEP  LOOKING 
;  IS  THIS  THE  RIGHT  LEVEL  2  TEMPLATE 


IF  NE 
(RO)  ; 

IF  NE 
(RO)  ; 

IF  NE 


NO 


DOES  THE  CONTROLLER  MATCH 

KEEP  LOOKING 
DOES  THE  UNIT  MATCH  ? 
KEEP  LOOKING 
SELECt  OPTIONAL  DISPLAY 
;  Gf  HOLDBACK  TIMER 
^;  COUNTER  TIMER 
;  MAX  DATA 
+2  ;  MAX  WINDOW 

RETRANSMl  COUNT 
+2';  RETRANSMIT  TIMER 


D  1 
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SHOLOG   - 
LOCAL    SV 


LIST    LOGGING  OPTIONS 
MBOL    DEFINITIONS 


C  2 


I3A 
135 
1?6 
13? 
138 
139 
1A0 

i;i 

1A2 
U5 

145 

K6 

1A7 

V,8 

U9 

150 

151 

152 

153 

15A 

155 

156 

157  000040 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

\f 

1/0  000004 

171 

172  C00332 

173 


000000 
000002 

000004 
000006 
000016 


000100 


000001 
000CO2 
000004 


000012 
000011 
000055 
000054 
000056 


000000 


000004 


000020 


00OOC4 
000005 
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.SBTTL   LOCAL  SYMBOL  DEflMTlOMS 
LOCAL  SYMBOL  DEFINITIONS 


MSKLEN  =  64. 

FLAGS  BIT  DEFINITIONS 

F.STRT  =  1 
F.P.iEV  =  2 
F.NINF  =  4 

ASCII  CHARACTER  DEFINITIONS 

CR  =  12 
TAB  =  ' 
DASH  =  '- 
COMMA  =  ' , 
PERIOD  =  '. 

DEFINE  EVENT  TEMPLATE 


NUMBER  OF  BITS  IN  EVENT  MASKS 


FORMATTING  HAS  BEEN  STARTED 

PREVIOUS  BIT  WAS  SET 

NO  INFORMATION  FOUND  FOR  SINK  TYPE 


C.CLS 
C.EVT 
C.SNK 
C.LEN=. 


.ASECT 

.=0 

.8LKW 

.BLKW 

TMPL0C= 

.BLKU 

.BLKW 

.8LKW 


DEFINE  LOGGING  STATE  TEMPLATE 


.=TMPLOC 
C.STA:   .8LKB   1 
C.LN1=. 

.PSECT 


C.LNK 
C.STS 

EVENT  CLASS 
EVENT  MASKS 
SINK  TYPE 


LOGGING  STATE 
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NnArTCOiCTir  c 


C  3 


F1LE<*ID««SH0M0D 


ssssssss 

HH 

HH 

000000 

MM 

MM 

000000 

DDDDDDDD 

ssssssss 

HH 

HH 

000000 

MM 

MM 

000000 

DDCDDDDD 

ss 

HH 

HH 

00 

on 

MMM^ 

MMMM 

00 

00 

DD      DD 

ss 

HH 

HH 

00 

no 

MMM^ 

MMMM 

OU 

00 

5D      DD 

ss 

HH 

mH 

00 

on 

MM 

IM  MM 

OU 

00 

DD      DD 

ss 

HH 

HH 

00 

no 

MM 

1M  MM 

00 

00 

DD      DD 

ssssss 

HHHHHHHHHH 

00 

00 

MM 

MM 

UO 

00 

DD      DD 

SSSS55 

HHHHHHHHHH 

00 

00 

MM 

MM 

00 

00 

DD      DD 

ss 

HH 

HH 

00 

nn 

MM 

MM 

00 

00 

DD      DD 

SS 

HH 

HH 

00 

nn 

MM 

MM 

OU 

00 

DD      DD 

ss 

HH 

HH 

00 

nn 

MM 

MM 

uu 

00 

DD      DD 

ss 

HH 

HH 

00 

nn 

MM 

MM 

00 

00 

DD      DD 

ssssssss 

HH 

HH 

000000 

MM 

MM 

000000 

DDDDDDDD 

ssssssss 

HH 

HH 

000000 

MM 

MM 

000000 

DDDDDDDD 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLLLl  ' 

LLLLLLLLlL 


ssssssss 

rrTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

ssssssss 

ssssssss 
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SHOMOD  -  LIST  MODULE   CHARACTERI   MACRO  V05.03b   Saturday  29-Jun-85  05:26     Page    II 
SSHXAC   -   SHOW  MODULE    X25-ACCESS 


512 
513 
5^ 
5-5 
516 
517 
518 
519 
520 

521  003202 

522  005202 

523  003206 

524  003212 

525  003216 

526  003222 

527  003226 

528  003232 

529  003240 
530 

531 
532 
533 

534  003244 

535  003254 

536  003264 

537  C03274 
538 


.SBTTL  SSHXAC  -  SHOW  MODULE  X25-ACCESS 
»*  SSHXAC  -  SHOW  MODULE  X25-ACCESS 
INPUTS        SOPRND  =  TYPE  OF  REQUEST 
OUTPUT       X25-ACCESS  PARAMETERS  OUTPUT. 


012705 
012704 
012724 
012724 
016703 
042703 
012767 


0C3634' 
003636' 
003636' 
000000 


003244' 

OOOOOOG 

000012 

001674' 

OOOOOOG 

OOOOOOC 

177777  174552 


000000  000017 
OOOOOOG  000017 
COOOOCj  000022 


SSHXAC: 


MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
MOV 
CALLR   DISPAT 


POIMT  TO  DISPATCH  TABLE 
POINT  TO  ARGUMENT  BLOCK 
MODULE  IS  X25-SERVER 


#XACDTB,R5 

#SHDRBK,R4 

#XACL,(R4)+ 

#XAC,(R4)t 

SOPRND, R3       ;  GET  REQUEST  TYPE 

#*C<XA.DSTiXA.KND>,R3    ;    CLEAR  DONT    CARE   BHS 

#-1, OPTIONS     ;  WANT  ALL  OUTPUT 


DISPATCH  TO  ROUTINE 


DISPATCH  TABLE 


.NLIST  BEX 

XACDTB:  .WORD  XACCHA,  0,      CHARL, 

.WORD  SHOXAD,  XA.D3T,  CHARL, 

.WORD  SHOXAD,  XA.KND,  KDSTL, 

.WORD  0 

.LIST  BEX 


CHAR    ;  CHARACTERISTICS 

CHAR    ;  DESTINATION 

KDST    ;  i-NOWN  DESTINATIONS 
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Symbol  table 


Page  22-1 


BLANf; 

BLAM<;l  = 

CriAR 

CHARL  = 

CHNBLK 

CHNBND= 

CHNBUF 

CHNHDR 

CHtHI  = 

CS.CHN= 

CS.CUG= 

CS.DST= 

CS.DTE= 

CS,LLC= 

CS.MSK= 

CS.NUM= 

CS.RDT= 

CS.?HI= 

CS.SLO= 

lS.UNI= 

CS.VAL= 

CS.X29= 

CS.X3P= 

CUGBK 

CUGBi 

CUGB2 

CUGFT 

CUGMl 

CUGM2 

CU$BIL= 

CSHLO  = 

C$L'CUG= 

C$UFLG= 

C$UNAM= 

C.STS  = 

DA$CUG= 

DISPAT 

DSTBK 

DSTB1 

DSTBIO 

0STB2 

DSTB3 

D5TB4 

DSTB5 

DSTB6 

.  ABS. 


n  ***** 

****** 


002022R 
0OOCO1 
001720R 
000017 
0011 01 R 
000130R 
000034R 
00106AR 
******  GX 
******  GX 
*««<**  GX 
******  GX 
»***.*  GX 
**«<**  GX 
******  GX 
******  GX 
«».**♦  GX 
GX 
GX 
GX 

«*♦♦♦*  GX 
******  GX 
*♦♦«**  GX 
OOOOOOR 
OOOOOOR 
000004R 
0011 70R 
001116R 
00il3AR 
******  GX 
*«•***  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
003750R 
OOOOOOR 
OOOOOOR 
000062R 
OOOOOAR 
00001 2R 
000024R 
000030R 
000032R 


000000 
00A66m 

argblK  000110 

Erro'-s  detected: 


DSTB7 
OSTFT 
DSTM1 
DSTM10 
0STM2 
DSTM3 
DSTMA 
DSTM5 
DSTM6 
DSTM7 
5S.CHI= 
OS.CLO= 
DS.ruG= 
DS.MSK= 
[)S.NUM= 
DS.OPT= 
DS.VAL= 
DIEBK 
DTEB1 
DTEB2 
DTEB3 
DTEFT 
DTEM1 
DTEM2 
DTEM3 
002  DTYPF 
D$ACUG= 
D$ANUM= 
D$ASHI= 
D$ASL0= 
D$CMSK= 
D$CVAL= 
D$SNAM= 
D$SOBJ= 
D$SPRI= 
D$STSK= 
D$STYP= 
0$TADR= 
D$TCT  = 
D$THSH= 
002  D$TLIN= 
002  0$TS'-A= 
002  ERRRtC 
002  EX$ERR= 
'"    FL.MTP= 


002 
002 


0UO03AR 

00n3?R 

001266h 

001505R 

001312R 

001350R 

001367R 

00UO5R 

00K33R 

0OU62R 

000100 

000040 

000020 

000200 

cooon 

000770 

000400 

OOOOOOR 

OOOOOOR 

00001 2R 

000020R 

001046R 

00072';r 

000740R 

001001R 

C00010R 

****** 

****** 

****** 

****** 


00c 
002 
002 


002 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

1001 30R 

000002 

******  GX 


****** 


****** 


****** 


002  FL.MJX= 
FL.TRS= 
FMTLN2 
F"'TRNM 
FMTRN1 
FMTSRN 
FMTSR1 
FMT2R5 
Hl/RMSG 
HDHPRT 
KCUG 
KCUGL  = 
KDST 
KDSTL  =■■ 
KDTE 
KDTEL  = 
KNOWN 
002  Li'NBUF 
002  LINHDR 
002  L$CNT  = 
002  L$LCrM= 
L$LNAM= 
L$NAM  ^ 
LSTRI  = 
L$UNT  = 
MOVOPT 
NOINF 
OBUF 
OPTION 
PRCHBK 
PRCHB1 
PRCH82 
PRCH83 
PRCHSA 
PRCHB5 
PRCHB6 
PRCHFT 
PRCHM1 
PRCHM2 
PRCHM3 
PRCHM4 
PRCHM5 
PRCHM6 
PRINT 
PRICHlJ 


000 
001 
002 
0 


(rw,i,gbl,abs,ovr) 
(rw,],lcl,rel,ccn) 
(rw,d,lcl,rel,ovr; 


Asiembler  str-.tistics 


Wu  ^  file  reads: 
Work  tile  .vrites: 
Si're  0*  irfcrK  *i  le: 


0 
0 
9311  Words  (■  37  Pages) 


******  GX 

******  GX 

004126R 

000255R 

000250R 

000265R 

000275R 

000300R 

000213R 

OOOOOOR 

001773R 

OOOOU 

001737R 

000022 

001 761 R 

000012 

000006R 

000034R 

000002R 


****** 


****** 

****** 

004632R 

000171R 

000004R 

000012R 

OOOOOOR 

OOOOOOR 

000004R 

000010R 

OOOOHR 

00002CR 

000024R 

000672R 

000304R 

000555R 

000430R 

000500R 

000554R 

000624R 

004032R 

002560R 


P$SNAM= 
P$SPOR= 
R$DNAM= 
SCRBLK 
SHCDST 
SHOXAD 
SPCDST 
TYPB 
TYP8L  = 
XAC 

XACCHA 
XACDTB 
XACL  = 
XAD8K 
XADBl 
XADFT 
XADM1 
XA.DST= 
XA.KND= 
XPR 

XPRCHA 
XPRCUG 
XPRDTB 
XPRDTE 
XPRL  = 
XP.CUG= 
XP.DTE= 
XP.KND= 
XP.KNG= 
002  XSV 
002  XSVC8K 
002  XSVCB1 
002  XSVCFT 
002  XSVCHA 
002  XSVCM1 
002  XSVDTB 
XSVL  = 
XS.DST= 
XS.KND= 
X$3CT  = 
X$3DFP= 
X$3DW  = 
X$3KM  = 
XS3KT  = 


******  GX 

******  GX 

******  GX 

0000'4R 

004252R 

003636R 

002024R 

002007R 

000013 

001674R 

003634R 

003244R 

000012 

OOOOOOR 

OOOOOOR 

001640R 

001574R 

******  GX 

******  GX 

001646R 

0021 56R 

002774R 

002104R 

002326R 

OOOOU 

******  GX 

******  GX 

******  GX 

******  GX 

001662R 

OOOOOOR 

OOOOOOR 

001260R 

003400R 

001202R 

0033A6R 

000012 


****** 
****** 


GX 
GX 

******  GX 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 


X$3MW  = 
X$3MXP= 
X$3RM  = 
X$3RT  = 
X$3SM  = 
X$3ST  = 
X$9CT  = 
X$9MXC= 
X29 

X29CHA 
X29DTB 
X29L  = 
X9.DST= 
002  X9.KND= 
002  $BUFF  = 
$CBTA  = 
$CFERR= 
$CUG  = 
$C5TA  = 
$DST  = 
SDTE  = 
$EDMSG= 
$FI  AGS= 
$HDRBK= 
$OPRND= 
$PRINT= 
$PSIPT= 
SSHXAC 
SSHXPR 
SSHXSV 
002  $SHX29 
002  $TMLST= 
$$BASE= 
$$OBIT= 
$$TTXO= 
$$TTX1= 
$$TT1  = 
$$TT10= 
$$TT2  = 
$$TT3  = 
$$TTA  = 
$$TT5  = 
$$TT6  = 
$$TT7  = 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

001706R 

003566R 

003534P 

000012 

******* 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

003202RG 

0020A2RG 

003276RG 

00346''*RG 

******  GX 

OOOOOOR 

000004 

000001 

000002 

000002 

000013 

000003 

000005 

000002 

000001 

000001 

000013 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
6X 
GX 
GX 
GX 


002 
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SSHPRO  -  SHOW  PROCESS  CHARACTERISTICS 


111 
112 
113 

lis 

116 

117 

118 

119 

120 

121 

122 

123  000302 

12A  000302 

125  000306 

126  0003U 

127  000316 

128  C00322 

129  000326 

130  000332 

131  000336 

132  0O03A6 
133 

134 

1  7r 

136  000352 

137  00035A 

138  000360 

139  000362 
UO 

141 
142 

143  000364 

144  000370 

145  000374 

146  00040C 

147  C00404 
1'8  000410 

000420 
000424 
000430 

152  000436 

153  000444 

154  000446 

155  000452 

156  000460 

157  000464 

158  000470 

159  0004  74 

160  000504 

161  000510 

162  000512 

163  000520 
16<. 

165 
;66 
167  000=^22 


1 
150 
151 


.SBTTL  SSHPRO  -  SHOW  PROCESS  CHARACTERISTICS 
'*»*  -  SSHPRO  -  SHOW  PROCESS  CHARACTERISTICS 
INPUT: 


'SPRNAM  =  THE  PROCESS  NAME  (  ZERO  FOR  "KNOWN  PROCESSES'  ) 


OUTPUT: 


THE  CHARACTERISTICS  fOR  THE  PROCESS  IS  DISPLAYED. 


012701 
032767 
001402 
012701 
0i2700 
012702 
004767 


000000' 
OOOOOOG  OOOOOOG 

000046' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


SSHPRO: 


5S: 


012705      OOOOOOG 


MOV 

BIT 

BEQ 

MOV 

MOV 

MOV 

CALL 

PRINT 

MOV 


*HEADR,R1 

#WC.NAM,SWILD 

5S 

#HEADR1,R1 

#$8UFF,R0 

#$GT8UF,R2 

SEDMSG 

#S8UFF 

#STMLST,R5 


010500 
004767 
103517 
010005 


012702 
016512 
012700 
012701 
004767 

01270' 
012712 
012762 
032765 
001005 
012712 
012762 
012700 
012701 
004767 

012702 
005012 
122:^65 
001015 


SEARCH  FOR  THE  PROCESS  NAME 


OOOOOOG 


10$: 


MOV 
CALL 
BCS 
MOV 


R5,fi0 
SFNPRO 
60S 
R0,R5 


DISPLAY  THE  CHARACTERISKS 


001276' 

OOOC04 

OOOOOOG 

000124' 

OOOOOOG 

000276' 
000002 

000264'  000002 
OOOOOOG  000006 

000007 

000260'  000002 

OOOOOOG       30S: 

000142' 

OOOOOOG 

000276' 

OOOOOOG  OOOOOOG 


MOV  #MSG8LK,R2 

MOV  C.NAM(R5),(R2) 

MOV  *$BUFF,RO 

MOV  #PR0MSG,R1 

CALL  SEDMSG 

PRINT  #SBUFF 

MOV  *MSGBLt.,R2 

MOV  #0NL,(R2) 

MOV  #0N,2(R2)      , 

BIT  #ZF. MFL,C.FLG(R5) 

BNE  30$ 

MOV  *CLEARL,(R2; 

MOV  /l'CLEAR,2(R2) 

MOV  #SBUFF,RO 

MOV  #01MSG,R1 

CALL  SEDMSG 

PRINT  *$8UFF 

MOV  *MSG8L<,R2 

,lft  (R2) 

CMPB  *CS.LLC,C.STS(R5 

BNE  50$ 


156512  000014 


LLC  LINE  TABLE  CCUN' 

BIS8         C.NLT(R5),'R2) 


ASSUME   ONLY   1    PROCESS 

FOR  ALt    PROCESSES    ? 

IF    EO,    NO   ..    OKAY 

ELSE,  DIFFERENT  HEADER 

POINT  AT  OUTPUT  BUFFER 

POINT  AT  ARGUMENT  SLOCK 

FORMAT  THE  HEADER 

PRINT  HEADER 

GET  START  OF  TEMPLATE  LIST 


COPY  CURRENT  TEMPLATE  ADDRECS 
FIND  THE  NEXT  PROCESS 
IF  CS,  NO  MORE 
SAVE  NEW  TEMPLATE 


POINT  R2  AT  ARGUMENT  BLOCK 
STORE  THE  PROrESS  NAME 
POINT  RO  AT  OUTPUT  BUFFER 
POINT  Rl  AT  INPUT  STRING 
EDIT  JK    STRING 
PRINT  THE  LINE 
POINT  R2  M  ARGUMENT  BLOCK 
ASSUME  PROCESS  IS  ON 

]"]S   PROCESS  ON  ? 
IF  NE,  YES  ..  OKAY 
ELSE,  MUST  BE  CLEARED 

GET  THE  INPUT  STRING 

POINT  Rl  AT  THE  FORMAT  STRING 

EDIT  THE  STRING 

PRIN"  "HE  STRING 

POINT  A.T  ARGUMENT  BLOCK 

GET  I  INF  TABLE  COUNT  WITHOUT  SIGN  EXTEND 

;  IS  TH.S  AN  LLC  PROCESS  ? 

IF    NE,    NO   ..    LDM/DLC 


GET   LINE    TABLE    COUNT 
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tSHRt'M  -  SHOW  REMOTE  CHARACTERISTICS 


Page  5 


315 

+ 

316 

***   - 

EXENOD 

317 

318 

INPUTS: 

319 

NONE. 

320 

321 

OUTPUTS: 

322 

INFORM/ 

323 

32A 
525 

326  001002 

~ 

EXENOD: 

327   001002 

012702 

000334' 

MOV 

328  001006 

016701 

OOOOOOG 

MOV 

329  001012 

00-', '67 

000200 

CALL 

330  001016 

012701 

000252' 

MOV 

331   001022 

016722 

OOOOOOG 

MOV 

332  001026 

016722 

0000023 

MOV 

333  001032 

012700 

OOOOOOG 

MOV 

33A  001036 

012702 

000334' 

MOV 

335  0010^2 

004767 

OOOOOOG 

CALL 

336  001046 

1-2720 

000040 

35$: 

Move 

337  001052 

120027 

00001 7G 

CMP8 

338  001056 

003773 

BLE 

339  001060 

012701 

000265' 

MOV 

340  001064 

004767 

OOOOOOG 

CALL 

341    001070 

PRINT 

342  001100 

000207 

RETURN 

EXENOD   -   PRINT   EXEruTOR  NODE    INFORMATION 


#MS18LK,R2 

$NTADD,R1 

PUTADR 

#P4N0D,Rl 

$NTNAM,(R2)t 

$NTNAMt2,(R2)+ 

#$8UFF,R0 

/yflSIBLICRZ 

SEDMSG 

*40,(R0)t 

R0,#$8UFF<-NAMCOL 

35$ 

#EXENM,R1 

$EDMS6 

#$eUFF 


AND  AT  ARGUMENT  BLOCK 

GtT  EXEC  ADDRESS 

PUT  PHASE  4  ADDRESS 

USE  AREA  FORMAT  NODE  ADDRESS 

AND  THE  NODE  NAME 

PoInT  at  OUTPUT  BUFFER 
AND  AT  ARGUMENT  BLOCK 
FORMAT  IHE  STRING 
TAB  OVER  ... 


EXECUTOR  NODE  FORMATTING  STRIN 

FORMAT  IT 

PRINT  THE  MESSAGE 
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SHQREM     CREhTED  Bf 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  05:27 


PAGE 
CREF 


MACRO  NAME 

REFERENCES 

ASL$ 

#^-10^ 

10-611 

10-619 

ASR$ 

#A-10A 

Di  LDAT 

#A-28 

4-208 

4-209 

4-211 

4-220 

4-222 

4-223 

4-224 

EPRINT 

#4-78 

ERRORS 

#4-67 

4-312 

PRINT 

#4-60 

4-298 

5-341 

6-372 

RESRG 

#4-104 

9-497 

10-638 

SAVRG 

#4-'04 

9-494 

10-634 

10-63 

C  8 

04.00 

4-212 
6-375 


4-213 


8-454 


4-215  4-217  A-21S 


-478 


4-219 


•»FILE'»ID««SHOSYS 
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9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
t,0 
Al 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 
50 
51 
52 
53 
SA 


.TITLE   TMP8UF  -  PARSE  BUFFER  DEFINITION  IN  CETA8 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  Of  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  Of  THf  SOfTWARE  IS  HEREBY 
TRANSfERRED. 

THE  INFORMATION  IN  THIS  SOfTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  fOR  THE  USE  OR  RELIABILITY  Of  ITS 
SOfTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  BUffER  DEFINITION 


DISTRIBUTED  SYSTEMS  SOfTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

A.  00     07-N0V-83 

DECNET-MM  VA.O 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  VA.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  Vl.O 
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Symbol  table 
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BUFKTB 

BUFSTB 

CS.BUF= 

C.CBNM 

r.CBSZ 

C.LEN  = 

C.RBNM 

C.RBS2 

C.SBNM 

C.SBSZ 

C.STS  = 

C.THSH 

HICBNM 

.  ABS. 

tSTATE 

SUTAB 

$KSTR 


000000R6 

OOOOOORG 

•«•••*  GX 

OOOOOA 

000006 

000022 

000010 

000012 

000014 

000016 

•»•«»*  GX 

000020 

000004R 

000022 
000506 
000060 
000000 
000000 


003  HICBSZ 
002  HIRBNM 
HIRBSZ 
HISBSZ 
HITHSH 
LOCBNM 
L0CBS7 
LORBNM 
LORBSZ 
LDSBNM 
LOSBSZ 
LOTHSH 


000010R 
OOOOUR 
000020R 
000026R 
000C32R 
000002R 
000006R 
00001 2R 
00001 6R 
000022R 
000024R 
000030R 


SETCBN 

000134R 

SET  CBS 

000176R 

SETRBN 

000234R 

SETR8S 

000306R 

SETS8N 

0O0350R 

SETSBS 

OOOAOAR 

SETTHR 

000';42R 

TEMP 

OOOOOOR 

$ALPHA= 

000022 

$ANY  = 

000020 

$8LANK= 

000006 

$CC8NM= 

»****•  GX 

$D1GIT= 

$DNUMB= 

$EOS  = 

$ERROR= 

SEXIT  = 

$FAIL  = 

$LAMDA= 

$LIMT6 

$MINSB= 

$NUMBR^ 

$RAD50= 

$RDBNM= 


GX 


00002A 
OOOOU 
000012 

000000 
■[77717 
000000 
000002RG 
******  GX 
000002 
000016 
******  GX 


$RDBSZ= 

****** 

GX 

$SDBNM= 

*♦**»* 

{.X 

$STRNG= 

000004 

$SURXP= 

000010 

$TAL0C= 

****** 

GX 

$THRSH= 

****** 

GX 

STMBUF 

000034RG 

$$$FLG= 

M7777 

$$$KEY= 

\77777 

$$$STA= 

000000 

.PNUMB= 

****** 

GX 

.TPARS= 

****** 

GX 

Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,A85,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CONJ) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


•*♦  Assembler  statistics 


Work  file  reads: 
Work  tile  writes: 
Size  of  work  f i le: 
Size  of  core  pool : 
Operating  system: 


0 

0 

10633  Words 

14440  Words 

RSX-llM/PLUS 


(  42  Pages) 
(  55  Pages) 


SY?TMPBUF  !v2;[132?°34]TMPBUF/CR/-SP  =  SY:[l  J  ]RSXMCf«t.SML/ML,[1 30,  llODNETL  IB/ML,  [132, 10]  TMPBUF 


TKPBUF 


CREATED  BV     MACRO     ON  29-JUN-85   AT   05:28 
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Symbol  table 


CHNKTB  OOOOOORG 

CHNSTB  OOOOOORG 

CH$H1  =  .♦♦«»•  GX 

CS.CHN=  •»•*••  GX 

CtHHI  =  ..*•♦«  GX 

CtHLEN=  *»«•»*  GX 

CSHLO  =  .•»»»♦  GX 

ERRCHN  OOOOOOR 


005  EX$SEV=  00000'. 

002  SETHI   000164R 
SETLO   000U4R 
$ALPHA=  000022 
SANY  =  000020 
$BLANI<;=  000006 
$CFERR=  •*♦•♦*  GX 
$CLERR=  ******  GX 


$D1GIT=  000024 
$[)NUMB=  OOOOU 
$EOS  =  000012 
$ERROR=  *»**•♦  GX 
SEXIT  =  000000 
$FAIL  =  177777 
$GTNIUM=  »***♦•  GX 
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$LAMDA=  000000 

$NUMaR=  000002 

$RAD50=  000016 

$STRNG=  000004 

$SU8XP=  000010 

$TALOC=  ***••*  GX 

STMCHN  000040RG 


$$$FLG= 

M7777 

$$$KEy= 

\77777 

$$$STA= 

000000 

.ERROR= 

****** 

GX 

.FLAGS= 

****** 

GX 

.TEMP  = 

****** 

GX 

.TPARS= 

****** 

GX 

.  ABS. 

SSTATE 

$KTAB 

$<STR 


000000 
000212 
000032 
000000 
000000 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL.REL,CON) 
(RW,D,LCL,REL,CON) 


•♦*    Assembler    statistics 

Work      file      reads:  0 

vJork      file   writes:  0 

Size  of  work    file:  10992  Words      (   43  Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating      system:  RSX-HM/PLUS 

5Y:?MPCHN!v2!ci'52?i'342Ti2[HN/CR/-SP  =  SV:Cl,nRSXMCM.SML/ML,[130,n0]NETLl8/ML,[132,10]TMPCHN 


TMPCHN 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:29 
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SETURM  -  SET  THE  UNIBUS  RUN  MASK 
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269 
270 
271 
2.2 
275 
274 
275 
276 
277 
278 
279 
280 
281 
2P2 
28^ 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 


.S8TTL   SETURM  -  SET  THE  UNIBUS  RUN  MASK 

**•  -  SETURM  -  SET  UNIBUS  RUN  MASK 

INPUTS: 

.PNUMB  =  THE  UNIBUS  RUN  MASK 

.PNUMH  =  THE  UNIBUS  RUN  MASK  (HIGH  ORDER  BITS) 

TEMP  =  TEMPLATE  ADDRESS 

OUTPUTS: 

THE  UNIBUS  RUN  MASK  IS  STORED  IN  THE  TEMPLATE 
THE  TRANSITION  IS  ACCEPTED/REJECTED 


000262 

000262  016700 

000266  016760 

000274  005767 

000300  001402 

000302  062716 

000306  000207 


000001 


177512 

OOOOOOG  000014 
OOOOOOG 

000002 


SETURM: 


10$: 


MOV 
MOV 
TST 
BED 
ADD 
RETURN 


.END 


IcMP.RO 

. PNUMB, C.URM(RO) 

.PNUMH 

10$ 

*2,(SP) 


GET    THE    TEMPLATE    ADDRESS 
;    STORE    THE   URM    IN   THE    TEMPLATE 
IS   THE    URM  A  WORD   VALUE    ? 
IF    EO,    rES   -   OKAY 
ELSE    REJECT    THE    TRANSITION 
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TMPCUG  -  PARSE  CLOSED  USER  GROU  MACRO  V05.03b  Saturday  29-Jun-85  05:29 
Symbol  table 

$BLANK=  000006 

$8YTMN=  •*»♦**  GX 

$CFERR=  •*♦•*♦  GX 

$CLERR=  «*»*♦♦  GX 

$DIG]T=  000024 

$DNUM8=  OOOOU 

$EOS  =  000012 

$ERROR=  •***•*  GX 

SEXIT  =  000000 


CS.CUG= 

......  GX 

ERRFLG  000066R 

CS.FLG= 

......  GX 

ERRNAM  OOOOOOR 

CUG<TB 

OOOOOORG 

005 

EX$SEV=  000004 

CUGSTB 

OOOOOORG 

002 

GSLENX=  ♦.»•••  GX 

CUG2 

OOOOAOR 

002 

3ETCUG  000244R 

C.CUG 

000010 

SETFLG  000264R 

C.FLG 

000012 

SETNAM  000250R 

C.LEN  - 

000015 

$ALPHA=  000022 

C.MAM 

OOOOOi 

SANY  =  000020 

ERRCUG 

000051 R 

.  ABS. 

000015 

000 

(RW,I,GBL,ABS,OVR) 

000512 

001 

(RW,I,LCL,REL,CON) 

SSTATE 

000066 

002 

(RW,D,LCL,REL,C0N) 

$<TAB 

000000 

005 

(RW,D,LCL,REL,C0N) 

SKSTR 

000000 

OOA 

(RW,0,LCL,REL,CON) 

Errors 

detected: 

0 

Page  7-2 

$FAIL  =  17777?" 
$GTNM8=  •»»**♦  GX 
$GTNUM=  *♦***«  GX 
$GTR50=  »**♦*•  GX 
$LAM[)A=  000000 
$NUMBR=  000002 
$RAD50=  000016 
$STRNG=  000004 
$SUBXP=  000010 


$TALOC= 

*»*»♦*  GX 

$TMCUG 

000n6RG 

$$$FLG= 

177777 

$$$KEY= 

■\77777 

$$$STA= 

000000 

.ERROR= 

.*****  GX 

.FLAGS= 

.*«»..  GX 

.TEMP  = 

.».♦**  GX 

.TPARS= 

..*..*  GX 

Assembler  statistics 


Work  file  reads: 
Work  file  writes; 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


0 

0 

10984  Words 

45  Pages) 

14440  Words 

55  Pages) 

RSX-llM/PLUS 

5Y?TMPCUG!v2][152,154JTMPCUG/CR/-SP=SY:[l,l]RSXMCM.SML/ML,[150,110]NETLI8/ML,[152,10]rMPCUG 


TMPCUC 


CREATED  BY  MACRO  ON  29-JUM-85  AT  05:29 
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TMPDDM  - 
SfTNLT  - 

257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 
272 
27B 
274 
275 
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<;T0RE  NUMBER  Of  LINE  1A8LES 


Sf 


000200 

000200  016700  177576 

000204  116760  0000006  000012 

000212  026727  OOOOOOG  OOOOOOG 

000220  10U02 

000222  062716  000002 

000226  000207  10$: 


INPUT: 


OUTPUT 


SETNLT: 


.SBTTL  SETNLT  -  STORE  NUMBER  Of  LINE  TABLES 

SETNLT  -  STORE  NUMBER  Of  LINE  TABLES 

.PNUM8  =  NUMBER  Of  LINE  TABLE  TO  BE  SET  IN  PROCESS  SPACE 

NUMBER  IS  VALIDATED  AND  THE  TRANSITION  IS  ACCEPTED/REJECTED 


GET  THE  TEMPLATE  ADDRESS 
STORE  THE  LINE  COUNT 
VALUE  IN  RANGE  ? 
If  LOS,  YES 
ELSE,  REJECT 


MOV 

TEMP.RO 

MOVB 

.PNUMB,C.NLT(RO) 

CMP 

.PNUMB,*$MXNLT 

BLOS 

10$ 

ADD 

#2,(SP) 

RETURN 

D  K 

TMPDDM  -  PARSE  DEVICE  PROCESj  D  MACRO  V05.03b  Saturday  29-Jun-85  05:30  Page  11 
SET;jCT  -  STORE  NUMBER  Of  CONTROLLER  TABLES 
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5ETNDC   -  NUMBER  OF   NODE    COUNTERS 


35:30 
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19i, 
195 
196 
197 
198 
199 
200 
201 
202 
205 
20A 
205 
206 
207 
208 
209 

210  000112 

211  000112 

212  000116 

213  00012A 
2U   000126 

215  00013^ 

216  OOOKO 

217  000142 

218  000K6 

219  000150 

220  00015A 


.SBTIL   SETNDC  -  NUMBER  OF  NODE  COUNTERS 
*•*  -  SEINDC  -  SETUP  NUMBER  OF  NODE  COUNTERS 

THIS  ACTION  ROUTINE  SETS  UP  THE  NUMBER  OF  NODE  COUNTERS  FOR  THIS  PROCESS. 
INPUT: 


.PNUMB  =  NUMBER  OF  NODE  COUNTERS 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


THE  NUMBER  OF  NODE  COUNTERS  ARE  STORED  IN  C.DNC  OF  THE  TEMPLATE 

THE  SIZE  Of  THE  NODE  COUNTERS  IS  INCLUDEI-  IN  THE  BLOCK  AREA  ALLOCATION. 


016700 
026727 
101011 
016760 
005767 
001003 
105767 
00U02 
062716 
000207 


177662 
OOOOOOG  000252 

OOOOOOG  000006 
OOOOOOG 

000001G 

000002 


SETNDC; 


10$: 
20$: 


MOV 

CMP 

BHI 

MOV 

TST 

BNE 

TST8 

BEQ 

ADD 

RETURN 


TEMP, PC 

. PNUMB, *MXNDC 

10$ 

. PNUMB, C.NDC(RO) 

.PNUMH 

10$ 

.PfiUMB  +  1 

20$ 

*2,(SP) 


GET  START  OF  TEMPLATE 
CHECK  AGAINST  MAXIMUM  NODE  COUNTERS 
IF  HI,  TOO  MANY 

;  STORE  IHE  NUMBER  OF  NODE  COUNTERS 
IS  IT  ONLY  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  IT  A  BYTE  VALUE  ? 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 


D  15 
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SETINC  -  INCOMING  TIMER 


C  16 

TMPDEC  CREATED  B»     MACRO     ON  29-JUN-85  AI   05:?1  PAGE   I 

MACRO  CROSS  REFERENCE  CEf       0^.00 

MACRO  MAME  REFERENCES 

DBGTPt  #5-69 

DfCTPt  #^-50  A-52 

ISTATt  #A-50  5-69 

MSr.DF$  #A-50  4-53 

MATES  ll'-fo  5-?1  #5-7^  *5-77  #5-80  #5-83  #5-86  #5-89  #5-92  /'5-95 

'^  "  #5-98  #5-101  #5-104  #5-107  #5-110  #5-113  #5-116  #5-119  #5-122  #5-125 

RAWS  ll'-lo^  11-72  "nl'-yf  #5-78'  #5-81  #5-84  #5-87  #5-90  #5-93  #5-96 

"^^^^  ;5-99  #5-10-'  #5-105  #5-108  #5-111  #5-114  #5-117  #5-120  #5-123  #5-126 

#5-129  #5-132  #5-137 
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»F!LE'»1D»«TMPDLC 
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GETSLT  -  GET  THE  LOADING  INFORMATION  CO-ROUTINE 
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623  003176 
62A  003202 

625  003206 

626  003216 

627  00322A 

628  003232 

629  0032A0 

630  003242 

631  003250 

632  003256 

633  003264 

634  003266 

635  003274 

636  003302 

637  003310 

638  003312 

639  003320 

640  003322 

641  003326 
642 

643  003330 

644  003336 

645  003340 

646  003346 

647  003350 

648  0^3356 

649  003364 

650  003366 
651 

652  003370 

653  003376 

654  003400 

655  003406 

656  003410 

657  003414 

658  003416 

659  003420 

660  003422 

661  003424 


012700 
004767 

012767 
012767 
032765 
001420 
012767 
012767 
032765 
001406 
012767 
012767 
032767 
001413 
032767 
001421 
004767 
103430 

132765 
000403 
032765 
001406 
012767 
012767 
000241 
004736 

032767 
001410 
032767 
001205 
016605 
012616 
000401 
012605 
000261 
000207 


000V1O'        25$: 
000224 

000007  176232  30$: 
000745'  176226 
OOOOOOG  OOOOOOG 

000003  176206 
000742'  176202 
OOOOOOG  OOOOOOG 

000002  176162 
000740'  176156 
OOOOOOG  OOOOOOG  35$: 

OOOOOOG  OOOOOOG 

OOOOOOG 


OOOOOOG  000002G  4"^$: 

OOOOOOG  000002G  45$: 
50$: 

000002  176100 

000740'  176074 

55$. 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002        60$: 


65$: 
70$: 


MOV 

CALL 

ERRORS 

MOV 

MOV 

BIT 

BEQ 

MOV 

MOV 

BIT 

BEQ 

MOV 

MOV 

BIT 

BEQ 

BIT 

BEQ 

CALL 

BCS 

BITS 

BR 

BIT 

BEQ 

MOV 

MOV 

CLC 

CALL 

BIT 

BEQ 

BIT 

BNE 

MOV 

MOV 

BR 

MOV 

SEC 

RETURN 


#X2PLIN,R0 

FMTLN2 

#ERRX2P 

#CLEARL,STABLK+0 

#CLEAR,STABLK+2  ; 

#LF.MFL,S$LFLG(R5 

35$ 

#OFFL,STABLK+0 

#0FF,STABLK+2   , 

#LF.ENA,S$LFLG(R5 

35$ 

*ONL,STABLK+0 

#0N,STABLK+2 

#FL.MTP,$FLAGS 

45$ 

#FL.TRI,$FLAGS 

55$ 

SFNSTA 

60$ 


POINT  TO  LINE  BUFFER 
FORMAT  LINE  ID 
NO  X2P$DF  FOR  LINE 
;  ASSUME  THIS  DEVICE  IS  CLEARED 

)■■;  IS  IT  CLEARED  ? 
IF  EG,  YES  ..  OKAY 
ELSE,  ASSUME  IT'S  OFF 

)';'lS  IT  ENABLED  ? 
BR  IF  NOT 
ELSE  STATE  =  ON 

is'THE  LINE  MULTI-POINT  ? 

IF  EQ,  NO 

DO  WE  NEED  TRIBUTARY  INFO  ? 

IF  EQ,  NO 

FIND  THE  NEXT  STATION  TEMPLATE 

IF  CS,  NO  MORE  STATIONS 


#SF.ENA,C.PRM<2(R5)  ;  IS  THE  STATION  OFF  ? 

50$  ;  CONTINUE 

#LF.ENA,C.PRM+2(R5)  ;  IS  THE  LINE  OFF  ? 

55$  ;  IF  EQ,  YES  ..  OKAY 

#ONL,STABLK+0   ;  ELSE,  IT'S  ON 

(!'0N,STABLK+2    ;  . . . 

;  SUCCESS  :i 

a(SP)+         ;  CALL  THE  CALLER  BACK 

#FL.MTP,$FLAGS  ;  IS  THE  LINE  MULTI-POINT  ? 

65$  ;  IF  EQ,  NO  LEAVE 

#FL.TRI,$FLAGS  ;  WANT  ANY  MORE  TRIBUTARY  INFO  ? 

10$  ;  IF  NE,  YES 

2(SP),R5       ;  ELSE,  RESTORE  R5 

(SP)+,(SP)      ;  MOVE  RETURN  ADDRESS  DOWN  Of  STACK 

70$  ;  AND  RETURN 

(SP)+,R5       ;  ELSE,  RESTORE  R5 

;  ALL  DONE 
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SSHlOG  -  SHOW  EVENT  LOGGING  CHARACTERISTICS 


175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 

187  000332 

188  000332 

189  000336 

190  000340 

191  000342 

192  000352 

193  000354 

194  000362 

195  000364 
196 

197 
198 

199  000372 

200  000376 

201  000404 

202  000406 

203  000412 

204  000416 

205  000422 

206  000426 
207 

208 
209 

210  000436 

211  000444 

212  000446 

213  000452 

214  000454 

215  000456 

216  000460 

217  000464 
718  000472 

219  000474 

220  000500 

221  000506 

222  000510 

223  000514 
224 

225 
226 

227  000520 

228  000524 

229  000532 
230 

231 


.S8TTL  SSHLOG  -  SHOW  EVENT  LOGGING  CHARACTERISTICS 
♦»*  -  SSHLOG  -  SHOW  EVENT  LOGGING  CHARACTERISTICS 
INPUT: 


NONE. 


OUTPUT: 


THE  EVENT  LOGGING  CHARACTERISTICS  ARE  DISPLAYED. 


012705 
011505 
0C1005 

000521 
122765 
001365 
116567 


012701 
032767 
001402 
012701 
012700 
012702 
004767 


032767 
C01405 
012704 
012403 
001460 
000416 
012703 
032767 
001010 
012703 
032767 
001002 
012703 
004767 


004767 
112767 
012705 


OOOOOOG 


SSHLOG:: 
10S: 


OOOOOOG  OOOOOOG  20S: 
000004  177723 


000044' 
OOOOOOG  OOOOOOG 

000112' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG 
000322' 


000001 

OOOOOOG  OOOOOOG 

000002 

OOOOOOG  OOOOOOG 

000004 
000100 


000204 

000004  177561 

OOOOOOG 


MOV  #$TMLST,R5 

MOV  (R5),R5 

BNE  20$ 

ERRORS  #ERRSUP 

BR  90$  , 

CMPB  #CS.L0G,C.STS(R5) 

BNE  10$ 

MOVB  C.STA(R5>, STATE  ; 


;  PRINT 

HEADER 

MESSAGE 

MOV 

#HEADR,R1 

BIT 

#WC.L0G,$UILD   ; 

BEQ 

30$          ; 

MOV 

#HEAPR1,R1 

30$: 

MOV 

#$BUFF,R0 

MOV 

#$GT6UF,R2 

CALL 

$EDMSG 

PRINT 

#$BUFr 

;•  PRINT 

SINK  T 

VPE  MESSAGE 

BIT 

*WC.L0G,$WILD 

BEQ 

50$ 

MOV 

#SNKTBL,R4 
(R4)+,R3 

40$: 

MOV 

BEQ 

90$ 

BR 

60$ 

50$: 

MOV 

#FF.C0N,R3 

BIT 

#0M.CON,$OPRND  . 

BNE 

60$ 

MOV 

#FF.FIL,R3 

BIT 

#0M.FIL,$0PRND  , 

BNE 

60$ 

60$: 

MOV 
CALL 

#FF.M0N,R5 
PRTSNK 

PRINT  lOGGING  STATE 


CALL 
MOVB 
MOV 


PRTSTA 

*F.NINF, FLAGS 
#$TMLST,R5 


GET  START  OF  TEMPLATE  LIST 

GET  NEXT  ONE  IN  LIST 

BR  IF  FOUND  ONE 

INDICATE  EVENT  LOGGING  NOT  SUPPORTED 

AND  EXIT 

;  IS  THIS  A  LOGGING  STATE  TEMPLATE? 

BR  IF  NO 

SAVE  LOGGING  STATE  WORD 


ASSUME  LOGGING  SINK  TYPE 
ALL  MONITORS  ? 
IF  EQ,  NO  ..  OKAY 
ELSE,  DIFFERENT  HEADER 
POINT  TO  THE  OUTPUT  BUFFER 
POINT  AT  ARGUMENT  BLOCK 
FORMAT  THE  HEADER 
PRINT  HEADER 


ALL  LOGGING  SINK  TYPES? 

BR  IF  NO 

POINT  TO  SINK  TYPE  TABLE 

GET  LOGGING  SINK  TYPE 

EXIT  IF  END  OF  LIST 

CONTINUE 

ASSUME  LOGGING  CONSOLE 

LOGGING  CONSOLE  SPECIFIED? 

Dp  IP  ycc 

ASSUME  LOGGING  FILE 
LOGGING  FILE  SPECIFIED? 
BR  IF  YES 

ELSE  MUST  BE  LOGGING  MONITOR 
PRINT  SINK  TYPE  MESSAGE 


ASSUME  NO  INFORMATION 

GET  START  OF  TEMPLATE  LIST 


SEARCH  FOR  THE  EVENT  TEMPLATE 
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SHOMOD  -  LIST  MODULE  CHARACTER!  MACRO  V05.03b  Saturday  29-Jun-85  05:26 
Table  of  contents 

A-   55    MACRO  CALLS  AND  DEFINITIONS 


-  SHOW  MODULE  X25-PROTOCOL 

-  SHOW  X25  PROTOCOL  CHARACTERISTICS 

-  SHOU  MODULE  X25-PROTOCOL  DTE 

-  PRINT  DTE  CHANNEL  LIST 

-  SHOU  MODULE  X25-PROTOCOL  GROUP 

-  SHOW  MODULE  X25-ACCESS 

-  SHOU  MODULE  X25-SERVER 

-  SHOW  X25  SERVER  CHARACTERISTICS 

-  SHOW  MODULE  X29-SERVER 

-  SHOW  X29  SERVER  CHARACTERISTICS 

-  SHOW  X25-ACCESS  MODULE  CHARACTERISTICS 

-  SHOW  X25-ACCESS  MODULE  DESTINATIONS 

-  DISPATCH  TO  SHOW  ROUTINE 
PRINT  FORMATTED  INFORMATION 

-  FORMAT  A   !'!E  ID 

-  SHOW  DESTiMA"'ON  LIST 

-  SET   UP  OpTIjNIA,   PARAMETERS 


5- 

153 

LOCAL  I 

(S- 

264 

6- 

265 

SSHXPR 

1- 

299 

XPRCHA 

K- 

543 

XF.IDTE 

9- 

403 

PRTCHN 

10- 

461 

XPRCUG 

11- 

512 

SSHXAC 

1?- 

540 

1?- 

541 

SSHXSV 

H- 

574 

XSVCHA 

U- 

601 

K- 

602 

$SHX29 

1S- 

635 

X29CHA 

1ft- 

657 

XACCHA 

M- 

672 

SHOXAD 

18- 

70, 

IH- 

705 

D I  SPAT 

19- 

742 

PRINT 

^0- 

775 

FMTLIN 

?1- 

812 

SHODST 

22- 

900 

MOVOPT 

E  3 
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540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
55"5  005276 

554  003276 

555  003302 

556  003306 

557  0033 1 2 

558  003316 

559  003322 

560  003326 

561  003334 

562  003342 
563 

564 
565 
566 

567  C03346 

568  003356 

569  003366 

570  003376 
571 

572 


.SBTTL 

.SBTTL     SSHXSV  -   SHOW  MODULE   X25-SERVER 

'*•*   -   SSHXSV  -   SHOW  MODULE   X25-SER\/ER 

INPUT: 

SOPRND  =  TYPE  OF  REQUEST 

OUTPUT: 

THE  HEADER  IS  PRINTED  AND  THE  SHO  INFORMATION  ROUTINE 
IS  DISPATCHED  TO 


012705  003346' 

012704  OOOOOOG 

012724  000012 

012724  001662' 

016703  OOOOOOG 

042703  OOOOOOC 

012767  177777  174456 

012767  115443  1^4446 


003400'  000000  000017 

004252'  OOOOOOG  000017 

004252'  OOOOOOG  0G0022 
000000 


SSHXSV: : 


MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
MOV 
MOV 
CALLR 

DISPATCH  TABLE 


#XSVDTB,R5 

#$HDRBK,R4 

#XSVL,(R4)t 

#XSV,(R4)+ 

$0PRND,R3 


POINT  TO  DISPATCH  TABLE 
POINT  TO  ARGUMENT  BLOCK 
MODULE  IS  X25-SERVER 

GEKrEQUEST  TYPE 


#"c<xs.dst:xs.knd>,r3  .-  clear  dont  care  bits 


#-1, OPTIONS 

#»RX25,DTYPE 

DISPAT 


WANT  ALL  OUTPUT 

X25  DESTINATIONS  ONLY 

DISPATCH  TO  ROUTINE 


XSVDTB: 


.NLIST  BEX 

.WORD  XSVCHA,  0,      CHARL,   CHAR 

.WORD  SHODST,  XS.DST,  CHARL,   CHAR 

.WORD  SHODST,  XS.KND,  KDSTL,  KDST 

.WORD  0 

.LIST  BEX 


CHARACTERISTICS 

DESTINATION 

KNOWN  DESTINATIONS 


E  4 
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SHOPRO  -  LIST  PROCESS  CHARACTER  MACRO  V05.O3b  Saturday  29-Jun-85  05 
SSHPRO  -  SHOW  PROCESS  CHARACTERISTICS 


-.17 


168  000526 

169  000532 

170  000536 

171  00C5A2 

172  000552 
173 

174 
175 

176  000554 

177  000560 

178  000564 

179  000572 

180  000576 

181  000602 

182  000606 

183  000616 
184 

185  000620 

186 

187 

188 


013700  OOOOCOG 

012701  000160" 

004767  OOOOOOG 

000677 


156512  000012 

005062  000002 

156562  000013  000002 

012700  0000003 

012701  000205' 
004767  OOOOOOG 

000655 

000207 


000001 


50$: 


MOV 

#$BUFF,RO 

MOV 

#02MS5,R1 

CALL 

SEDM";G 

PRINT 

#$8UFF 

BR 

10$ 

C  LINE 

TABLE  COUNT 

BISB 

C.NLTD(R5) 

(R2)  , 

CLR 

2(R2) 

BISB 

C.NCTD(R5) 

2(R2) 

MOV 

#$3UFF,R0 

, 

MOV 

#03MSG,R1 

CALL 

SEDHSG 

PRINT 

*$BUFF 

BR 

10$ 

Page  5-1 


POINT  AT  OUTPUT  BUFFER 
POINT  AT  FORMAT  STRING 
FORMAT  THE  STRING 
PRINT  THE  STRING 
REPEAT 


GET  LINE  TABLE  COUNT 

GET  CONTROLLER  TABLE  COUNT 

'point  at  OUTPUT  BUFFER 
POINT  AT  FORMAT  STRING 
FORMAT  THE  MESSAGE 
PRINT  THE  MESSAGE 
AND  LOOK  FOR  NEXT 


60$: 


RETURN 


.END 
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SSHRcl  -  SHOW  REMOTE  CHARACTERISTICS 


3mA 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357  001102 

358 

359  001112 

360  001112 

361  001116 

362  001124 

363  001126 

364  001130 

365  001134 

366  001142 

367  001144 

368  001146 

369  001152 

370  00'' 154 

371  001160 

372  001164 

373  001174 

374  001202 

375  001204 

376  00121', 
377 


»•♦  -  PRIHDR  -  PRINT  THE  HEADER 

INPUTS: 

$WILD  =  WILD  CARDS 

ilNFO  =  Information  type: 

INSCHA  if  characteristics 
OUTPUTS: 

HFLAG  IS  INCREMENTED 

HEADER  IS  PRINTED 


COOnOO'  000033'  000075'  HTBL:   .WORD   HEADR.HEADRI ,HEADR2,HEADR3 


012701 
126727 
001001 
022121 
005267 
032767 
001401 
005721 
012700 
011101 
C12702 
004767 


PRIHDR: 


001102' 
OOOOOOG  OOOOOGG 


177176         10$: 
OOOOOOG  OOOOOOG 


OOOOOOG 

OOOOOOG 
OOOOOOG 


25$: 


126727  OOOOOOG  OOOOOOG 
001404 

000207  30$: 


MOV 

CHP8 

BNE 

CMP 

INC 

BIT 

8EQ 

TS" 

HO. 

MOV 

MOV 

CALL 

PRINT 

CMP8 

BEQ 

PRINT 

RETURN 


#HT8L,R1 

$INfO,*IN$CHA 

10$ 

(R1)+,(R1)+ 

HFLAG 

#WC.N0D,$WILD 

25$ 

(R1)  + 

#$8UFF,R0 

(R1),R1 

#$GT8UF,R2 

$EDHSG 

#$8UFF 

$INFO,#IN$CHA 

30$ 

#FORMAT 


point  to  table  of  header  strings 

dispLaying  characteristics  ? 

if  ne,  no 

else  skip  to  summary  header  strings 

ELSE,  INDICATE  HEADER  IS  ALREADY  PRINTED 

KNOWN  NODES  ? 

IF  EQ,  NO  ..  OKAY 

ELSE,  DIFFERENT  HEADER 

POINT  TO  OUTPUT  BUFFER 

POINT  TO  THE  HEADER  STRING 

POINT  AT  ARGUMENT  BLOCK 

FORMAT  THE  HEADER 

PRINT  HEADER 

displaying  characteristics  ? 

if  EQ,  yes 

PRINT  THE  FORMAT  HEADER 
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**F!LE'*1D««SH0SYS 


ssssssss 

HH 

HH 

000000 

ssssssss 
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YY 
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HH 
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YY 
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00 
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HH 

HH 

00 

on 

ss 

YY 

ss 
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HH 

000000 
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YY 
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ssssssss 

HH 

HH 

000000 

ssssssss 

YY 

ssssssss 

LL 

ssssssss 

-.TITTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

T 

LL 

ss 

T 

LL 

ss 

TT 

LL 

ss 

TT 

LL 

ssssss 

TT 

LL 

ssssss 

TT 

LL 

ss 

TT 

LL 

ss 

TT 

LL 

ss 

TT 
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ss 

TT 
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TT 
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8A 

85 

86 
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89 

90 
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INITIONS 

.SBTTL  MACRO  DEFINITIONS 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  $Pf!INT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRJNT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

MACRO  CALLS 

.MCALL  ISTATS, STATES, TRANS 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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I  nrii  njTA 


TMPBUF  CREArr5  BY     MACRO     ON  29-JUN-85  AT   05:28 

SYMBOL    CROSS   REFERENCE 


SYMBQi.— "Afctit 


BUFKTB 
BUFSTB 
CS.BUF 
C.CBNM 
C.CBSZ 
C.LEN 
C.RBNM 
C.RB5Z 
C .  SBNM 
C.SBSZ 
C.STS 
C.THSH 
HICBNM 
HICBS2 
HIRBNM 
HIRBSZ 
HISBSZ 
HITHSH 
LOCBNM 
LOCBSZ 
LORBNM 
LORBSZ 
LOSBNM 
LOSBSZ 
LOTHSH 
SEICBN 
SETCBS 
SETRBN 
SETRBS 
SETSBN 
SETSBS 
SETTHR 
EMP 

SALPHA 

$ANY 

SBLANK 

SCCBNM 

tDIGIT 

SDNUMB 

$E05 

SERROR 

SEXIT 

SFAIL 

SGPRM 

SLAMDA 

JLIMTB 

$MINSB 

SNUMBR 

$RAD50 

SRDBNM 

SRDBSZ 


000000  RG 

000000  RG 

»«••««  GX 

OOOOOA 

000006 

000022 

000010 

000012 

OOOOU 

000016 


=  *♦*»♦* 
000020 
000004  R 
000010  R 
OOOOU  R 
000020  R 
000026  R 
000032  R 
000002  R 


GX 


000006 
000012 
000016 
000022 


000024  R 


000030 
000134 

00017)  R 

000234  R 

000306  R 

000350  R 

0X404  R 

000442  R 

000000  R 

=  000022 
=  000020 
=  000006 

-  ****** 

=  000024 
=  000014 
=  000012 

=  *  *  *  *  y;  * 

=  or  'oo 

=  17   7 


GX 


GX 


=  000000 
000002  RG 

-  ******  GX 

=  000002 
=  000016 

-  ******  GX 
=  »*.**.  GX 


REFERENCES 

#6-140 
#6-140 

7-210 
#5-104 
#5-105 
#5-111 
#5-106 
#5-107 
#5-108 
#5-109 
*7-210 
#5-110 
#5-122 
#5-124 
#5-126 
#5-128 
#5-131 
#5-133 
#5-121 
#5-123 
#5-125 
#5-127 
#5-129 
#5-130 
#5-132 
#8-253 
#9-284 
#10-314 
#11-347 
#12-378 
#13-407 
#14-437 
#5-114 

14-438 
#6-140 
#6-140 
#6-140 
•8-257 
#6-140 
#6-140 
#6-140 
*7-216 
#6-140 
#6-140 

6-140 
#6-140 
#5-119 

5-129 
#6-140 
#6-140 
♦10-318 
*11-351 


7-212 
7-213 

•8-256 
•9-287 
7-207 
7-223 
7-224 
7-226 
7-227 

•14-440 
8-260 
9-290 
10-323 
11-354 
13-413 

•10-319 
8-258 
9-288 
10-321 
11-352 
12-383 
13-411 
14-442 


•7-209 
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•10-317 
•11-350 
•12-381 
•13-410 


•10-320 


14-444 


7-220 


8-254 


9-285 


10-315 


11-348 


12-379 


13-408 


TMPBUF 


CREATED  BY     MACRO     ON  29-JUN-85   AT   05:28 
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TMPCHN     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:29 
SYMBOL  CROSS  REFERENCE 


0  11 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CHNKTB 

000000 

RG 

#6-141 

7-189 

CHNSTD 

000000 

^G 

#6-141 

7-190 

CH$HI 

=  ♦** tt* 

GX 

8-216 

CS.CHN 

r  ****** 

GX 

7-186 

CSHHl 

~   ****** 

GX 

8-216 

C$HLEN 

=  ****** 

GX 

7-181 

CtHLO 

=  ****** 

GX 

8-214 

ERRCHN 

000000 

R 

#5-132 

EXSSEV 

=  0O0C04 

#5-131 

5-132 

SETHI 

000164 

R 

#8-216 

SETLG 

000144 

R 

#8-214 

$ALPI-A 

=  000022 

#6-141 

$ANY 

=  000020 

#6-141 

SBLAN'- 

=  000006 

#6-141 

SCFERR 

r  ****** 

GX 

7-195 

SDIGIT 

=  000024 

#6-141 

SDNUMB 

--:  000014 

#6-141 

ctos 

=  000012 

#6-141 

SERROR 

=   ****** 

iK 

*7-196 

•7-197 

SEXIT 

=  000000 

#6-141 

SFAIL 

=  177777 

#6-141 

$GPRM 

-  ****** 

6-141 

SGTNUM 

=  ****** 

GX 

8-214 

8-216 

SLAMDA 

-  000000 

#6-141 

SNUMBR 

=  000002 

#6-141 

$RAD50 

=  000016 

#6-141 

SRONLY 

=  ****** 

6-141 

6-141 

SSTRNG 

=  000004 

#6-141 

SSi.'yXP 

=  000010 

#6-141 

$T,'-'  OC 

=  ****** 

GX 

7-182 

f^^HN 

000040 

RG 

#7-179 

S$l.rLG 

--   T77777 

#6-Ui 

SSSKEY 

=    177777 

#6-141 

.ERROR 

r   *♦**»*■ 

GX 

•7-187 

7-193 

.FLAGS 

=   ****«  * 

GX 

•7-185 

8-216 

.TEMP 

r  ****** 

GX 

•7-183 

.TPARS 

-  ****** 

GX 

7-191 

6-141 


TMPCHN 
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Symbol  table 

TEMP  OOOOOOR 

$ALPHA=  000022 

002  $ANY  =  000020 

$BLANK=  000006 

$D]GIT=  000024 

$DNUMB=  OOOOU 

$EOS  =  000012 

$ERR0R=  »**♦*♦  GX 


CNTKTB 

OOOOOORG 

003 

C.URM   000014 

CNTSTB 

OOOOOORG 

002 

C.VEC   000006 

CS.CNT= 

»*»»♦«  GX 

RCDEV   000040R 

C.CNT 

000004 

SETCNT  000062R 

C.C5R 

000010 

SETCSR  000164R 

C.LEN  = 

000016 

SETPRI  000222R 

C.PRI 

000012 

SETURM  000262R 

C.STS  = 

»*«♦••  GX 

SETVEC  000116R 

.  ABS. 

000016 

000 

(RW,I,GBL,ABS,0VR) 

000310 

001 

(RW,1,LCL,REL,C0N) 

$STATE 

000052 

002 

(RW,D,LCL,REL,C0N) 

SKIAB 

000000 

001 

(RU,D,LCL,REL,CON) 

SKSTR 

000000 

004 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

»*»  Ass 

embler  statistics 

Work  f 

lie  reads 

:  0 

Work   1 

ile  writes 

:  0 

Size  o( 

work  file 

:  10406  Words  (  41  Pages) 

Size  ol 

core  pool 

:  14440  Wurds   (  55  Pages) 

Operating  system 

:  RSX- 

11M/PLUS 

Page  11-1 


SEXIT  =  000000 
$FAIL  =  177777 
$LAMDA=  0000 "0 
$NUMBR=  0000L2 
$RAD50=  000016 
$STRNG=  000004 
$SUBXP=  000010 
$TAL0C=  ♦♦*♦•♦  GX 


$TMCNT  000002RG 

$$$fLG=  \mn 

$$$icEY=  \mn 

$$$STA=  000000 

.PNUMB=  ••♦♦♦*  GX 

.PNUMH=  ******  GX 

.TPARS=  ******  6X 


5Y:TMPC^TIv2;^°32J34]t^?CNT/CR/-SP=Sy:Cl  J]RSXMCM.SP1L/ML,[130,110]NETL1B/ML,[1?2,10]TMPCNT 


TMPCNT 
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SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CS.CUG 

=  ****** 

GX 

7-214 

CS.FLG 

=  ****** 

GX 

7-247 

CUGKTB 

000000 

RG 

#6-158 

7-218 

CUGSTB 

000000 

RG 

#6-158 

7-219 

C.CUG 

000010 

#5-137 

7-245 

C.FLC 

000012 

#5-138 

7-247 

C.LEN 

=  000013 

#5-139 

7-209 

C.NAM 

OOOOOA 

#5-136 

7-243 

ERRCUG 

000031 

R 

#5-148 

ERRFLG 

000066 

R 

#5-149 

ERRNAM 

000000 

R 

#5-147 

EXSSEV 

=  OOOOOA 

#5-146 

5-147 

GSLENX 

=  ****** 

GX 

7-216 

SETCUG 

000244 

R 

#7-245 

SETFLG 

000264 

R 

#7-247 

SETNAM 

000230 

R 

#7-243 

$ALPHA 

=  000022 

#6-158 

$ANY 

=  000020 

#6-158 

SBLANK 

=  000006 

#6-158 

SBYTMN 

=      ****** 

GX 

♦7-216 

tCFERR 

=      ****** 

GX 

7-224 

SDIGIT 

=  000024 

#6-158 

tDNUMB 

=  000014 

#6-158 

$EOS 

=  000012 

#6-158 

SERROR 

=   ****** 

GX 

*7-225 

♦7-226 

$EXIT 

=  000000 

#6-158 

SFAIL 

--   177777 

#6-158 

SGPRM 

=   ****** 

6-158 

SGTNMB 

=      ****** 

GX 

7-247 

$GTNUM 

-   ****** 

GX 

7-245 

$GTR50 

z;  ****** 

GX 

7-243 

SLAMDA 

=  000000 

#6-158 

SNUMBR 

=  000002 

#6-158 

$RAD50 

=  000016 

#6-158 

SRONLY 

=  ****** 

6-158 

6-158 

SSTRNG 

=  000004 

#6-158 

SSUBXP 

=  000010 

#6-158 

STALOC 

:;   ****** 

GX 

7-210 

STMCUG 

000116 

RG 

#7-207 

$$$FLG 

=   177777 

#6-158 

$$$KEY 

=   177777 

#6-158 

.ERROR 

r  ****** 

GX 

•7-215 

7-222 

.FLAGS 

=     ****** 

GX 

♦7-213 

7-247 

.TEMP 

-  ****** 

GX 

♦7-211 

.TPARS 

=  *■•♦»»* 

GX 

7-220 
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5-148 


5-149 


6-158 


TMPCUG 
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TMPDDM  - 

SETIJCT  - 

277 
278 
279 
280 
281 
282 
28? 
28A 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
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STORE  NUMBER  OF  CONTROLLER  TABLES 


.SBTTL   SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 
'♦•*  -  SETNCT  -  STORE  NUMBER  Of  CONTROLLER  TABLES 

"^    iPNUMB  =  NUMBER  Of  CONTROLLER  TABLES  TO  BE  SET  IN  PROCESS  SPACE 

°^     ^'number  is  VALIDATED  AND  THE  TRANSITION  IS  ACCEPTED/REJECTED 


000230 

000230  016700  1775A6 

000234  116760  OOOOOOG  000013 

000242  026727  OOOOOOG  OOOOOOG 


000250  101402 
000252  062716 
000256  000207 


000001 


000002 


SETNCT: 


10$: 


MOV 

TEMP.RO 

MOVB 

.PNUM8,C.NCT(R0) 

CMP 

.PNUMB,#$MXNCT 

BLOS 

10$ 

ADD 

#2,(SP) 

RETURN 

GET  THE  TEMPLATE  ADDRESS 
STORE  THE  CONTROLLER  COUNT 
VALUE  IN  RANGE  ? 
If  LOS,  YES 
ELSE,  REJECT 


.END 
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Symbol  table  
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SETINC  -  INCOMING  TIMER 


222 
223 
22A 
225 
226 
227 
228 
229 
230 
251 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 


.SOTTL  SETINC  -  INCOMING  TIMER 
'***  -  SETINC  -  SETUP  INCOMING  TIMER 

THIS  ACTION  ROUTINE  SETS  UP  THE  INCOMING  TIMER  VALUE  FOR  THE  EXECUTOR 
INPUT: 


000156 

000156  016700  177616 

000162  116760  OOOOOOG  000012 

000170  001406 

000172  005767  OOOOOOC 

000176  001003 

000200  105767  OOOOOIG 

000204  001402 

000206  062716  000002 

000212  000207 


OUTPUT 


SETINC: 


.PNUMS  =  INCOMING  TIMER 
.PNUMH  =  (HIGH  ORDER) 


THE  INCOMING  TIMER  IS  STORED  IN  C.INCT  OF  THE  TEMPLATE 


MOV 

M0V8 

BEQ 

TST 

BNE 

TSTB 

BEQ 

10$: 

ADD 

20$: 

RETURN 

TEMP.RO        ; 

.PNUMB,C.INCT(RO) 

10$ 

.PNUMH 

10$ 

.PNUMBtl 

20$ 

#2,(SP) 


GET  START  OF  TEMPLATE 

;  STORE  THE  OUTGOING  TIMER 

BR  IF  INVALID  VALUE 

IS  IT  ONLY  A  WORD  VALUE  ? 

BR  IF  NO,  ERROR 

IS  IT  A  BYTE  VALUE  ? 

If-  EQ,  YES  -  OKAY 

ELSE,  REJECT  TRANSITION 
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SETOUT  -  OUTGOING  UMER 


•  •f  1LE"1D"TMPDLC 


0  16 


TTTTl 

TTTTT 

MM 

MM 

pppppppr 

DDDDDDDD 

CCCCCCCC 

TTTTl 

TTTTT 

MM 

MM 

PPPPPPPP 

DDDDDDDD 

CCCCCCCf 

MMM^ 

MMMM 

PP      PP 

OD 

DD 

CC 

MMMf 

MMMM 

PP      PP 

DD 

DD 

^^ 

MM 

•IM  MM 

PP      PP 

DD 

DD 

MM 

*IM  MM 

PP      PP 

DD 

OD 

CC 

MM 

MM 

PPPPPPPP 

DD 

DO 

CC 

MM 

MM 

PPPPPPPP 

DD 

DD 

CC 

MM 

MM 

PP 

DD 

DD 

^? 

MM 

MM 

PP 

DD 

DD 

MM 

MM 

PP 

DD 

00 

CC 

MM 

MM 

PP 

OD 

DO 

CC 

MM 

MM 

PP 

DDDDDDDD 

.LLlLLLLLL 

ctcccccc 

MM 

MM 

PP 

DDDDDDDD 

LLLLLLLLLL 

CCCCCCCC 

ssssssss 

HTT 

TTTTT 

ssssssss 

Tf'T 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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Table  ot  contents 


SHOLIN 
fl*iTLIN 
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FORMAT  A  LINE  ID 


663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 

675  003426 

676  003432 

677  003436 

678  003442 

679  003446 

680  003452 

681  003456 

682  003462 

683  003466 

684  003474 

685  003476 

686  003502 

687  003506 

688  003512 

689  003516 

690  003524 

691  003526 

692  003534 

693  003536 

694  003542 

695  003546 

696  003552 

697  003556 

698  003560 
699 

700 
701 


.SBTTL  FMTLIN  -  FORMAT  A  LINE  ID 

•**  -  FMTLIN  -  FORMAT  A  LINE  ID 

INPUTS: 

SFLAGS  =  FLAGS  WORD 

OUTPUTS: 

LINE    ID   FORMATTED    INTO  OUTPUT   BUFFER 


012700 
012703 
016301 
004767 
112720 
116301 
012702 
004767 
032767 
001410 
112720 
116301 
012702 
00476' 
032767 
001414 
032767 
001410 
112720 
016301 
01270? 
004767 
105010 
000207 


000001 


000226' 

FMTLIN: 

MOV 

OOOOOOG 

FrTLN2: 

MOV 

OOOOOOG 

MOV 

OOOOOOG 

CALL 

000055 

MOVE 

OOOOOOG 

M0V8 

014012 

MOV 

OOOOOOG 

CALL 

OOOOOOG 

OOOOOOG 

BIT 
BEQ 

000055 

MOVB 

OOOOOOG 

MOVB 

014012 

MOV 

OOOOOOG 

CALL 

OOOOOOG 

OOOOOOG 

10$: 

BIT 
BEQ 

OOOOOOG 

OOOOOOG 

BIT 
BEQ 

000056 

MOVB 

OOOOOOG 

MOV 

014012 

MOV 

OOOOOOG 

CALL 

20$: 

CLRB 
RETURN 

#LJNID,RO 

#$DVNAM,R3 

L$NAH(R3),R1 

$C5TA 

#'-,(R0)+ 

L$CNT(R3),R1 

#<10.1<3*4000»,R2 

$C8TA 

#FL. MUX, SFLAGS 

10$ 

#'-,(R0)+ 

L$UNT(R3),R1 

#<10.!<3«4000»,r2 

$C8TA 

#FL.MTP, SFLAGS 

20$ 

#FL.TRB,iFLAGS 

20$ 

*'.,(R0)*- 

L$TRJCR3),R1 

#<10.!<3*4000»,R2 

SCBTA 

(RO) 


GET  ADDRESS  OF  OUTPUT  BUFFER 

POINT  AT  LINE  DESCRIPTOR 

GET  DEVICE  NAME 

CONVERT  NAME  TO  ASCII 

INSERT  DELIMETER 

GET  CONTROLLER  NUMBER 

BASE=10.,  WIDTH  =  3 

CONVERT  TO  ASCII 

IS  THIS  A  MUX  DEVICE  ? 

IF  EQ,  NO 

INSERT  DELIMETER 

ELSE,  GET  UNIT  NUMBER 

BASE=10.,   WIDTH  =  3 

CONVERT   TO  ASCII 

IS   THE   LINE   MULTI-POINT    ? 

IF   EQ,   NO 

)ID  THE  USER  WANT  TRIBUTARY  ': 

IF  EQ,  NO 

INSERT  DELIMETER 

ELSE,  GET  TRIBUTARY  NUMBER 

BASE=10.,  WIDTH  =  3 

CONVERT  TO  ASCII 

MAKE  STRING  ASCIZ 


.END 
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SSHLOG  -  SHOW  EVENT  LOGGING  CHARACTER ' STICS 


IS:\ 


Page  7-1 


232 

233  000536 

23A  000540 

235  0005A2 

236  000550 

237  000552 

238  000556 
239 

240 
241 

242  000560 

243  000564 

244  000566 

245  000574 

246  000576 

247  000606 

248  000614 
249 

250  000616 
251 


011505 
001412 
122765 
001372 
020365 
001367 


?'0$: 


OOOOOOG  OOO':'00G 
000016 


MOV  (R5),R5        ;  GET  NEXT  TEMPLATE 

RED  80$  ;  IF  EQ,  END  OF  TEMPLATES 

CMPB    #CS.EVT,C.STS(R55  ;  IS  THIS  AN  EVENT  TEMPLATE? 

BNE  70$  ;  IF  NE,  NO  ..  KEEP  LOOKING 

CMP  R3,C.SNK(R5)    ;  IS  THIS  FOR  THE  CORRECT  SINK? 

BNE  70i  ;  IF  NE,  NO  ..  KEEP  LOOKING 

PRINT  THE  EVENT  LOGGING  CHARACTERISICS 


004767  000230 

000764 

132767     000004     177517     80$: 

001404 

032767  OOOOOOG  OOOOOOG  85$: 
001316 


000207 


90$: 


CALL 

BR 

BITS 

BEQ 

PRINT 

BIT 

BNE 

RETURN 


PRTEVT 

70$ 

#f.NINF, FLAGS 

85$ 

*N0INF0 

#WC.LOG,$WILD 

40$ 


PRINT  EVENT  MESSAGE 

LOOK  FOR  NEXT  EVENT  TEMPLATE 

ANr  EVENT  INFORMATION  DISPLAYED? 

BR  IF  YES 

DISPLAY  NO  INFORMATION  MESSAGE 

KNOWN  LOGGING  SPECIFIED? 

BR  IF  YES 

RETURN  TO  CALLER 
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1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2'^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 

3-; 

35 
36 
37 
38 
39 
AO 
41 


45 
46 
47 
48 
49 
5C 
51 
52 
53 


.TITLE   SHOMOD  -  LIST  MODULE  CHARACTERISTICS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITA'  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTW;  ,c  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SHOW  MOrULE  CHARACTERISTICS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  29-OCT-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-11M/S  V4.2 
DECnet-llM-Plus  V3.0 
DL^net-Micro/RSX  Vl.O 


OF  ITS 
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MATDn    rAl  I  Q    AMh    hF  C  I  M  I  T  I  imic: 
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XSVCHA  -  SHOW  X25  SERVER  CHARACTERISTICS 


57^ 

575 

576 

577 

578 

579 

580 

581 

582 

583  O03AO0 

584  003A00 

C12701 

000000' 

585  00340A 

016700 

OOOOOOG 

586  003410 

016011 

OOOOOOG 

587  0034K 

005321 

588  0C3416 

012700 

OOOOOOG 

589  003422 

011000 

590  003424 

001416 

591  003426 

122760 

OOOOOOG  OOOOOOG 

592  00343'. 

001372 

593  003436 

026027 

OOOOOOG  055430 

594  0C3444 

001366 

505  003446 

016021 

OOOOOOG 

596  003452 

012703 

001260- 

597  005456 

004767 

000350 

598  003462 

000207 

.SBTTL  XSVCHA  -  SHOW  X25  SERVER  CHARACTERISTICS 
'♦♦  XSVCHA  -  SHOW  X25  SERVER  CHARACTERISTICS 
INPUT        SOPRND  =  REQUEST  TYPE 
OUTPUT       THE  X25  SERVER  CHARACTERISTICS  ARE  DISPLAYED. 

XSVCHA: 


10$: 


20$: 


MOV 

*XSVCBI<;,R1 

POINT  TO  ARGUMENT  BLOCK 

MOV 

$PSIPT,RO 

POINT  TO  PSNSDF 

MOV 

P$SPOR(RO) 

(R1) 

MAXIMUM  CIRCUITS 

DEC 

(R1)  + 

MAKE  FUDGE  FACTOR  INVISIBLE  TO  US 

MOV 

#$TMLST,RO 

POINT  TO  LISTHEAD 

MOV 

(RO),RO 

NEXT  TEMPLATE 

BEQ 

20$ 

IF  EQ,  NO  INFORMATION 

CMPB 

#CS.LLC,C. 

>TS(RO 

;  IS  THIS  AN  LLC  DESCRIPTOR  ? 

BNE 

10$ 

BR  IF  NO 

CMP 

L$LNAM(RO) 

*<»RNW  >  ;  IS  THIS  LLC  FOR  SERVER  MODULE 

BNE 

10$ 

•  BR  IF  NO 

MOV 

L$LCTM(RO) 

(P1)  + 

;  COUNTER  TIMER 

MOV 

*XSVCFT,R3 

•  POINT  TO  FORMATTING  TABLE 

CALL 

PRINT 

■  SHOW  INFORMATION 

RETURN 


599 
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1_ _ — ■ — — — 

SHOMOD 

CREATED   BY 

MACRO     ON  29 

-JUN-85  Al 

05:27 

E     5 

PAGE   1 

SYMBOL 

CROSS   REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

BLANK 

002022  R 

#5-251 

5-251 

10-501 

BLANKL 
CHAR 

=  000001 
001720  R 

#5-251 
#5-246 

10-500 
5-246 

6-290 

6-291             6-293 

11-534 

11-535 

12-567 

12-568 

CHARL 

=  000017 

14-628 
#5-246 
14-629 

14-629 
6-290 

6-291 

6-293             11-534 

11-535 

12-567 

12-568 

14-628 

CHNBLK 

001101   R 

#5-205 

9-451 

CHNBND 
CHNBUF 

=   000130  R 
000034  R 

#5-167 
#5-166 
21-873 

9-440 
9-417 
21-875 

9-429 

9-449             9-450 

9-455 

9-457 

21-863 

21-864 

CHNHDR 

001064  R 

#5-204 

9-416 

CHShI 

=    *♦«»♦♦      GX 

9-424 

CS.CHN 

=   **♦*«»      GX 

9-421 

9-444 

CS.CUG 

=   **»«*«      GX 

io-i§^ 

CS.DST 

-   «♦*«»*     GX 

21-830 

CS.OTE 

=    ,*♦»**     GX 

8-358 

10-476 

10-481 

CS.LLC 

=   »»*»♦«      GX 

13-591 

CS.MSK 

=   •***«*      GX 

21-888 

CS.NUW 

=   *«*♦**     GX 

21-880 

CS.RDT 

=   »*♦» ■ ■      ;v 

17-685 

CS.SHI 

-   *♦**■■,      GX 

21-883 

CS.SLO 

:;    »*♦*»*      GX 

21-882 

CS.UNI 

=    *»*♦«*      GX 

8-390 

CS.VAL 

=   »«♦♦»«      GX 

21-889 

CS.X29 

i   «♦*»*»      GX 

15-648 

CS.X3P 

=    »*»♦.»      GX 

7-312 

CUGBK 

000000  R 

#5-212 

10-491 

CUGB1 

000000  R 

#5-212 

5-212 

CUGB2 

000004   R 

#5-212 

5-212 

CUGFT 

001170  R 

#5-212 

10-506 

CUGM1 

001116  R 

#5-210 

5-212 

CUGM2 

001134  R 

#5-211 

5-212 

CUSBIL 

=   «*♦»♦♦     GX 

10-502 

CSHLO 

=   **»*•*     GX 

9-438 

CSUCUG 

=    *.»♦*«      GX 

10-494 

CSUFLG 

-   »»»**»      GX 

10-502 

CSUNAM 

=    »**»*»     GX 

10-487 

10-439 

10-492 

10-493 

C.STS 

=    »*♦»*♦      GX 

7-312 
13-591 

8-358 
15-648 

8-390 
17-685 

9-421             9-424 
21-830           22-925 

9-444 

10-476 

10-481 

10-483 

DASCIJG 

=   «*♦♦««      GX 

21-881 

DISPAT 

003750  H 

6-285 

11-529 

12-562 

14-623         #18-721 

OSTBK 

000000  R 

#5-231 

21-858 

DSTB1 

000000  R 

#5-231 

HV 

DSTB10 

000062  R 

#5-231 

5-231 

DSTB2 

000004  R 

#5-231 

5-231 

DSTB3 

000012  R 

#5-231 

5-?|] 

DSrB4 

000024  R 

#5-231 

5-231 

DSTB5 

000030  R 

#5-231 

5-231 

D'=:TB6 

000052  R 

#5-231 

5-231 

0STB7 

000034  R 

#5-231 

5-231 

D5TFT 

001532  R 

#5-231 

21-893 

DSTM1 

001266  R 

#5-223 

5-231 

SHOMOD 
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SHOPRO  -  LIST  PROCESS  CHARACTER  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 

C.STS  =  ******  GX 

HEADR  OOOOOOR 

HEADR1  000046R 

MSG8LK  000276R 

ON  000264R 

ONL   =  000002 

01MSG  000U2R 


'*»  Assembler  statistics 


^5:^ 


7     Page  5-2 


CLEAR 

000266R 

C.FLG   000006 

CLEARL= 

000007 

C.LIN   000011 

CL.LEN= 

000020 

C.NAM   000004 

CS.lLC= 

»***»♦  GX 

C.NCTD=  0CC013 

C.CTM 

000016 

C.NLT   OOOOU 

C.DEV 

000012 

C.NLTD=  000012 

C.EXT 

000015 

C.PRI   000010 

.  ASS. 

000020 

000 

(RW,I,GBL,ABS,0VR) 

000622 

001 

(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

02MSG 

000160R 

$FNPRO= 

******  GX 

03MSG 

000205R 

$GT8UF= 

******  GX 

PROMSG 

000124R 

$PRINT= 

♦*♦*♦♦  GX 

UC.NAH= 

«***♦«  GX 

SSHPRO 

000302RG 

ZF.MfL= 

**♦♦**  GX 

$TMLST= 

******  GX 

$BUFF  = 

******  GX 

$UILD  = 

*«♦*♦»  GX 

$EDMSG= 

******  GX 

Work      file     reads:  0 

Work      file   writes:  0 

Size  of   work   file:  8865  Words      (   35  Pages) 

Size  of   core  pool:  HAAO  Words      (   55  Pages) 

Operating     system:  RSX-11M/PIUS 

SY:SHOPRo!v2;C°32??3°35HO'=RO/CR/-SP=SV:[1,nRSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]SHOPRO 


SHOPRO 


CREATED  BY  MACRO 


29-JUN-85  AT  05:27 
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PUTADR  -  PUT  A  PHASE  ^  ADDRESS 
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379 
380 
381 
382 
383 
38A 
385 
386 
387 
388 
389 
390 
391 
392 
393 
39^ 
395 
396 
397 
398 
399 
400 


.SBTTL  PUTADR  -  PUT  A  PHASE  4  ADDRESS 
•*  PUTADR  -  PUT  A  PHASE  4  NODE  ADDRESS 
INPUT?: 


001216 

001216  010K6 

001220  000241 

001222  006201 

001224  006201 

001226  000301 

001230  042701      177700 

001234  010122 

001236  042716     176000 

001242  012622 

001244  000207 


OUTPUT: 


PUTADR: 


R1   =  NODE   ADDRESS 

R2  =  ARG  LIST  POINTER 

Rl    DESTROYED. 

R2  UPDATED,    TUO  WORD  ADDRESS   PUT    IN  ARG  LIST. 


MOV 

R1,-(SP) 

SAVE  ADDRESS 

CLC 

WANT  HI  ORDER  ZEROES 

ASR 

Rl 

SHIFT  AREA 

ASR 

Rl 

INTO  HI  BYTE 

SWAB 

Rl 

MAKE  THAT  LO  BYTE 

BIC 

#*C77,R1 

ISOLATE  AREA 

MOV 

R1,(R2)+ 

STUFF  AREA  INTO  ARG  LIST 

BIC 

*"C1777,(SP) 

ISOLATE  NODE  ADDRESS 

MOV 

(SP)+,(P2)+ 

STUFF  11  INTO  LIST 

RETURN 
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TMPBUF  -  PARSE  BUFFER  DEFINITIO  MACRO  V05.03b  Saturday  29-Jun-85  05:28 
LOCAL  DATA 

.SBTTL  LOCAL  DATA 


Page  5 


92 

93 

94 

95 

96 

97 

98 

99 

IOC  000000 

101 

000000 

102  000000 

103  000002 

104  000004 

105  000006 

106  000010 

107  000012 

108  000014 

109  000016 

110  000020 

•  11 

000022 

12  000000 

113 

114  000000 

115 

116 

117 

118 

119  000002 

120 

121  000002 

000004 

122  000004 

000310 

123  000006 

000034 

124  000010 

000144 

125  000012 

000004 

126  000014 

000310 

127  000016 

000100 

128  000020 

007726 

129  000022 

OOOOOOG 

130  000024 

000000 

131  000026 

007726 

132  000030 

000001 

133  000032 

000000 

;  LOCAL 

DATA 

;  DEFINE  THE  BUFF 

' 

.ASECT 

.=0 

.BLKW   1 

.BLKU   1 

C.CBNM 

.BLKW   1 

C.CBSZ 

.BLKW   1 

C.RBNM 

.BLKW   1 

C.RBSZ 

.BLKW   1 

C.SBNH 

.BLKW   1 

C.S8SZ 

.BLKW   1 

C.fHSH 

.BLKW   1 

C.LEN= 

.PSECT 

TEMP: 

.BLKW   1 

C.LNK 

C.STS 

CCB  NUMBER 

CCB  SIZE 

RDB  NUMBER 

RDB  SIZE 

SDB  NUMBER 

SDB  NUMBER 

RDB  THRESHOLD  VALUE 

LENGTH  OF  THE  BLOCK 


TEMPLATE  ADDRESS 


DEFINE  THE  LIMITS  TABLE  (  ***  LIMITS  SHOULD  AGREE  WITH  THE  NET6EN  LIMITS  ***) 


JlIMTB:: 


LOCBNM 

.WORD 

4. 

HICBNM 

.WORD 

200. 

LOCBSZ 

.WORD 

28. 

HICBSZ 

.WORD 

100. 

LORBNM 

.WORD 

4. 

HIRBNM 

.WORD 

200. 

L0R8SZ 

.WORD 

64. 

HIRBSZ 

.WORD 

4054. 

LOSBNM 

.WORD 

SMINSB 

LOSBSZ 

.WORD 

0. 

HISBSZ 

.WORD 

4054. 

LOTHSH 

.WORD 

1. 

HITHSH 

.WORD 

0. 

START  OF  TABLE  LIMITS 

GLOBAL  FOR  "GBLPAT"  IF  REQUIRED 

MINIMUM  NUMBER  OF  CCB'S 

MAXIMUM  NUMBER  OF  CCB'S 

MINIMUM  SIZE  OF  CCB'C 

MAXIMUM  SIZE  OF  CCB'S 

MINIMUM  NUMBER  OF  RDB'S 

MAXIMUM  NUMBER  OF  RDB'S 

MINIMUM  SIZE  OF  RDB'S 

MAXIMUM  SIZE  OF  RDB'S 

MINIMUM  NUMBER  OF  SDB'S 

MINIMUM  SIZE  OF  SDB'S 

MAXIMUM  SIZE  OF  SDB'S 

MINIMUM  THRESHOLD  VALUE 

MAXIMUM  THRESHOLD  VALUE,  DEPENDS  ON  #  OF  RDB'S 
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TMPBUF  -  DARSE  BUFFER  DEFINITIO  .'lACRO  V05.03b  Saturday  29-Jun-85  05:28  Page  6 
TPARS  STATE  TSBLFS 


GX 


TMPBUF     CREATED  BY 
SYMBOL  CROSS  REFERENCE 
SYMBOL   VALUE 


SRONLY 
SSDBNM 
SSTRNG 
tSUBXP 
STALOC 
STHRSH 
tTMBUF 
$$$FLG 
$$$KEY 
.PNUMB 
.TPARS 


MACRO  ON  29-JUN-85  AT  05:28 


r   ***♦ t  * 
-  *♦*•♦* 

=  OOOOOA 
=  000010 
=  »*»♦«.  GX 
::  ».♦»..  GX 

00003A  RG 
=  177777 
=  177777 

=    *»*»*♦     GX 

r    »•«♦«»       GX 


REFERENCES 

6-KO 
•12-382 
#6-U0 
#6-K0 

7-208 
♦  U-A-il 
#7-205 
#6-U0 
#6-U0 

8-255 

7-2U 


PAGE 
CREF 
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Ci.OO 


6-UO 


6-140 


9-286 


10-316 


11-349 


12-380 


13-409 


14-439 


14-444 


TMPBUF 
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TMPCHN  CREATED  BY     MAC^O     ON  29-JUN-85   AT   05:29  PAGE   2 

MACRO  CROSS  REFERENCE  CREf       04.00 


MACRO  NAME 

REFERENCES 

CALLR 

DBGTPS 

EPRINT 

ERRORS 

ISTATS 

MTRANS 

#4-124 

#6-141 

#4-78 

#4-67 

#4-124 

#6-141 

#6-151 

7-195 
6-141 

PRINT 

STATES 

TRANS 

SGTNMB 

SGTNUM 

SGTRSO 

#4-62 

#4-124 

#4-124 

#4-100 

#4-90 

#4-112 

6-145 
#6-146 

8-214 

#6-147 
#6-148 

8-216 

#6-149 
#6-150 

#6-153 
#6-151 

#6-155 
#6-154 

#6-161 
#6-156 
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•  *FILE««ID««TMPC-NT 


TMPCNT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:29 
SYMBOL  CROSS  REFERENCE 
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CREf   04.00 


SYMBOL 

VALUE 

REFERENCES 

CNTKTB 

000000  RG 

#5-95 

6-159 

CNTSTB 

000000  RG 

#5-95 

6-160 

CS.CNT 

=  »»•»»•  GX 

6-157 

C.CNT 

000004 

#4-82 

♦7-184 

C.CSR 

000010 

#4-84 

♦9-234 

C.LEN 

=  000016 

#4-87 

6-153 

C.PRl 

000012 

#4-85 

•10-261 

C.STS 

=  •«*»»♦  GX 

»6-157 

C.URM 

000014 

#4-86 

♦6-156 

C.VEC 

000006 

#4-83 

♦8-208 

SETCNT 

000062  R 

#7-182 

SETCSR 

000164  R 

#9-232 

SETPRI 

000222  R 

#10-259 

SETURM 

000262  R 

#11-284 

SETVEC 

000116  R 

#8-206 

TEMP 

000000  R 

#4-74 

•6-155 

SALPHA 

=  000022 

#5-95 

$ANY 

=  000020 

#5-95 

SBLANK 

=  000006 

#5-95 

SDIGIT 

=  000024 

#5-95 

SDNUMB 

=  000014 

#5-95 

$EOS 

=  000012 

#5-95 

SERROR 

=  ♦***♦»  GX 

•6-163 

SEXIT 

=  000000 

#5-95 

$FAIL 

=  177777 

#5-95 

SGPRM 

=  ****** 

5-95 

SLAMDA 

=  000000 

#5-95 

SNUMBR 

=  000002 

#5-95 

$RAD50 

=  000016 

#5-95 

SRONLY 

=  ****** 

5-95 

5-95 

SSTRNG 

=  000004 

#5-95 

SSUBXP 

=  000010 

#5-95 

STALOC 

=  ******  GX 

6-154 

STMCNT 

000002  RG 

#6-151 

$$$FLG 

=  Mmi 

#5-95 

$$$KEY 

=   177777 

#5-95 

. PNUMB 

=  ******  GX 

7-184 

7-187 

10-264 

11-286 

.PNUMH 

=  ******  GX 

7-185 

8-209 

.TPARS 

=  ******  GX 

6-161 

•11-286 


7-183 


8-207 


9-233 


10-260 


11-285 


5-95 


8-208 
9-235 


8-211     8-213 
11-287 


9-234 


9-237 


10-261 


10-262 


TMPCNT 
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TMPCUG     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:29     PAGE  ? 

MACRO  CROSS  RFfERENCE  CREF   OA.OO 


#6-178 


MACRO  NAME 

REFERENCES 

CALLR 

#4-124 

DBGTP$ 

#6-158 

#6-175 

EPRINT 

#4-78 

ERRORt 

#4-67 

7-224 

ISTAT$ 

#4-124 

6-158 

MTRANS 

#6-158 

PRINT 

#4-62 

STATES 

#4-124 

6-162 

#6-184 

#6-189 

TRANt 

#4-124 

#6-163 

#6-181 

#6-183 

tGTNMB 

#4-100 

7-247 

SGTNUM 

#4-90 

7-245 

$GTR50 

#4-112 

7-243 

»<FILE«MD««TMPDDM 


#6-164  #6-166  #6-169  /'6-171  #6-173  #6-176  #6-180  #6-182 

#6-165  #6-167  #6-170  #6-172  #6-174  #6-175  #6-177  #6-178 

#6-185 
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TMPDDM  -  PARSE   DEVICE   PKOCESS   D  MACRO  V05.05b   Saturday   29-Jun-85 
Symbol    table 


(55:3 
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BITS 
BITO 
CS.DDM= 
C.FLG 
C.LEN  = 


NAM 
C.NCT 
C.NLT 
C.PRl 
C.STS  = 
DDMKTB 
DDMSTB 
FLAG 

.  ABS. 

SSTATE 

SKTAB 

$KSTR 


000020R 

OO0O32R 

••*»*•  GX 

000006 

OOOOU 

OOOOOA 

000013 

000012 

000010 

»*«*«»  GX 

OOOOOORG 

OOOOOORG 

OOOOOOR 

OOOOU 
000260 
00023A 
000032 
000063 


002  NCT 

002  PRIOR 
SETFLG 
SETNAM 
SETNCT 
SETNLT 
SETPRI 
TEMP 
ZF 
ZF.COU= 

003  ZF.DDM= 
002  ZF.DIA= 


000212R 

no? 

ZF.DLC= 

GX 

SCATS  = 

****** 

GX 

$STRNG= 

OOOOO'i 

0001 66R 

on? 

ZF.DVP= 

GX 

SDIGIT= 

000024 

$SUBXP= 

000010 

00012'!iR 

ZF.KMX= 

GX 

SC>NUMB= 

OOOOU 

$TALOC= 

******  GX 

000064R 

ZF.LMC= 

GX 

$E0S  = 

000012 

STMDDM 

000004RG 

000230R 

ZF.MAN= 

GX 

$ERR0R= 

****** 

GX 

S$SFLG= 

]77777 

000200R 

ZF.MFL= 

GX 

JEXIT  = 

000000 

SS$KEY= 

98521,^ 

000140R 

ZF.MUX= 

GX 

SFAIL  = 

177777 

$$$STA= 

OOOOJO 

000002R 

ZF.PSE= 

GX 

SLAMDA^ 

000000 

$$$TMP= 

000060R 

000226R 

no? 

ZF.TIM= 

GX 

SMXNCT= 

****** 

GX 

.PNUMB= 

******  GX 

»»»♦*»  GX 

$ALPHA= 

000022 

$MXNLT= 

****** 

GX 

.PSTCN= 

******  GX 

»»•***  GX 

$ANY  = 

000020 

$NUMBR= 

000002 

.PSTPT= 

******  GX 

******   GX 

$8LANK= 

000006 

SRAD50= 

000016 

.TPARS= 

******  GX 

004 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


►•*  Assembler  statistics 


0 

0 

10438  Words 

14440  Words 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  tile: 
Size  of  core  pool : 
Operating  system: 

SY;?MPD[)M!v2![°32?°343tMPDDM/CR/-SP=Sy:[1,l]RSXMCM.SML/ML,[130,110]NETLI8/ML,[132,10]TMPDDM 


(  41  Pages) 
(  55  Pages) 


TMPDDM 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:30 
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TMPDEC  -  CFE  PARSE  DEC$DF  DEFIN  MACRO  V05.05b  Saturday  29-Jun-85 
SETOUT  -  OUTGOING  TIMER 


gs!' 


;0  Page  10 


248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 


.SBTTL  SETOUT  -  OUTGOING  TIMER 
•♦*  -  SETOUT  -  SETUP  OUTGOING  TIMER 

THIS  ACTION  ROUTINE  SETS  UP  THE  OUTGOING  TIMER  VALUE  FOR  THE  EXECUTOR 
INPUT: 


.PNUMB  =  OUTGOING  TIMER 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT 


THE  OUTGOING  TIMER  IS  STORED  IN  C.OUTT  OF  THE  TEMPLATE 


000214 

000214  016700  177560 

000220  116760  OOOOOOG  0000^5 

000226  001406 

000230  005767  OOOOOOG 

000234  001003 

000236  105767  000001G 

000242  001402 

000244  062716  000002 

000250  000207 


SETOUT: 


10$: 
20$: 


MOV 

MOVB 

BEQ 

TST 

BNE 

TSTB 

BEQ 

ADD 

RETURN 


TEMP.RO        ; 

. PNUMB, C.OUTT(RO) 

10$ 

.PNUMH 

10$ 

. PNUMB +1 

20$ 

#2,(SP) 


GET  START  OF  TEMPLATE 

;  STORE  THE  OUTGOING  TIMER 

BR  IF  INVALID  VALUE 

IS  IT  ONLY  A  WORD  VALUE  ? 

BR  IF  NO,  ERROR 

IS  IT  A  BYTE  VALUE  ? 

IF  EQ,  YES  -  OKAY 

ELSE,  REJECT  TRANSITION 


f  15 

TMPDEr  -  CFE  PARSE  DECSDF  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:30  Page  11 
SETINA  -  INACTIVITY  TIMER 


tMPDLC  -  PARSE  DLC  PROCESS  DEFI  MACRO  V05.03b  Saturday  29-Jun-85 

Table  ot  contents 

6-  1S2  STMDLC  -  SETUP  DLC  TEMPLATE 

7-  181  SETNAM  -  SET  UP  PROCESS  NAME 

8-  207  SEFFLG  -  SE'UP  THE  FLAGS  WORP 

9-  225  SETPRl  -  SET  THE  PRIORITY 

10-  251  SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 

11-  271  SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 


Ssl^i 
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TMPDLC  -  PARSE  DLC  PROCESS  DEfl  MACRO  V05.03b  Saturday  29-Jun-85  05:^'  Page  i 
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SHOLIN  -  LIST  LINE  CHARACTERIST  MALRO  V05.03b  Saturday  2<5-Jun-85  05:26 
Symbol  table 


Page  10-1 


CH.DUP- 

CH.Dn  = 

CH.ECH= 

CH.HDT= 

CH.PAR= 

CH.PRM= 

CH.PRT= 

CH.STA= 

CH.SyN= 

CH.TYP= 

CLEAR 

CLEARL= 

CNTBLK 

CNTMSG 

CPA 

CPB 

CPC 

CPD 

CSR 

CSRVAL 

CS.CNT= 

CS.DDH= 

CS.UNT= 

CS.X2P= 

CURSLT 

C.CSR 

C.CST 

C.CWO 

C.CWl 

C.DPR 


000001 

000100 

000002 

000020 

000100 

000200 

000007 

OOOOAO 

000004 

000010 

0007A5R 

000007 

OOU20R 

000252R 

000761 R 

000764R 

000767R 

000772R 

001223R 

0012A0R 

«*•*•♦  GX 

*«♦»♦»  6X 

•»»♦**  GX 

»*♦♦♦»  GX 

000076R 

000012 

OOOOU 

000006 

000010 

000016 


C.LEN  = 

CPRM  = 

C.STS  = 

CUNT 

DDCTBL 

DISPLY 

DPR 

DPRVAL 

DSPOPT 

END 

ERRLIS^ 

ERRX2P 

EX$ERR= 

FL.«TP= 

FL.MUX= 

FL.TRB= 

FL.TRI= 

FMTLIN 

FMTLN2 

FULL 

FULLN  = 

GETSLT 

GETUNT 

GETURM 

HALF 

HALFLN= 

HEADR 

HEADR1 

HISPD 


000020 

♦♦♦**»  GX 

******  GX 

000004 

001330R 

002046R 

001164R 

001211R 

0001 OOR 

000034R 

******  GX 

00064 7R 

000002 

******  GX 

******  GX 

******  GX 

******  GX 

003426R 

003A32R 

000730R 

000004 

003002R 

002260R 

002670R 

000734R 

000004 

000102R 

000145R 

000754R 


HJSPDL= 

000005 

S$LFLG= 

******  GX 

HWP 

001264R 

TBLEN  = 

000034 

LF.ENA= 

******  GX 

TBL1 

001344R 

LF.MFL= 

******  GX 

TBL2 

001364R 

LF.X2P= 

******  GX 

UBE 

000775R 

LINJD 

000226R 

UBF 

001000R 

LINMSG 

000216R 

UBH 

001003R 

L$CNT  = 

******  GX 

U8J 

001006R 

LSNAM  = 

******  GX 

UBK 

001011R 

L$Tf<I  = 

******  GX 

UBL 

001014R 

L$UNT  = 

******  GX 

UBM 

001017R 

OFF 

000742R 

UBN 

001022R 

OFFL  = 

000003 

UBP 

001025R 

ON 

000740R 

U8R 

001030R 

ONL 

000002 

UBS 

001033R 

OPTBLK 

001446R 

UBT 

001036R 

OPTHSG 

00041 3R 

UNT8LK 

00U32R 

0P.CNT= 

000001 

UNTMSG 

000337R 

0P.0PT= 

000004 

URM 

001041R 

0P.STA= 

000010 

URMTBL 

000036R 

OP.UNr= 

000002 

URMVAL 

001070R 

0P.X2P= 

000020 

UC.CNT= 

******  GX 

PR0T8L 

001270R 

WCNAM= 

******  GX 

RATETB 

OOOOOOR 

WC.UNT= 

******  GX 

SCRACH 

001252R 

X$2BSZ= 

******  GX 

SF.ENA= 

******  GX 

X$2HBT= 

******  GX 

STA8LK 

001456R 

X$2L1N= 

******  GX 

STAMSG 

00063 IR 

X$2RTC= 

******  GX 

S$LCTr=: 

******  GX 

X$2RrT= 

******  GX 

.  ABS. 

000020 

000 

003562 

001 

TEXT 

000105 

002 

Errors 

detected: 

0 

(RW,I,GBL,ABS,0VR) 
(RU,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


♦♦♦  Assembler  statistics 


0 

0 

10195  ulords      (   40  Pages) 

14440  Words      (    55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system: 

SY?sSoLIN!v2!Ll'32?1^4]SHOLIN/CR/-SP=Sr:[l,1]RSXMCM.SML/ML,[130,110]NETLI8/nL,[132,10]SHOLIN 


X$2WSZ= 

******  GX 

X2PBLK 

001466R 

X2PBL2 

001500R 

X2PSL3 

001504R 

X2PLIN 

00071  OR 

X2PHSG 

000422R 

X2PMS2 

000474R 

X2PMS3 

000545R 

$BUFF  = 

******  GX 

$C8DMG= 

******  GX 

$CBOHG= 

******  GX 

$CBTA  = 

******  GX 

$CFERR= 

******  GX 

$CNTNM= 

******  GX 

$C5TA  = 

******  GX 

$DVNAM= 

******  GX 

$EDMSG= 

******  GX 

$FLAGS= 

******  GX 

$FNPRO= 

******  GX 

$FNSLT= 

******  GX 

$FNSTA= 

******  GX 

$GTBUF= 

******  GX 

$PRINT= 

******  GX 

SSHLIN 

001510RG 

$TMLST= 

******  GX 

$UNTNM= 

******  GX 

SWILD  = 

******  GX 

$$$   = 

000015 

$$$1  = 

000070R 

002 


SHOLIN 
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SHOLOG  -  LIST  LOGGING  OPTIONS   MACRO  V05.0?b  Saturday  29-Jun-85  05:26 
PRTSNK.  -  PRINT  SINK  TYPE  MESSAGE 


"age  8 


?55 
25i 
255 
256 
257 
258 
259 
260 
261 
262 
263 
26^ 
265 

266  000620 

267  00062A 

268  000630 

269  000632 

270  000636 

271  0006AA 

272  0006A6 

273  000652 
27A  000654 

275  000660 

276  000666 

277  000670 

278  000674 

279  000702 

280  000706 

281  000712 

282  000716 

283  000726 


012702 
032703 
00K06 
012712 
012762 
000416 
032703 
001406 
012712 
012762 
000405 
012712 
012762 
012700 
012701 
004767 

000207 


000316' 
000001 

000007 
000302'  000002 

000002 

000004 
000276'   000002 

000007 

000267'  000002 
OOOOOOG 
000166' 
OOOOOOG 


.SBTTL  PRTSNK  -  PRINT  SINK  TYPE  MESSAGE 


PRTSNK  -  PRINT  SINK  TYPE  MESSAGE 

INPUTS: 

R3  -  SINK  TYPE 

OUTPUTS: 

THE  SINK  TYPE  MESSAGE  IS  DISPLAYED 


PRTSNK: 


10$: 


20$: 
30$: 


MOV 

BIT 

BEO 

MOV 

MOV 

BR 

BIT 

BEQ 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

CALL 


#MSGBLK,R2 

#FF.C0N,R3 

10$ 

#C0NL,(R2) 

*CONSLE,2(R2) 

30$ 

ffFF.FIL,R3 

20$ 

#FJLEL,(R2) 

#FILE,2(R2) 

30$ 

#M0NL,(R2) 

#M0NITR,2(R2) 

#$8UFF,R0 

#SNKMSG,R1 

$EDMSG 


PRINT   #$BUFF 
RETURN 


POINT  R2  AT  ARGUMENT  BLOCK 

LOGGING  CONSOLE? 

BR  IF  NO 

STORE  LENGTH  OF  STRING 

STORE  ADDRESS  OF  STRING 

CONTINUE 

LOGGING  FILE? 

BR  IF  NO 

STORE  LENGTH  OF  STRING 

STORE  ADDRESS  OF  STRING 

CONTINUE 

ELSE   MUST  BE   LOGGING  MONITOR   -   STORE   LENGTH 

STORE  ADDRESS   OF    STRING 

POINT  AT  OUTPUT   STRING 

POINT  AT   INPUT    STRING 

FORMAT   THE   STRING 

PRINT   THE   LOGGING   TYPE 


SHOLOG   -   LIST   LOGGING  OPTIONS 
PRTCIT4    -    PRIM    infiniNG    STATF 
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SHOMOD  -  LIST  MODULE  CHARACTERI 
MACRO  CALLS  AND  DEFINITIONS 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8-4 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 


F  3 

MACRO  V05.03b  Saturday  29-Jun-85  05:26  Page  4 

.SBTTL   MACRO  CALLS  AND  DEFINITIONS 
MACRO  CALLS 

.MCALL   CALLR 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

.IF  DIF  <TEXT>,<RO> 

MOV  TEXT.RO 

.ENDC 

':'\LL  SPRINT 

.fNDM  PRINT 

.MACRO  ERRORS  TEXT 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  Tr,t  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 
MOV     TEXT.RO 
.ENDC 

call   scfer1 
.endm  eprint 

generate  a  string 

.macr:  string  name, text 
name:   .ascii  /text/ 

name'l  =  .  -  name 

.ENDM 
GENERATE  TEXT  AND  FORMATTING  TABLES 


.MACRO  BEGTXT,  NAME 

SSTTXO  =  0 

SSOBIT  =  2 

.MACRO   TEXT,  NARG,  OPT,  STR 

SSTTXO  =  SSTTXO  t  1 

.IIF  NB  <OPT>  'OPT  =  SSOBIT 

SSOBIT  =  SSOBITtSSOBIT 

SSSST,'^  <SIR>, NAME,  \SSTTXO,\' NARG 

.ENDM   TEXT 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


START  A  TABLE 


GENERATE  STRING 
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SHOMOD  -  LIST  MODULE  CHARACTERI  MACRO  V05.03b  Saturday  29-Jun-85  05:26  Page  4-1 
MAi'Rn  CAI  I  <;  AND  DEFINITIONS 
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SHOMOD  -  LIST  MO[)ULE  CHARACTERI  MACRO  V05.03b  Saturday  29-Jun-85  05:26     Page  H 


601 
602 
603 
6CA 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6U  00346A 

615  003A6A 

616  003470 

617  003474 

618  003500 

619  003504 

620  003510 

621  003514 

622  003522 

623  003530 
624 

625 
626 
627 

628  003534 

629  003544 

630  003554 

631  003564 
632 

633 


.SBTTL 

.SBTTL  $SHX29  -  SHOW  MODULE  X29-SERVER 

*»*  -  $SHX29  -  SHOU  MODULE  X29-SERVER 

INPUT: 


SOPRND  =  TYPE  OF  REQUEST 


012705  003534' 

012704  OOOOOOG 

012724  000012 

012724  001706' 

016703  OOOOOOG 

042703  OOOOOOC 

012767  177777  174270 

012767  115447  174260 


003566'  000000  000017 

004252'  OOOOOOG  000017 

004252'  OOOOOOG  000022 
000000 


OUTPUT 


$SHX29: 


THE  HEADER  IS  PRINTED  AND  THE  SHOW  INFORMATION  ROUTINE 
IS  DISPATCHED  TO 


MOV 
MOV 
MOV 
MOV 
MOV 

eic 

MOV 
MOV 
CALLR 

DISPATCH  TABLE 


point  to  dispatch  table 
point  to  argument  block 
module  is  x29-server 

get'request  type 


#X29DTB,R5 

#$HDRBK,R4 

#X29L,(R4)t 

#X29,(R4)t 

SOPRND, R3      .  ._   _  __. 

#*C<X9.DST1X9.KND>,R3  ;  CLEAR  DONT  CARE  BITS 


*-1, OPTIONS 

#*RX29,DTYPE 

DISPAT 


WANT  ALL  OUTPUT 

X25  DESTINATIONS  ONLY 

DISPATCH  TO  ROUTINE 


.NLIST  BEX 
X29DTB:  .WORD   X29CHA,  0 
.WORD 
.WORD 
.WORD 
.LIST 


CHARL,   CHAR 
SHODST;  X9.D5T,  CHARL,   CHAR 
SHODST,  X9.KND,  KDSTL,  KDST 
0 
BEX 


CHARACTERISTICS 

DESTINATION 

KNOWN  DESTINATIONS 


G  4 

SHOMOD  -  LIST  MODULE  CHARACTERI  MACRO  V05.03b  Saturday  29-Jun-85  05:26 
yPgCHA  -  SHOW  X?9  server  CHARACTERISTICS 
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F     5 

PAGE   2 
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SYMBOL     VALUE 


0STM10 

DSTM2 

DSTM3 

DSTMA 

DSTM5 

0STM6 

0STH7 

DS.CHI 

DS.CLO 

DS.CUG 

DS.MSK 

DS.NUM 

DS.OPT 

DS.VAL 

DTEBK 

DTEBl 

DTEB2 

DTEB5 

DTEFT 

PTEMI 

DTEM2 

0TEM3 

DTYPE 

DSACUG 

DSANUM 

DSASHI 

DSASLO 

D$CMS< 

D$CVAL 

DSSNAM 

DSSOBJ 

DSSPRI 

DSSTSK 

DSSTYP 

DSTADR 

DSTCT 

DSTHSH 

DSTLIM 

DSTSTA 

ERRREQ 

EXtERR 

FL.MTP 

FL.MUX 

FL.TRB 

FMTLN2 

FMTRNM 

FMTRNl 

FMTSRN 

fMTSRI 

FMT2R5 

HDRMSG 

HDRPRT 


001505  R 
001312  R 
001350  R 
001367  R 
00U05  R 
00H33  R 
001A62  R 
000100 
000040 
000020 
000200 
000010 
000770 
000400 
000000  R 
000000  R 
000012  R 
000020  R 
001046  R 
000724  R 
000740  R 
001001   R 
000010 


=  ****** 
=  ****** 
=  ****** 
-  ****** 
=  ****** 


-  ****** 

::  ****** 


-  ****** 
~  ****** 
=  ****** 

000130 
=  000002 

-  ****** 

-  ****** 
=  ****** 

004126 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 


000255  R 


000250 
000265  , 
000275  R 
000300  R 
000213  R 
000000  R 


REFERENCES 

#5-230 
#5-224 
#5-225 
#5-226 
#5-227 
#5-228 
#5-229 
#5-228 
#5-227 
#5-226 
#5-229 
#5-225 
#5-232 
#5-230 
#5-202 
#5-202 
#5-202 
#5-202 
#5-202 
#5-199 
#5-200 
#5-201 
#5-162 

21-881 

21-880 

21-883 

21-882 

2'' -888 

21-839 

21-836 

21-867 

21-861 

21-871 

21-832 

8-364 

8-379 

8-385 

8-388 

8-382 
#5-173 
#5-171 

20-801 

8-392 

20-803 

8-393 
#5-180 
#5-179 
#5-18i 
#5-182 
#5-183 
#5-178 
#5-158 


5-231 
5-231 
5-231 
5-231 
5-231 
5-231 
5-231 
5-232 
5-232 
5-232 
5-232 
5-232 
21-857 
5-232 
8-373 
5-202 
5-202 
5-202 
8-397 
5-202 
5-202 
5-202 
♦12-561 


:i-838 


8-375 


18-73^ 
5-173 

20-795 

#20-789 
9-423 
9-426 

21-865 

21-869 

19-758 

-18-722 


21-883 
21-882 
21-881 
21-888 
21-880 

21-889 
*8-395 


H4-622 


*8-396 


21-832 


21-849  21-851 


10-496 


21-847 


21-859 


21-860 


18-732  19-755 


♦19-757 


SHOMOD 
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CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CLEAR 

000266 

R 

#4-104 

4-105 

5-155 

CLEARL 

=  000007 

#4-105 

5-154 

CL.LEN 

=  000020 

#4-57 

CS.LLC 

::     **  +  *t* 

GX 

5-162 

C.CTM 

000016 

#4-57 

C.DEV 

000012 

#4-57 

C.EXT 

000015 

#4-57 

C.FLG 

0OO0C6 

#4-57 

5-152 

C.LIN 

000011 

#4-57 

C.NAM 

OOOOO'i 

#4-57 

5-144 

C.NCTD 

=  00001? 

#4-57 

5-178 

C.NLT 

OOOOH 

#4-57 

5-167 

C.NLTD 

=  000012 

#4-57 

5-176 

C.PRI 

000010 

#4-57 

C.STS 

=      ****** 

GX 

5-162 

HEADR 

000000 

R 

#4-96 

5-12^ 

HEADRI 

0000A6 

R 

#4-97 

5-127 

MSGBLK 

000276 

R 

#4-108 

5-143 

5-149 

5-160 

ON 

00026A 

R 

#4-102 

4-103 

5-151 

ONL 

=  000002 

#4-103 

5-150 

01MSG 

OO0U2 

R 

#4-99 

5-157 

02MSG 

000160 

R 

#4-100 

5-169 

03MSG 

000205 

R 

#4-101 

5-180 

PROMSG 

0001 2A 

R 

#4-98 

5-146 

WC.NAM 

=  ****** 

GX 

5-125 

ZF.MFL 

=  ****** 

GX 

5-152 

SBUFF 

-  ****** 

GX 

5-128 
5-182 

5-131 

5-145 

5-148 

5-156 

SEDMSG 

=  ****** 

GX 

5-130 

5-147 

5-158 

5-170 

5-181 

SFNPRO 

-  ****** 

3X 

5-137 

SGTBUF 

=  ****** 

GX 

5-129 

SPRINT 

=  ****** 

GX 

5-131 

5-148 

5-159 

5-171 

5-182 

SSHPRO 

000302 

RG 

#5-123 

STMLST 

-      ****** 

GX 

5-132 

SWILD 

-      ****** 

GX 

5-125 

5-159 


5-168 


5-1/1 


5-179 


SHOPRC 
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Page  8 


^02 
^03 
^OA 
^05 
A06 
^07 
408 
409 
410 
411 

412  001246 

413  001252 
414 

415  001256 

416  001260 

417  001262 

418  001270 

419  001272 

420  001300 

421  001302 

422  001 3C6 

423  001310 

424  001316 

425  001320 
426 

427  001324 

428  001330 
429 

430  001534 

431  001340 

432  001344 

433  001546 

434  001352 

435  001356 

436  001360 

437  0C1366 

438  001370 
459  001374 

440  001376 

441  001402 
^42  001404 
445 

444  001406 

445  001412 

446  001414 

447  001420 

448  C01422 
449 

450  001424 

451  001430 

452  001432 

453  001456 

454  001440 

455  001450 
456 

457  001454 

458  001460 


.SBTTL  GETDLL  -  GET  DOWNLINE  LOAD  INFO 
♦*  GETDLL  -  GET  DLL  INFO 
INPUT:       R5  =  TEMPLATE  ADDRESS 
OUTPUT:       DLL  INFO,  IF  ANY,  IS  PRINTED 


004767  OOOOOOG 
012701  OOOOOOG 


011101 
001554 
126127 
001572 
026165 
001366 
010167 
011101 
126127 
001116 
010167 


GETDLL: 


10$: 


012704 
012700 

062704 
016401 
001473 
116402 
016405 
001415 
152764 
001016 
016705 
001757 
050565 
001754 
000407 

005767 
001750 
066702 
011202 
001744 

105764 
100011 
020027 
001406 

012700 

020027 
001405 


OOOOOOG  OOOOOOG 

000006  000010 

177056 

OOOOOOG  OOOOOOG 

177022 

000540' 
OOOOOOG 


000010 
000000 

000002 
000006 

000100 

176750 

000004 

176754 
176726 

000003 
OOOOOOG 

OOOOOOG 
OOOOOOG 


20$: 


000003 


25$: 


30$: 


52$: 


CALL 
MOV 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BNE 

MOV 

MOV 

CMPB 

BNE 

MOV 

MOV 
MOV 

ADD 

MOV 

BEQ 

MOVB 

MOV 

BEQ 

81 T8 

BNE 

MOV 

BEQ 

BIT 

BECl 

BR 

TST 
BEQ 
ADD 
MOV 
BEC 

TST8 

BPL 

CMP 

BEQ 

PRINT 

MOV 

CMP 
BEQ 


$SAVAL 
#$TMLST,R1 


save  registers 

point  to  template  list 


(Rl) 
60$ 


Rl 


next 
if  EQ, 


no  information 


C.STS(R1),#CS.SEfe  ;  is  it  a  SER$DF  ? 

10$ 

S$ADD(R1) 

10$ 

RI.SERPT 

(r1),R1        ; 

C.STS(R1),#CS.FIL 

101$ 

R1,F1LPT 


.  fir  i  f  no 
C.ADD(R5)  ;  is  it  for  this  remote 
;  if  ne,  no 
;  else  save  pointer 
:  point  to  next  guy 
;  is  this  a  FIC$6f  ? 
if  NE,  big  trouble 
save  FIL$DF  pointer 


#DLLTBL-A$LEN,R4;  point  to  control  table 
*$aUFF,R0      ;  point  to  output  buffer 


#A$LEN,R4 

A$STR(R4),R1 

50$ 

A$OFS(R4),R2 

A$FLG(R4),R3 

25$ 

#100,A$ARG(R4) 

50$ 

SERPT,R5 

20$ 

R3,S$FLG(R5) 

20$ 

30$ 

FILPT 
20$ 

FILPT, R2 
(R2),R2 
20$ 

A$ARG(R4) 

32$ 

R0,#$BUFF 

32l 

#$8UFF 

#$BUFF,RO 

RO,«$BUFF 
35i 


;  point  to  next  entry 

;  point  to  text  string 

;  if  EQ,  end  of  table 

;  get  offset 

;  get  flags 

;  if  EQ,  process  this  one  unLuTCi i tionally 

;  file  parameter  ? 

;  if  NE,  yes 

;  point  to  SER$DF 

;  if  EQ,  no  SER$DF  present  -  loeo  going 

;  is  this  field  present  in  SEP$DF  1 

;  if  EQ,  no  -  keep  going 

;  FIL$DF  present  ? 

;  if  EQ,  no 

;  point  to  template 

;  point  to  file  descriptor 

;  if  EQ,  not  parsed 

;  EOL  before  this  line  ? 

;  if  PL,  no  -  continue 

;  empty  line  ? 

;  yes 

;  else  output  buffer 

;  reset  buffer  pointer 

;  first  parameter  on  text  line  ? 

;  if  EQ,  yes 
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9 

10 
11 

1^ 

1  ^ 

:5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

21 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


.TITLE  SHOSYS  -  CFE  SHOW  SYSTEM  PARAMETERS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  SHOW  SYSTEM  DEFAULTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi'cro/RSX  VI. 0 


.MACRO  PRINT   TEXT 
MOV     TEXT.RO 
CALL    SPRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 
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Page  6 


135 

136 

137 

138 

139 

UO  00003A 

U1 

K2 

1A3  00003A 

U'.  00003A 

U5 

V,6  00003^ 

1A7  00003A 

iA8 

H9  00003A 

150  000034 

151 

152  000034 

153  000034 
154 

155  000034 

156  000034 
157 

158  000034 

159  000034 
160 

161  000034 

162  000034 
163 

1b4  C00034 
165  000034 
166 

167  000034 

168  000034 
169 

170  000034 

171  000034 
172 

173  000034 

174  000034 
175 

176  000034 

177  000034 
178 

179  000034 

180  000034 
181 

182  000034 

183  000034 

184  000034 
185 

186 
187 
188  000034 


.SBTTL  TPARS  STATE  TABLES 
INITIALIZE  TABLES 

ISTATS  BUFSTB,BUFKTB 

PROCESS  "BUFSDF" 
STATES 
TRANS  SNUMBR,,SETCSN 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,SETCBS 

STATES 
TRANS  <",> 

STATES 
TRANS  SNUMBR,,SETRBN 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM6R,,SETRBS 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETS8N 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETSBS 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,SETTHR 

STATES 
TRANS  SE0S,SEXIT 
TRANS  SLAMDA,SEXIT 

FINAL  STATE 

STATES 


TMPBUF 
STMBUF 


PARSE  BUFFER  DEFINITIO  MACRO  V05.03b  Saturday  29-Jun-85 

BUILD  BUFFER  TEMPLATE 


§5:^ 
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MACRO  CROSS  REFERENCE 
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CREf   0^.00 


MACRO  NAME 

DBGTPS 

EPRINT 

ERRORS 

ISTATS 

MTRANS 

PRINT 

STAGES 

TRANS 


REFERENCES 

#t-KO 

111,-77 

ItA-bb 

#4-90 

#6-140 

#4-61 

#4-90 

#6-170 

#4-90 

#6-171 


#6-184 


6-UO 


6-143 
#6-173 
#6-144 
#6-174 


#6-U6 
#6-176 
llb-H7 
llb-\77 


#6-149 
llb-179 
#6-150 
#6-180 


#6-152 

#6-155 

#6-158 

#6-161 

#6-164 

#6-167 

#6-182 

#6-188 

#6-153 

#6-156 

#6-159 

#6-162 

#6-165 

#6-16S 

#6-183 

#6-184 
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••f  !LE'MD'«TMP^-NT 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

CCCCCCCC 

NN 

NN 

TTTTT 

TTTTT 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

crcccccc 

NN 

NN 

TTTTT 

mil 

MMM^ 

MMMM 

PP      PP 

NN 

NN 

MMMI* 

MMMM 

PP      PP 

NN 

NN 

MM 

m    MM 

PP      PP 

NNNN 

NN 

MM 

m    MM 

PP      PP 

mm 

NN 

MM 

MM 

PPPPPPPP 

NN 

NN  NN 

MM 

MM 

PPPPPPPP 

NN 

NN  NN 

MM 

MM 

PP 

NN 

NNNN 

MM 

MM 

PP 

NN 

NNNN 

MM 

MM 

PP 

NN 

NN 

MM 

MM 

PP 

NN 

NN 

MM 

MM 

PP 

CCCCCCCC 

NN 

NN 

MM 

MM 

PP 

CCCCCCCC 

NN 

NN 

SSSSS5SS 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LlLLLLLLLL 

ssssssss 

G  11 

TMPCNT  -  PARSE  CONTROLLER  OEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:29 
Table  of  contents  


F  12 
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MACRO  CROSS  REFERENCE  CREf        0^-00 

MACRO  NAME  REFERENCES 

DBGTP$  #5-95  #5-123 

ISTATt  #4-68  5-95 

MTRANt  #5-95 

STATES  #t-68  5-97  #5-100  #5-103  #5-106  #5-109  #5-112  #5-115  #5-118  #5-121 

TRANS  till'  n:li'  ll-]l°^  il'-m  lt\^  #5-110  #5-113  #5-116  #5-119  #5-122 

#5-123  #5-126  #5-129  #5-131  #5-13^!, 
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'FILE««ID'«TMPDDM 


TTTTT 

ITTTT 

MM 

MM 

PPPPPPPP 

DDDDDDDD 

DDDDDDDD 

MM     MM 

TTTTT 

TTTTT 

MM 

MM 

PPPPPPPP 

ODDODDDD 

DDDDDDDD 

MM     MM 

MMM^ 

MMMM 

PP     PP 

DD 

DD 

DD 

DD 

MMMM  MMMM 

MMMM 

MMMM 

PP     PP 

DD 

DD 

DD 

DD 

MMMM  MMMM 

MM 

*1M  MM 

PP     PP 

DD 

DD 

DD 

DD 

MM  MM  MM 

MM 

MM  MM 
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DD 

DD 

DD 

DD 

MM  MM  MM 

MM 

MM 

PPPPPPPP 

DD 

DD 

DD 

DD 

MM     MM 

MM 

MM 

PPPPPPPP 

DD 

DD 

DD 

DD 
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MM 

MM 

PP 

DD 

DD 

DD 
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MM 

MM 

PP 

DD 

DD 

DD 

DD 
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MM 

MM 

PP 

DD 

DD 

DD 

DD 
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MM 

MM 

PP 

DD 

DD 

DD 

DD 

MM     MM 

MM 

MM 

PP 

DDDDDDDD 

DDDDDDDD 

MM      MM 

MM 

MM 

PP 

DDDDDDDD 

DDDDDDDD 

MM     MM 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

SSSS5S 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

G  13 

TMPDDM  -  PARSE  DEVICE  PROCESS  D  MACRO  V05.03b  Saturday  29-Jun-85  05:30 
Table  of  contents 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CS.DDM 

r     ****** 

GX 

6-176 

C.FLG 

000006 
=  OOOOU 

#4-84 

♦8-228 

C.LEN 

#4-88 

6-173 

C.NAM 

OOOOOA 

#4-83 

•7-207 

C.NCT 

000013 

#4-87 

♦11-291 

C.NLT 

000012 

#4-86 

♦6-177 

C.PRl 

000010 

#4-85 

•9-249 

C.STS 

~    **■*•♦* 

GX 

♦6-176 

DDMKIB 

000000 

RG 

#5-95 

6-179 

0DM5TB 

000000 

RG 

#5-95 

6-180 

FLAG 

000000 

R 

#4-74 

8-228 

SETFLG 

000124 

R 

#8-226 

SETNAM 

000064 

R 

#7-202 

SETNCT 

000230 

R 

#11-289 

SETNLT 

000200 

R 

#10-269 

SETPRI 

OOOHO 

R 

#9-247 

TEMP 

000002 

R 

#4-75 

•6-175 

SALPHA 

=  000022 

#5-95 

$ANY 

=  000020 

#5-95 

SBLANK 

=  000006 

#5-95^ 

ICAT5 

=  ****** 

GX 

7-205 

$DIG!T 

=  00002A 

#5-95 

SDNUMB 

=  OOOOU 

#5-95 

$EOS 

=  000012 

#5-95 

SERROR 

=      ****** 

GX 

♦6-183 

SEXIT 

=  000000 

#5-95 

SFAIL 

=   177777 

#5-95 

SGPRM 

-   ****** 

5-95 

SLAMDA 

=  000000 

#5-95 

SMXNCT 

=    ****** 

GX 

11-292 

SMXNLT 

=    ****** 

GX 

10-272 

SNUMBR 

=  00000? 

#5-95 

$RAD50 

=  000016 

#5-95 

SRONLY 

=   ****** 

5-95 

5-95 

SSTRNG 

=  OOOOOA 

#5-95 

$SUE   P 

=  000010 

#5-95 

STALOC 

-    ****** 

GX 

6-174 

STMDDM 

000004 

RG 

#6-171 

$$$FLG 

=   177777 

#5-95 

$$$KEY 

=   T77777 

#5-95 

. PNUMB 

~   »***-* 

GX 

9-249 

9-250 

.PSTCN 

=   ****** 

GX 

7-208 

.PSTPT 

=   ****** 

GX 

7-205 

.TPARS 

=   ****** 

GX 

6-181 

•10-271 


7-206 


8-227 


9-248 


10-270 


11-290 


5-95 


9-252 


10-271 


10-272 


11-291 


11-292 
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TMPDEC  - 
SETINA  - 

274 
275 
276 
277 
278 
279 
280 
281 
282 
285 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
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CFF  PARSE  DECSDF  DEfIN  MACRO  V05.03b  Saturday  29-Jun-85  05:30  Page  11 
INACTIVITY  TIMER 


000252 
000252 
000256 
000264 
000266 
000272 
000274 
000300 
000302 
000306 


016700 
116760 
001406 
005767 
001003 
105767 
001402 
062716 
000207 


.SBTTL   SETINA  -  INACTIVITY  TIMER 
♦•♦  -  SETINA  -  SETUP  INACTIVITY  TIMER 

THIS  ACTION  ROUTINE  SETS  UP  THE  INACTIVITY  TIMER  VALUE  FOR  THE  EXECUTOR 
INPUT: 


.PNUMB  =  INACTIVITY  TIMER 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


THE  INACTIVITY  TIMER  IS  STORED  IN  C.INAC  OF  THE  TEMPLATE 


177522 
OOOOOOG  000014 

OOOOOOG 

000001 G 

000002 


SETINA: 


10$: 
20$: 


MOV  TEMP.RO        ; 

M0V8  . PNUMB, C.INAC(RO) 

BEQ  10$ 

TST  .PNUMH 

BNE  10$ 

TST6  .PNUM8+1 

BEQ  20$ 

ADD  #2,(SP) 

RETURN 


GET  START  OF  TEMPLATE 

;  STORE  THE  INACTIVITY  TIMER 

BR  IF  INVALID  VALUE 

IS  IT  ONLY  A  WORD  VALUE  ? 

BR  IF  NO  -  ERROR 

IS  IT  A  BYTE  VALUE  ? 

IF  EQ,  YES  -  OKAY 

ELSE,  REJECT  TRANSITION 
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i 


1 
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3 

5 
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7 

8 
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11 

:2 
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21 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
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38 
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41 
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.TITLE 
.IDEM 


IMPDLC  -  PARSE  DLC  PROCESS  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
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TRANSFERRED. 
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MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  DLC  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-llM/S  V3.0 
DECNET-11M-PLUS  vl.O 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-llM-PLUS  71.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi'cro/RSX  Vl.O 


ITS 
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PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CH.DUP 

=  000001 

7-447 

CH.MDT 

=  000020 

7-486 

CH.TYP 

=  000010 

7-483 

CLEAR 

000745  R 

#4-214 

4-215 

9-627 

CLEARL 

=  000007 

#4-215 

9-626 

CNTBL< 

001420  R 

4-269 

#4-277 

*5-335 

•5-336 

•5-337 

CNTMSG 

000252  R 

#4-193 

4-260 

CPA 

000761    R 

4-146 

#4-220 

CPB 

000764   R 

4-147 

#4-221 

CPC 

000767  R 

4-148 

#4-222 

CPD 

000772  R 

4-149 

#4-223 

C5R 

001223  R 

#4-240 

»7-441 

*7-505 

7-512 

CSRVAL 

001240  R 

#4-241 

7-513 

CS.CNT 

=   •*»»♦*      GX 

5-325 

5-349 

CS.DDM 

=   ♦««*»*      GX 

5-314 

CS.UNT 

=   »«.«**      GX 

5-345 

CS.X2P 

-   «»*»»*      GX 

9-607 

CURSLT 

000076  R 

#4-163 

*5-319 

9-589 

•9-595 

C.CSR 

000012 

#4-175 

7-510 

C.CST 

000014 

#4-176 

C.CUO 

000006 

#4-173 

7-447 

7-456 

C.CW1 

000010 

#4-174 

7-475 

7-483 

7-486 

C.DPR 

000016 

#4-177 

7-496 

C.LEN 

=  000020 

#4-178 

CPRM 

=   »♦»»**      GX 

5-316 
8-538 

5-318 
9-643 

5-332 
9-645 

5-334 

5-335 

C.STS 

=   ******      GX 

5-314 

5-325 

5-345 

5-349 

9-607 

CUNT 

000004 

#4-172 

ODCTBL 

001330  R 

#4-255 

7-491 

7-492 

DISPLY 

002046  R 

5-360 

#6-379 

DPR 

001164   R 

#4-238 

7-498 

DPRVAL 

001211    R 

#4-239 

7-499 

DSPOPT 

000100  R 

#4-164 

6-391 

•7-435 

•7-506 

•7-518 

END 

000034   R 

#4-138 

4-140 

ERRLIS 

=   *♦»*»*      GX 

6-417 

ERRX2P 

000647  R 

#4-201 

9-625 

EXSERR 

=  000002 

#4-183 

4-201 

FL.MTP 

=  *»»»*»     GX 

6-396 

9-636 

9-652 

10-689 

FL.MUX 

-.   *.....      GX 

5-352 

10-683 

FL.TRB 

i   *«««»*      GX 

6-402 

6-412 

10-691 

FL.TRI 

=   »*.»*.      GX 

5-307 

6-400 

9-638 

9-654 

FMTLIN 

003426  R 

6-382 

6-403 

#10-675 

FMTLN2 

003432   R 

9-624 

#10-676 

FULL 

000730  R 

#4-206 

4-207 

7-446 

FULLN 

=  000004 

#4-207 

7-445 

GETSLT 

003002  R 

6-380 

#9-586 

GETUNT 

002260  R 

5-359 

#7-435 

GETURM 

002670  R 

5-338 

#8-535 

HALF 

000734   R 

#4-208 

4-209 

7-450 

HALFLN 

-  000004 

#4-209 

7-449 

HE  ADR 

000102  R 

#4-189 

5-298 

HEADRi 

000145  R 

#4-190 

5-301 

•8-536 


•8-537 


•8-551 


•8-552 


5-336 


•9-615 


5-337 


5-356 


5-358 


SHOLIN 
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H  1 


SHOLOG 
PRTSTA 


LIST  LOGGING  OPTIONS 
PRINT  LOGGING  STATE 


285 
286 
287 
288 
289 
290 
291 
292 
293 
29^ 
295 
296 
297 
298 

299  000730 

300  000734 

301  000740 

302  000746 

303  000752 

304  000754 

305  000760 

306  000766 

307  000772 

308  000776 

309  001002 

310  001012 
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.SBTTL  PRTSTA  -  PRINT  LOGGING  STATE 


PRTSTA  -  PRINT  LOGGING  STATE 

INPUTS: 

STATE  -  LOGGING  STATE  WORD 
R3  -  LOGGING  SINK  TYPE 

OUTPUTS: 

THE   LOGGING   STATE   MESSAGE    IS   DISPLAYED 


012702  000316'  PRTSTA:   MOV  #MSGeLK,R2 

012712  000003  MOV  #0FFL.(R2) 

012762  00026A'    000002  MOV  #OFF,2(R2) 

130367  177343  BITS  R3, STATE 

001405  BEQ  10$ 

012712  000002  MOV  *0NL.(R2 

012762  000262'   000002  MOV  #0N,2(R2) 

012700  OOOOOOG  10$:    MOV  #$eUFF,RO 

012701  000230'              MOV  *STAMSG,R1 
004767  OOOOOOG              CALL  $EDMSG 

PRINT  *$BUFF 
000207                     RETURN 


POINT  R2  AT  ARGUMENT  BEVTK 
ASSUME  SINK  TYPE  IS  OFF 

IS  THIS'SINK  TYPE  ON? 
IF  EQ,  NO  ..  OKAY 
ELSE,  CHANGE  MESSAGE 

POINT  RO'aT  OUTPUT  BUFFER 
POINT  R1  AT  INPUT  STRING 
EDIT  THE  STRING 
PRINT  THE  LINE 


SHOLOG  -  LIST  LOGGING  OPTIONS   MACRO  V05.03b  Saturday  29-Jun-85  05:26  Page  10 

PPTFUT  -  PRIMT  FUFNT  fHARAC TFRST I CS 
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112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

Kl 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 


'NAME'BK: 


' NAME ' F  T 


.MACRO  ENDTXT 
.PSECT  ARG8LK,D,0VR 
.HF  NDF  $$BASE  $$BASE  = 
.=$$BASE 


BUILD  ARG  BLOCK  AND  FORMATTING  TABLE 


$$TTX1 

=  1 

.REPT 

$$TTXO 

$$$8LK 

NAME,\$$TTX1 

$$TTX1 

=  $$TTX1  +  1 

.ENDR 

.PSECT 

.EVEN 

$$TTX1 

=  1 

.REPT 

$$TTX0 

$$$FMT 

NAME,\$$TTX1 

$$TTX1 

=  $$TTX1  +1 

.ENDR 

.WORD 

0 

.ENDM 

ENDTXT 

.ENDM 

BEGTXT 

.MACRO  $$$STR  TEXT, NAM, NUM,NUM2 
'NAM'M'NUM:     .ASCJZ  /TEXT/ 
$$TT'NUM  =  'NUM2 
.EN5M   $$$STR 


.MACRO 

$$$BLK 

NAM,NUM 

'NAM'B'NUM: 

.8LKW 

$$TT'NUM 

.ENDM 

$$$8LK 

.MACRO 

.WORD 

.ENDM 

.MACRO 
JSR 
.WORD 
.ENDM 


$$$FMT      NAM.NUM 
'NAM'M'NUM, 'NAM'B'NUM 
$$$FMT 

OPTION  0FFS,WC,CS8IT,DSeiT 

R4,   MOVOPT 

OFFS,    WC,    DS8IT,    CS8IT 
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635 
636 
637 
638 
639 
6A0 
641 
642 
643 

644  003566 

645  003566 

646  003572 

647  003574 

648  003576 

649  003604 

650  003606 

651  003612 

652  003616 

653  003622 

654  003626 

655  003632 


.SBTTL  X29CHA  -  SHOW  X29  SERVER  CHARACTERISTICS 
'**  X29CHA  -  SHOW  X29  SERVER  CHARACTERISTICS 
INPUT        X29$DF  TEMPLATE  (IF  ANY). 
OUTPUT       THE  X29  SERVER  CHARACTERISTICS  ARE  DISPLAYED. 


012700 
011000 
001416 
122760 
001372 
012702 
016C22 
016022 
012703 
004767 
000207 


OOOOOOG 

OOOOOOG  OOOOOOG 

000000' 
OOOOOOG 
OOOOOOG 
001260' 
000200 


X29CHA: 
10$: 


20$: 


MOV  #$rHLST,RO 

MOV  (RO),RO 

BEQ  20$  , 

CMPB  #CS.X29,C.STS(R0) 

BNE  10$ 

MOV  #XSVCSK,R2 

MOV  X$9MXC(R0),(R2)+ 

MOV  X$9CT(R0),(R2)+ 

MOV  *XSVCFT,R3 

CALL  PRINT 

RETURN 


POINT  TO  TEMPLATES 

NEXT  TEMPLATE 

IF  EO,  NO  INFORMATION 

;  CHECK  FOR  X29  INFORMATION 

IF  NE,  CONTINUE 

POINT  TO  ARGUMENT  LIST 

MAXIMUM  CIRCUITS 

COUNTER  TIMER 

POINT  TO  FORMATTING  TABLE 

SHOW  INFORMATION 
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XAffHA  -  5H0W  X25-ACCESS  MODULE  CHARACTERISTICS 
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SHOMOD  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:27 

SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


KCUG 

KCUGL 

KDST 

KDSTL 

KDTE 

KDTEL 

KNOWN 

LINBUF 

LINHDR 

LSCNT 

L$LCTM 

LSLNAM 

LSNAM 

L$TRI 

L$UNT 

MOVOPT 

NO  INF 

OBUF 

OPTION 

PRCHBK 

PRCHB1 

PRCHB2 

PRCHB3 

PRCHB^i 

PRCHB5 

PRCHB6 

PRCHFT 

PRCHM1 

PRCHM2 

PRCHM3 

PRCHM4 

PRCHM5 

PRCHM6 

PRINT 

PRTCHN 

PSSNAM 

PSSPOR 

RSDNAM 

SCRBLK 

SHODST 

SHOXAD 

SPCDST 

TYPB 

TYPSL 

XAC 

XACCHA 

XACDTB 

XACL 

XADBt; 

XADB1 

XADFT 

XADM1 


001773  R 
=  000014 

001737  R 
=  000022 

001761   R 
=  000012 
000006  R 
000034  R 
000002 

r  ****** 

-  ****** 

=  ****** 

~  ****** 

=  ****** 

=  ****** 


004632 
000171 
000004 
000012 
000000 
000000  ,. 
000004  R 
000010  R 
000014  R 
000020  R 
000024  R 
000672  R 
000304  R 
000355  R 
000430  R 
000500  R 
000554  R 
000624  R 
004032  R 
002560  R 


GX 
GX 
GX 
GX 
GX 
GX 


:=  ****** 


******  G 
000014  R 
004252  R 
003636  R 
002024  R 
002007  R 
000013 
001674   R 
003634   R 
003244   R 
000012 
000000  R 
000000  R 
001640  R 
001574  R 


REFERENCES 

*5-249 
#5-249 
#5-247 
#5-247 
#5-248 
#5-248 
#5-161 
#5-165 
#5-159 

20-792 

13-595 

13-593 

20-789 

20-806 

20-798 

21-880 
#5-177 
#5-160 
#5-163 
#5-194 
#5-194 
#5-194 
#5-194 
#5-194 
#5-194 
#5-194 
#5-194 
#5-188 
#5-189 
#5-190 
#5-191 
#5-192 
#5-193 

7-339 

8-399 

7-334 

13-586 

17-689 
#5-164 

12-568 

11-535 
#5-259 
#5-250 
#5-250 
#5-244 

11-534 

11-522 
#5-244 
#5-238 
#5-238 
#5-238 
#5-237 


5-249 

6-294 

5-247 

11-536 

5-248 

6-292 

8-386 
♦9-416 


21-881 
18-734 
•9-417 
♦6-284 
7-314 
5-194 
5-194 
5-194 
5-194 
5-194 
5-194 
7-338 
5-194 
5-194 
5-194 
5-194 
5-194 
5-194 
8-398 
#9-414 
7-335 

17-691 

12-569 
11-536 
21-843 
5-250 
10-504 
5-244 
#16-669 
#11-534 
11-524 
17-693 
5-238 
17-699 
5-238 
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CREF       04.00 


6-294 

11-536 
12-569 
6-292 


8-394 
9-431 


21-882 

9-428 
•11-528 


12-569 
14-630 


8-396 
•9-451 


21-883 

•9-452 
♦12-560 


14-630 


21-888 

9-455 
♦14-621 


21-889         #22-917 

19-765         ♦21-857         ^22-927 


10-507 


14-629 
#17-681 

10-505 

11-525 


13-597 


15-654 


17-700         #19-754 


21-894 


14-630         #21-822 


SHOMOD 
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MACRO  CROSS  REFERENCE  CREF   OA.OO 

MACRO  NAME      REFERENCES 


5-U8  5-159  5-171  5-182 


EPRINT 

#A-80 

ERRORt 

#A-69 

lLCTPS 

#A-55 

4-57 

PRINT 

#4-62 

5-131 

H     6 

♦  *F1LE«MD««SH0REM 


SHOREM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85 
GETDLL  -  GET  DOWNLINE  LOAD  INFO 


459  00146? 

460  001466 

461  001472 
462 

463  001474 

464  001500 

465  001504 
466 

467  001506 

468  001510 

469  001512 

470  001514 
47^  001520 

475  001524 

473  001530 

474  001532 
475 

476  001534 

477  001540 

478  001542 

479  001552 
480 

481  001554 
482 


112720 
112720 
000405 

112720 
120027 
003773 

112120 
001376 
005300 
116403 
042703 
004774 
105010 
000700 

020027 
001404 

000207 


000167  OOOOOOG 


000054 
000040 


000040 
000022G 


000003 
177700 
000004 


OOOOOOG 


35$; 


40$: 


50$: 


60$: 
101$: 


turday 

29-Jun-85  §5:27 

Page  8-1 

MOVB 
MOVB 
BR 

*<•,>, (R0)+ 
»<'   >,(RO)t 
40$ 

;  moue  oi/er 
•  continue 

MOVB 
CMPB 
BLE 

*<'  >,(R0)+ 
R0.#$BUFF+NAMCOL 

;  tab  ouer  . . . 
+3  ;   ... 

MOVB 

BNE 

DEC 

MOVB 

BIC 

CALL 

CLR6 

BR 

(R1)+,(R0)+ 

40$ 

RO 

A$ARG(R4),R3 

#"C77,R3 

aA$RTN(R4) 

(RO) 

20$ 

;  moue  text  string 
;  if  NE,  more 
;  back  over  NUL 
;  pick  up  argument 
;  remove  EOL  flag  bit 
;  format  parameter 
;  zero  terminate  buffer 
;  continue 

CMP 
BEQ 
PRINT 

RO,#$BUFF 

60i 

#$BUFF 

;  empty  buffer  ? 
;  if  EQ,  yes 
;  flush  buffer 

RETURN 
JMP 


.CONER 


big  trouble  somewhere 
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PDTFIl  -  OUTPUT  A  FILFSPEC  PARAMETER 


SHOSYS  -   CFE  SHOW 


58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
Ik 
75 
76 
77 
73 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
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00000.. 
89 

90  000000 

91  000002 

92  000004 

93  000010 
91,  OOOOU 
95  000016 
96 

97 

98 

99 

100 

101  000000 

102  000002 

103  OOOOOA 
10A  000006 

105  000010 

106  000012 

107  OOOOU 

108  000016 

109  000020 

nc  000000 
111 

112 
113 


000000 


000020 


000000 


000002 


.ENDM 

PRINT 

.MACRO 

ERRORS  TEXT 

;  THE  ERROR  TEXT  MUST  HAVE  THE  ER 

;  MESSAGE  STRING. 

.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERR 

.ENDM 

ERRORS 

.MACRO 

EPRINT  TEXT 

;  PRINT 

TEXT  ON 

ERROR  LUN 

.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERl 

.ENDM 

EPRINT 

•  **** 

;  LOCAL 

DATA 

;  *  *  *  * 

;  DEFINE  PARTITION  TEMPLATE 

' 

.ASECT 

.=0 

.BLKU 

1             ; 

.8LKU 

1 

C.NAMO 

.BLKW 

2 

C.NAM1 

.BLKW 

2 

C.EXT: 

.BLKW 

1 

CALL: 

.BLKW 

1 

C.LEN= 

;  DEFINE  BUFFER 

TEMPLATE 

.=0 
.BLKW 

1 

.BLKW 

1 

C.CBNM 

.BLKW 

1 

C.CBSZ 

.BLKW 

1 

C.R8NM 

.8LKW 

1 

C.RBSZ 

.BLKW 

1 

C.SBNM 

.BLKW 

1 

C.SBSZ 

.BLKW 

1 

C.THSH 

.BLKW 
.PSECT 

1 

.NLIST 

BEX 

.ENA8L 

LC 

EXSERR 

=  2 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


;  GET  ADDRESS  OF  ASC12  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


C.LNK 

C.STS 

POOL  PARTITION  NAME  (RAD50) 

DYNAMIC  PARTITION  TO  CREATE  POOL  FROM 

POOL  EXTENSION  SIZE 

NUMBER  OF  BLOCKS  FOR  SINGLE  WORD  POOL 


C.LNK 

C.STS 

CCM  NUMBER 

CCB  SIZE  (FIXED) 

RDB  NUMBER 

RD8  SIZE 

SDB  NUMBER 

SDB  SIZE 

RDB  THRESHOLD  VALUE 
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TMPBUF  -  PARSE  BUFFER  DEFINITIO  MACRO  V05.03b  Saturday  29-Jun-85  05:28 
STMBUF  -  BUILD  BUFFER  TEMPLATE 
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190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 

205  00003A 

206  000034 

207  000036 

208  000042 

209  000046 

210  000052 

211  000060 

212  000062 

213  000066 

214  000072 

215  000076 

216  000100 
217 

218 

219 

220  000104 

221 

222 

223  000110 

224  000114 
225 

226  000120 

227  000124 
228 

229 
230 

231  000130 

232  000132 


.SBTTL  $TM8UF  -  BUILD  BUFFER  TEMPLATE 

•**  -  STMBUF  -  BUILD  BUFFER  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-6IT  =  SUCCESS/FAILURE  „.^^ 

THE  BUFFER  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


010546 
012701 
004767 
010067 
012760 
005001 
012702 
012705 
004767 
103002 
005267 


STMBUF: 


000022 
OOOOOOG 
177726 
OOOOOOG 

000000" 
000000' 
OOOOOOG 

OOOOOOG 


OOOOOOG 


MOV  R5,-(SP) 

MOV  #C.LEN,R1 

CALL  STALOC 

MOV  RO.TEMP        , 

MOV  #CS.8UF,C.STS(R0) 

CLR  R1 

MOV  #BUF<TB,R2 

MOV  #8UFSTB,R5 

CALL  .TPARS 

BCC  20$ 

INC  SERROR 


SAVE  R5 

GET  LENGTH  Of  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  A  BUFSDF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 


INITIALIZE  THE  BLOCK-AREA  ALLOCATION 


016705  177670 


016500 
016501 

016500 
016501 


012605 
000207 


000010 
000012 

000014 
000016 


50$:    MOV  TEMP,R5 

CLR  SBLKMN 

;;;     CLR  $BLKMNt2 

MOV  C.RBNM(R5),R0 

MOV  C.RBSZ(R5),R1 

;;;     CALL  UPDALC 

MOV  C.S8NM(R5),R0 

MOV  C.SBSZ(R5),R1 

CALL  UPDALC 

MOV  SBLKMN, SBLKXT   , 

MOV  $8tKMN+2,$BLKXT+2 

MOV  (SP)+,R5 

RETURN 


POINT   TO   TEMPLATE 
NO  ALLOCATION  YET 

GET'nUMBER  OF    RDBS 

RDB  SIZE 

UPDATE  ALLOCATION 

GET  NUMBER  OF  SDBS 

SDB  SIZE 

UPDATE  ALLOCATION 

MINIMUM  IS  EXTENSION 

RESTORE  R5 
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Table  ot  consents 
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TMPCNT  -  PARSE  CONTROLLER  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:29 
Table  ot  contents 

SETUP  CONTROLLER  TEMPLATE 
SET  UP  CONTROLLER  NUMBER 
SETUP  THE  VECTOR  ADDRESS 
SET  THE  CSR  ADDRESS 
SET  THE  PRIORITY 
SET  THE  UNI8US  RUN  MASK 


ft- 

138 

JTMCNT 

7- 

167 

SETCNT 

H- 

192 

SETVEC 

Q- 

218 

SETCSR 

n- 

2A2 

SETPRI 

1- 

269 

SETURM 
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Table  of  contents  
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TMPDDM  -  PARSE  DEVKE   PROCESS   D  MACRO  V05.03b  Saturday  29-Jun-85   05:30 

Table  ot  contents 

6-  158    STMDDM  -  SETUP  DDM  TEMPLATE 

7-  187    SETNAM  -  SET  UP  PROCESS  NAME 

8-  ?15    SEIfLG  -  SETUP  THE  FLAGS  WORD 

9-  231    SETPRI  -  SET  THE  PRIORITY 

10-  257    SETNLT  -  STORE  NUMBER  Of  LINE  TABLES 

11-  277    SETNCT  -  STORE  NUMBER  Of  CONTROLLER  TABLES 
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G  U 

TMPDDM 

CREATED  BY 

MACRO  ON  29-JUN-85  AT 

05:50 

PAGE  2 

MACRO  CROSS 

RE 

ERENCE 

CREF   04.00 

MACRO  NAME 

REFERENCES 

DBGIP$ 

#5-95 

#5-111 

#5-118 

#5-119 

#5-120 
#5-145 

#5-121 

#5-126 

#5-127 

#5-157 

#5-141 

ISTAT$ 

#4-68 

5-95 

MTRANt 

#5-95 

PRINT 
STATES 

#4-5" 
#4-68 

5-97 

#5-100 

#5-105 

#5-106 

#5-109 

#5-155 

#5-159 

#5-145 

#5-147 

#5-150 

#5-155 

TRANt 

#4-68 

#5-98 

#5-101 

#5-104 

#5-107 

#5-110 

.'/5-119 

#5-120 

#5-121 

#5-122 

#5-125 

#5-124 

#5-155 

#5-156 

#5-157 

#5-140 

#5-141 

#5-144 

#5-122    #5-125    #5-124    #5-125 


#5-115  #5-116  #5-129  #5-152 

#5-111  #5-114  #5-117  #5-118 

#5-125  #5-126  #5-127  #5-150 

#5-145  #5-148  #5-151  #5-154 


H  U 

.♦F1LE«*ID«*TMPDEC 


TMPDEC    - 
SETDEF    - 

300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 


CFE  PARSE   DEC$DF   DEFIN  MACRO  V05.03b  Saturday  29-Jun-85 
DELAY    FACTOR 


V:\ 


0  Page  12 


.SBTTL  SETDEF  -  DELAY  FACTOR 
'•♦•  -  SETDEF  -  SETUP  DELAY  FACTOR 

THIS  ACTION  ROUTINE  SETS  UP  THE  DELAY  FACTOR  FOR  THE  EXECUTOR 
INPUT; 


.PNUM8  =  DELAY  FACTOR 
.PNUMH  =  (HIGH  ORDER) 


000310 

000310  016700  177464 

0003U  116760  OOOOOOG  000016 

000322  005767  OOOOOOG 

000326  001003 

000330  105767  OOOOOIG 

000334  001402 

000336  062716  000002 

000542  000207 


OUTPUT 


SETDEF: 


THE  DELAY  FACTOR  IS  STORED  IN  C.DELF  Of  THE  TEMPLATE 


MOV 

M0V8 

TST 

BNE 

TST8 

BEQ 

10$: 

ADD 

20%: 

RETURN 

TEMP,RO        ; 

.PNUMB,C.DELF(RO) 

.PNUMH 

10$ 

.PNUMBtl 

20$ 

#2,(SP) 


GET  START  OF  TEMPLATE 
;  STORE  DELAY  FACTOR 
IS  IT  ONLY  A  WORD  VALUE 
IF  NE,  NO  -  REJECT 
IS  IT  A  BYTE  VALUE  ? 
If  EQ,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 


H  15 
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SETOWF  -  DELAY  WEIGHT 
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TMPDLC  -  PARSE  DLC  PROCESS  DEfl  MACRO  V05.03b  Saturday  ,?9-Jun 


55 

56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

b8 

69 

70 

71 

72 

73 

7k   000000 

75  000002 

76 

77 

78 

79  000000 


-r  %,'S 


1  Page  1 


80 

81  000000 

82  000002 

83  OOOOOA 
8A  000006 

85  000010 

86  000012 

87  000013 

89  OOOOOA 
90 


000000 


oooou 


•  *  **4 

;  LOCAL  MACROS 

;  »*** 

.MACRO 

PRINT   TEXT 

MOV 

TEXT.RO 

CALL 

SPRINT 

.ENDM 

PRINT 

■  *  *  ♦  * 

;  MACRO  CALLS 

;  **** 

.MCALL 

ISTATS, STATE 

•  »*** 

;  LOCAL  DATA 

;  *  »  *  * 

FLAG: 

.8LKW 

1 

TEMP: 

.8LKW 

1 

;  DEFINE  DLC  TEMPLATE 

.ASECT 

.=0 

.BLKW 

.BLKW 

C.NAM 

.8LKW 

C.FLG 

.8LKW 

C.PRI 

.8LKW 

C.NLT 

.BLK8 

C.NCT 

.8LKB 

C.LEN 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


FLAuS  WORD 

ADDRESS  OF  DLC  TEMPLATE 


C.LNK 

C.STS 

DLC  PROCESS  NAME 

DLC  FLAGS  WORD 

DLC  PROCESS  PRIORITY 

NUMBER  OF  LINE  TABLES  IN  PROCESS  SPACE 

NUMBER  OF  CONTROLLER  TABLES  IN  PROCESS  SPACE 


.PSECT 
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SHOLIN     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:26 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


HISPD 

HISPDL 

HUP 

LF.ENA 

LF.MFL 

lF.X2P 

LINID 

LINMSG 

LSCNT 

LSNAM 

LSTRI 

LSUNT 

OFF 

OFFL 

ON 

ONL 

OPTBLK 

OPTMSG 

OP.CNT 

OP. OPT 

OP.STA 

OP.UNT 

0P.X2P 

PROTBL 

RATETB 

SCRACH 

SF.ENA 

STABLK 

STAl^oG 

SSLCTT 

SSLrLG 

TBLEN 

TBL1 

TBL2 

UBE 

UBF 

UBH 

UBJ 

UBK 

UBL 

UBM 

UBN 

UBP 

UBR 

UBS 

UBT 

UNTBLK 

UNTM5G 

URM 

URMT8L 


GX 
GX 
GX 
GX 


00075A  R 
000005 
001264  R 

»«»»*«        QX 

«««»»»  GX 
♦«♦«*»  GX 
000226  R 
000216  R 

****** 
**»  *** 
****** 
****** 

000742 
000003 
000740  ,. 
000002 
00K46  R 
000413  R 

:  000001 

:  000004 

■  000010 

:  000002 

■■  000020 
001270  R 
000000  R 
001252  R 

:     »*»*«*         GX 

001456  R 


000631   R 

****** 
****** 

000034 

001344  R 

001364  R 

000775   R 

001000  R 

001003  R 

001006 

001011 

001014 

001017 

001022 

001025 

001030 

001033 

001036 

001432 


000337  R 
001041  R 
000036  R 


REFERENCES 

#4-216 
#4-217 
#4-243 

9-632 

9-628 

9-602 
#4-192 
#4-191 

10-680 

7-473 

10-694 

10-686 
#4-212 
#4-213 
#4-210 
#4-211 

4-271 
#4-195 
#4-114 
#4-116 
#4-117 
#4-115 
#4-118 
#4-246 
#4-123 
#4-242 

9-643 

4-275 
*9-631 
#4-199 

9-617 

9-602 
#4-140 
#4-260 
#4-269 

4-150 

4-151 

4-152 

4-153 

4-154 

4-155 

4-156 

4-157 

4-158 

4-159 

4-160 

4-161 

4-270 

7-467 
#4-194 
#4-236 
#4-145 


4-217 
7-454 
4-253 
9-645 


10-675 
6-383 

10-677 


4-213 
9-630 
4-211 
9-634 
#4-279 
4-262 
4-269 
4-271 
4-275 
4-270 
4-272 
7-479 
4-140 
7-463 

#4-280 

•9-634 

4-266 

9-628 

6-384 

6-385 

#4-224 

#4-225 

#4-226 

#4-227 

#4-228 

#4-229 

#4-230 

#4-231 

#4-232 

#4-233 

#4-234 

#4-235 

#4-278 

*7-468 

4-261 

8-550 

8-559 


7-455 
7-472 

6-404 

9-631 

9-635 
9-647 
7-436 

7-435 
7-506 
7-435 
7-435 
4-273 
7-480 
7-462 


6-407 

*9-63: 

6-406 

9-632 


•7-445 
♦7-479 

8-552 


H     1 
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CREF        04.00 


9-648 

7-518 
4-274 


•9-596 
•9-647 


9-615 


♦9-597 
•9-648 


♦9-598 


♦9-626 


•9-627 


•9-630 


•7-446 
♦7-480 


♦7-449 
•7-491 


♦7-450 
♦7-492 


•7-454 


•7-455 


•7-464 
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PRTEVT   -  PRINT   EVENT   CHARACTERSTICS 
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312 
315 
31A 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 

325  001014 

326  001020 

327  001026 

328  001034 

329  001036 

330  001046 

331  001054 

332  001060 

333  001064 
334 

335 
336 

337  001104 

338  001106 

339  001112 

340  001116 

341  001124 

342  001126 

343  001132 

344  001134 

345  001142 

346  001144 

347  001150 
34:  001152 

349  001156 

350  001164 

351  001172 

352  001176 
353 

354  001200 

355  001206 

356  001210 

357  001214 

558  001220 

559  001224 
360  001226 

561  001232 

562  001240 
365 

564  001242 

565  001250 
366  001252 
567  001256 
368  001264 


.SSTTL  PRTEVT  -  PRINT  EVENT  CHARACTERSTICS 


PRTEVT  -  PRINT  EVENT  CHARACTERISTICS 

INPUTS: 

R5  -  ADDRESS  OF  EVENT  TEMPLATE  BLOCK 

OUTPUTS: 

THE   EVENT   MESSAGE    IS   DISPLAYED 


105067  177272  PRTEVT: 

142767  000003     177265 

132767  000004     177257 
001407 

142767  000004      177237 

012700  OOOOOOG  10$: 

112720  000011 

016501  000004 
000006 


005002 
004767 
112720 
126727 
105065 
004767 
001455 
152767 
001016 
116701 
005002 
004767 
152767 
152767 
105067 
000435 

152767 
001015 
112720 
116701 
105067 
005002 
004767 
152767 
000414 

126027 
001402 
112720 
116767 
000402 


OOOOOOG 

000056 

177170     000100     20$: 

000222 

000001   177151 

177142 

OOOOOOG 

000001  177127 

000002  177121 
177116 

000002  177105  50$: 

000054 
177072 
177070 

OOOOOOG 
000002  177055 

MUn     000055  40$: 

000055 

177030  177050  50$: 


CLR8 

BIC8 

BITB 

BEQ 

PRINT 

BIC8 

MOV 

MOVB 

MOV 

.REPT 

ASR 

.ENDR 

CLR 

CALL 

MOVB 

CMPB 

SHIS 

CALL 

BEQ 

BITS 

BNE 

MOVB 

CLR 

CALL 

BIS8 

BISB 

CLRB 

BR 

BITB 

BNE 

MOVB 

MOVB 

CLRB 

CLR 

CALL 

BISB 

BR 

CMPB 
BEQ 

Move 

MOVB 
BR 


BITNUH 

#f  .STRTIF.PREV 

#F. NINE, FLAGS 

10$ 

#EVTMS6 

#F. NINE, FLAGS 

#$BUFF,RO 

*TAB,(RO)+ 

C.CLS(R5),R1 

6 

R1 

R2 

$CBDMG 

//PERIOD, (R0)  + 

BITNUM,#MSKLEN 

80$ 

CHK8IT 

60$ 

ffF.STRT, FLAGS 

50$ 

BITNUM,R1 

R2 

$CeDMG 

#F.STRT, FLAGS 

#F.PREV, FLAGS 

PREVNT 

70$ 

*F.PREV, FLAGS 

40$ 

#COMMA,(R0)t 

BITNUM.Rl 

PREVNT 

R2 

$CBDMG 

#F.PREV, FLAGS 

70$ 

-1(R0),#DASH 

50$ 

#DASH,(R0)+ 

BITNUM,PRE>'NT 

70$ 


;  START  WITH  EVENT  TYPE  0 
.FLAGS  ;  CLEAR  FLAGS  WORD 

ANY  INFORMATION  PRINTED  YET? 

BR  IF  YES 

PRINT  EVENT  DISPLAY  HEADER 

CLEAR  NO  INFORMATION  BIT 

POINT  TO  BUFFER 

STORE  TAB  IN  BUFFER 

GET  EVENT  CLASS  (BITS  6-15) 

MOVE  EVENT  CLASS  TO  BITS  0-9 


SUPPRESS  ZEROES 

CONVERT  TO  ASCII 

STORE  PERIOD  AFTER  EVENT  CLASS 

ALL  BITS  PROCESSED? 

BR  IF  YES 

TEST  BIT  TO  SEE  IF  IT  IS  ON 

BR  IF  NOT  ON 

HAS  FORMATTING  BEGUN  ALREADY? 

BR  IF  YES 

GET  EVENT  TYPE  NUMBER 

ZERO  SUPPRESSION 

CONVERT  TO  ASCII 

INDICATE  FORMATTING  HAS  BEGUN 

INDICATE  THIS  EVENT  TYPE  IS  SET 

INDICATE  FIRST  NUMBER  IN  RANGE 

CONTINUE 

WAS  PREVIOUS  NUMBER  SET? 

BR  IF  YES 

SEPARATE  WITH  A  COMMA 

GET  EVENT  TYPE  NUMBER  TO  DISPLAY 

INDICATE  VALUE  ALREADY  DISPLAYED 

ZERO  SUPPRESSION 

CONVERT  TO  ASCII 

INDICATE  THIS  EVENT  TYPE  IS  SET 

CONTINUE 

IS  DASH  ALREADY  INSERTED? 

BR  IF  YES 

STORE  DASH 

SAVE  EVENT  TYPE  NUMBER 

CONTINUE 
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SHOMOD  -  LIST  MODULE  CHARACTERI  MACRO  V05.03b  Saturday  29-Jun-85  05:26 
LOCAL  DATA 


155 
15A 
155 
156 
157 

158  000000 

159  000002 

160  000004 

161  000006 

162  000010 

163  000012 

164  000014 

165  000034 

166  000034 
167 

168 

169 

170 

171 

172 

173  000130 

174 

175 

176 

177  000171 

178  000213 

179  000250 

180  000255 

181  000265 

182  000275 

183  000300 
184 

185 
186 

187  000304 

188  000304 

189  000355 

190  000430 

191  000500 

192  000554 

193  000624 

194  000672 
195 

196 
197 

198  000724 

199  000724 

200  000740 

201  001001 

202  001046 
203 

204  001064 

205  COllOl 
206 

207 
208 
209  001116 


000130' 


000002 
002 


040 
012 
054 
054 
045 
0-^5 
^".5 


103 


040 
115 
040 
040 
115 
115 
062 


040 
040 


040 
040 


.SBTTL  LOCAL  DATA 
**  ** 

LOCAL  DATA 
**** 


HDRPRT:  .SLKW 
LINHDR:  .BLKW 


040 
157 
045 
045 
040 
000 
122 


OBUF 

KNOWN: 

DTYPE; 

OPTION 

SCR8LK 

LINBUF 

CHNBUF 

CHNBND 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.8LK8 


tRROR  TEXT 


106  ERRREQ 


EXSERR 
.NLIST 
.ASCIZ 


60. 


=  2 
BEX 
<EX$ERR>/CFE 
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HEADER  PRINTED  FLAG 
ADDRESS  OF  LINE  HEADER 
OUTPUT  BUFFER  POINTER 
KNOWN  DESTINATIONS  FLAG 
DESTINATION  TYPE  (X25  OR  X29) 
OPTIONS 
SCRATCH  BLOCK 

OUTPUT  BUFFER  FOR  CHANNEL  LIST 


--  Unknown  information  type/ 


FORMAT  STRINGS 


NOINF: 
HDRMSG 
FHTRN1 
FMTRNM 
FMTSRN 
FMTSRl 
FMT2R5 


.ASCIZ  /   No  information/ 

.ASCIZ  <12>/Module  XVA  S!VA  as  of  5!Y  Xll/ 

.ASCIZ  /,  W/ 

.ASCIZ  /,  XM-XM/ 

.ASCIZ  /XM  -  W/ 

.ASCIZ  /%f[/ 

.ASCIZ  /X2R/ 


X25  PROTOCOL  CHARACTERISICS 


BEGTXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 

ENDTXT 


PRCH 

2,, 

2,, 

2,, 

2,, 

2,, 

3,, 


<XN 
< 
< 
< 
< 
< 


Default  data  =  XM,  Maximum  data  =  5(M> 
Default  window  =  *M,  Maximum  window  =  !fM> 
Reset  timer  =  3!M,  Maximum  resets  =  XM> 
Restart  timer  =  SIM,  Mjximum  restarts  =  XM> 
Clear  timer  =  W,   Maximum  clears  =  %M> 
Network  name  =  3!2R,  Call  timer  =  XM> 


X25-PROTOCOL  DTE/KNOWN  DIES 


BEGTXT 

TEXT 

TEXT 

TEXT 

ENDTXT 

103  CHNHDR:  .ASCIZ 
040  CHN8LK:  .ASCIZ 


DTE 

5,,<!£NDTE  =  !(5R> 

3,,  <  Counter  timer  =  XM,  Line  =  5!VA> 

2,,  <  State  =  X1R,  Maximum  circuits  =  5!M> 


Channels 


X25-PROTOCOL  GROUP/KNOWN  GROUPS 
BEGTXT  CUG 
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LOCAL  DATA 


SHQMOD  - 
XACCHft  - 

657 
658 
659 
660 
661 
662 
663 
66A 
665 
666 
667 
668 
669 
670 


H  4 

LIST  MODULE  CHAPACTERI  MACRO  V05.05b  Saturday  29-Jun-85  05:26  Page  16 
SHOW  X25-ACCE5S  MODULE  CHARACTERISTICS 


.SBTTL  XACCHA  -  SHOW  X25-ACCESS  MODULE  CHARACTERISTICS 

'♦*  XACCHA  -  SHOW  X25-ACCESS  MODULE  CHARACTERISTICS 

INPUT        SOPRND  =  REQUEST  TYPE 

OUTPUT       THE  CURRENT  IMPLEMENTION  OF  PSI  HAS  NOT  IMPLEMENTED 
ANY  MODULE  X25-ACCESS  PARAMETERS  OTHER  THAN  THE 
REMOTE  DESTINATION  LIST.  THIS  ROUTINE  WILL  ALWAYS 
RETURN  "NO  INFORMATION". 


003634 

00363A  000207 


XACCHA: 


RETURN 


5H0M0C  -  LISl  ^'OD'i'-E  CHARACTERI  MACRO  V05.03b  Saturday  29-Jun-85  05:26  Page  17 
SHQXAD  -  SHOW  X2'5-ACCESS  MODULE  DESTINATIONS 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


XA.DST 

=  ****** 

GX 

11-527 

XA.KND 

=   ****** 

GX 

11-527 

XPR 

001646 

=! 

#5-242 

XPRCHA 

002156 

R 

6-290 

XPRCUG 

002774 

R 

6-293 

XPRDTB 

002104 

R 

6-278 

XPRDTE 

002326 

R 

6-291 

XPRL 

=  000014 

#5-242 

XP.CUG 

=  ****** 

GX 

6-283 

XP.DTE 

:=  ****** 

GX 

6-283 

XP.KND 

=  ****** 

GX 

6-283 

XP.KNG 

-  ****** 

(iX 

6-283 

XSV 

001662 

R 

#5-243 

XSVCBK 

000000 

R 

#5-218 

XSVCBl 

000000 

R 

#5-218 

XSVCFT 

001260 

R 

#5-218 

XSVCHA 

003400 

R 

12-567 

XSVCM1 

001202 

R 

#5-217 

XSVDTB 

003346 

R 

12-554 

XSVL 

=  000012 

#5-243 

XS.DST 

-  ****** 

GX 

12-559 

XS.KND 

r  ****** 

GX 

12-559 

X$3CT 

-  ****** 

GX 

7-336 

X$3DFP 

=  ****** 

GX 

7-315 

X$3DW 

=  ****** 

GX 

7-317 

X$3KM 

-  ****** 

GX 

7-331 

X$3KT 

-  ****** 

GX 

7-329 

X$3MW 

=  ****** 

GX 

7-3-9 

X$3MXP 

=  ****** 

GX 

7-36 

X$3RM 

-  ****** 

GX 

7-323 

X$3RT 

=  ****** 

GX 

7-321 

X$3SM 

-  ****** 

GX 

7-327 

X$3ST 

=  ****** 

GX 

7-325 

X$9CT 

=  ****** 

GX 

15-652 

X$9MXC 

=  ****** 

GX 

15-651 

X29 

001706 

R 

#5-245 

X29CHA 

003566 

R 

14-628 

X290TB 

003534 

R 

14-615 

X29L 

=  000012 

#5-245 

X9.DST 

r  ****** 

GX 

14-620 

X9.KND 

=     ****** 

GX 

14-620 

$BUFF 

=  ****** 

GX 

19-767 

SCBTA 

r  ****** 

GX 

20-794 

SCfERR 

-  ****** 

GX 

18-737 

$CUG 

-  ****** 

GX 

10-487 

$C5TA 

-  *+♦*♦* 

GX 

20-790 

$DST 

-  ****** 

GX 

17-689 

$DTE 

-  ****** 

GX 

8-362 

tEDMSG 

-  ****** 

GX 

9-439 

SFLAGS 

r  *♦♦♦** 

GX 

♦8-389 

SHDRBH 

r  ****** 

GX 

6-279 

SOPRND 

r  ****** 

GX 

6-282 

11-535 
11-536 
5-242 

#7-308 
6-294 

#6-290 
6-292 
6-280 
6-293 
6-291 
6-292 
6-294 
5-243 
13-584 
5-218 
13-596 

#13-583 
5-218 

#12-567 
12-556 
12-568 
12-569 


5-245 
#15-644 
#14-628 
14-617 
14-629 
14-630 
19-769 
20-800 

10-489 

17-691 

19-768 
*8-392 
11-523 
8-360 
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17-687 
6-281 

#10-472 

#8-354 


8-360 
10-485 
12-557 
15-650 

15-653 


21-834 


14-61f 


20-808 


21-836 

21-872 
20-795 
12-555 
10-485 


21-838 


20-801 
14-616 
11-526 


20-803 
19-759 
12-558 


14-619 


17-687 


21-834 
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SSSSSSS5 

HH 

HH 

000000 

RRRRRRRR 

EEEEEEEEEE 

MM     MM 

5SSSSSSS 

HH 

HH 

000000 

RRRRRRRR 

EEEEEEEEEE 

HH     MM 

SS 

HH 

HH 

00 

Oil 

RR      RR 
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PUTFIL  -  OUTPUT  A  FILESPEC  PARAMETER 


484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 


.SBTTL  PUTflL  -  OUTPUT  A  FILESPEC  PARAMETER 
**  PUTFIL  -  OUTPUT  A  FILESPEC  PARAMETER 
INPUTS: 


001560 

001562  004567  000006 

001566  000005 

001570 

001572  000207 


OUTPUT: 


PUTFIL:  SAVRG 
JSR 
.WORD 
RESR6 
RETURN 

MOVE  A  FIELD 


RO  =  buffer  pointer 

R2  =  address  of  file  descriptor  pointer 

RO  is  updated. 


001574  010201 

001576  062501 

001600  116103 

001604  001402 

001606  112120 

001610  077302 

001612  000205 


177777 


20$: 


30$: 
40$: 


MOV 

ADD 

MOVB 

BEQ 

MOVB 

SOB 

RTS 


R3 

R5,20$ 
F.DEV 
R3 


R2,R1 

(R5)+,R1 

-1(R1),R3 

40$ 

(R1)+,(R0)+ 

R3,30$ 

R5 


SAVE  REGISTER 
MOVE  FILESPEC 

RESTORE  REGISTER 


copy  ADDRESS  OF  FILE  DESCRIPTOR 
POINT  TO  FIELD  OF  INTEREST 
GET  FIELD  LENGTH 
IF  EQ,  NO  TEXT 
ELSE  MOVE  IT 

TO  OUTPUT  BUFFER 
DONE 


SHOREM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05:27 
PUTxxx  -  MISCELLANEOUS  OUTPUT  FORMATTING  ROUTINES 
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115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

14P 

145 

1^,4 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


000000 
000040 
000075 
000142 
000213 
000266 

000275 

000305 
000400 
000465 


000524 
000530 
000542 
C10544 
0U0546 
000550 


002 
002 
012 
012 
040 
124 

000007 
106 

000010 
040 
040 
C40 


000552 
000552 
000556 
000562 
000566 
000572 
000602 
0OC6O6 


000610 
000612 
000614 
000620 
000626 
000630 
000632 
000636 
000640 
000642 
000646 
000654 
000662 


103 
103 
123 
040 
040 
157 

151 

040 
040 
040 


063147  047574 

000305' 
000400' 
000465' 
000000 


012700 
012701 
012702 
004767 

012705 
010504 


011505 
001002 
000167 
122765 
001370 
010502 
062702 
005712 
001010 
012702 
016567 
016567 
012700 


OOOOOOG 
000075' 
OOOOOOG 
OOOOOOG 

OOOOOOG 


106  ERRPAR: 

106  ERRBUF: 

171  HEADR: 

040  PARMSG: 

102  PAR2MS: 

160  TOP: 

162  FIRST: 

115  OlMSG 

115  02MSG 

115  03MSG 


POL: 
BUF: 
MSTBL: 


.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

TOPLN=. 

.ASCII 

FJRLN=. 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.RAD50 

.BLKU 

.WORD 

.WORD 

.WORD 

.WORD 

.SBTTL 

SSHSYS 


<EX$ERR>/CFE  —  No  partition  definition/ 

<EX$ERR>/CFE  —  No  buffer  definition/ 

<12>/System  characteristics  as  of  JY  lit/ 

<12>/  Pool  name  =  X2R,  Partition  name  =  3!2R/ 

/  Byte-area  extension  =  JIM,  Location  =  XVA/ 

/Topdown/ 
-TOP 

/Firstfit/ 
-FIRST 

/  Maximum  control  buffers  =  5!M,  Maximum  small  buffers  =  5!M/ 

/  Maximum  large  buffers  =  %V[,   Large  buffer  size  =  SIM/ 

/  Minimum  receive  buffers 


'I ,  L  d 


/POOL../ 

5 

OlMSG 

02MSG 

03MSG 

0 


ARGUMENTS  BUFFER 

MAX  CONTROL  BUFFERS,  MAX  SMALL  BUFFERS 

MAX  LARGE  BUFFERS,  LARGE  BUFFER  SIZE 

RECEIVE  BUFFER  MIN. 

END  OF  TABLE 


SSHSYS  -  SHOW  SYSTEM  CHARACTERISTICS 
-  SHOW  SYSTEM  CHARACTERISTICS 


INPUT: 


NONE. 


OUTPUT: 

THE  SYSTEM  CHARACTERISTICS  ARE  DISPLAYED. 


SSHSYS: 


MOV 

MOV 

MOV 

CALL 

PRINT 

MOV 

MOV 


#$BUFF,RO 

#HEADR,R1 

#$6TBUF,R2 

SEDMSG 

«$BUFF 

#$TMLST,R5 

R5,R4 


POINT  TO  OUTPUT  BUFFER 

POINT  TO  FORMAT  STRING 

POINT  TO  ARGUMENT  BLOCK 

FORMAT  THE  HEADER 

PRINT  THE  HEADER 

GET  START  OF  TEMPLATE  LIST 

..TWICE 


SEARCH  FOR  THE  PARTITION  TEMPLATE 


0$: 

000300 

OOOOOOG  OOOOOOG  12$: 


000004 


000524' 

000010  177654 
000012  177650 
OOOOOOG        5$: 


MOV  (R5),R5 

BNE  12$ 

JMP  101$  , 

CMPB  *CS.PAR,C.STS(R5! 

BNE  10$ 

MOV  R5,R2 

ADD  #C.NAM0,R2 

TST  <R2) 

BNE  if 

MOV  *n'L,R2 

MOV  C.NAM1(R5),POL+4  ; 

MOV  C.NAM1t2(R5),POL+6 

MOV  #$8UFF,R0       ;  POINT 


GET  NEXT  TEMPLATE 

IF  NE,  MORE 

ELSE  END  OF  TEMPLATES 

;  IS  THIS  A  PARTITION  TEMPLATE 

IF  NE,  NO  -  KEEP  LOOKING 

POINT  R2  AT  ARGUMENT  BLOCK 


IS  THE  NAME  DEFINED  ? 
IF  NE,  YES 

else,  use  default 
store  partition  name 

""at  output  buffer 


SHOSYS 
tSHSYS 
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SETCBN  -  SET  TO  CHANGE  NUMBER 


23^ 
235 
236 
237 
238 
239 
2A0 
241 
2A2 
243 
2A4 
2A5 
246 
247 
248 
249 
250 
251 
252 

253  000134 

254  000134 

255  000140 

256  000144 

257  000150 

258  000154 

259  000160 

260  000162 

261  000166 

262  000170 

263  000174 


.SBTTL  SETC8N  -  SET  TO  CHANGE  NUMBER 
'»♦♦  -  SETC8N  -  SET  BUFFER  INFO  IN  END  OF  TASK  TEMPLATE 


REASONABLE  CHECKS  ARE  PERFORMED  ON  THE  CURRENT  VALUE. 
NOT  IN  RANGE,  THE  C-SIT  IS  SET. 

INPUT: 

TEMP  =  TEMPLATE  ADDRESS 

$LIMT8  =  ADDRESS  OF  LIMITS  TABLE 

.PNUM8  =  CURRENT  VALUE 

.PNUMH  =  CURRENT  VALUE  (HIGH  ORDER' 


IF  THE  VALUE  IS 


OUTPUT: 


C-8IT  =  SUCCESS/FAILURE 
VALUE  IS  STORED  IN  TEMPLATE. 


016700  177640 

016701  OOOOOOG 
010160  000004 
010167  OOOOOOG 
020167  177622 
103403 

020167  177616 

101402 

062716  000002 

000207 


SETCBN: 


10$: 
20$: 


MOV 

MOV 

MOV 

MOV 

CMP 

BLO 

CMP 

8L0S 

ADD 

RETURN 


TEMP,R0 

.PNUM8,R1 

R1,C.C8NM(R0) 

R1,$CCBNM 

RI.LOCBNM 

lOi 

RI.HICBNH 

20$ 

#2,(SP) 


POINT  RO  AT  TEMPLATE 

GET  THE  NUMBER  OF  RDB'S 

STORE  THE  CCS  NUMBER 

SAVE  THE  NUMBER  OF  CCB'S  FOR  LATER 

IS  THE  VALUE  IN  RANGE  ? 

IF  LO,  NO  ..  REJECT 

IS  THE  VALUE  STILL  IN  RANGE  ? 

IF  LOS,  YES  ..  OKAY 

REJECT  THE  TRANSITION  (SETS  C-BIT) 
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Table  of  consents 

A-  57  MACRO  DEFINITIONS 

5-  126  LOCAL  DATA 

6-  136  TPARS  STATE  TABLES 

7-  164  STMCHN  -  BUILD  CHANNEL  TEMPLATE         ^^^  ,,^ 

8-  ?02  SF'LO  -  SET  LOU  END  OF  CHANNEL  RANGE  IN  TEMPLATE 
8-  203  SE'HI  -  SET  HIGH  END  Of  CHANNEL  RANGE  IN  TEMPLATE 
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.TITLE   TMPCNT  -  PARSE  CONTROLLER  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPVRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  CONTROLLER  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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A- 

57 

MACRO  DEflMTIONS 

S- 

128 

LOCAL  DATA 

f,- 

155 

TPARS  STATE  TABLES 

1- 

192 

STMCUG  -  BUILD  CUG  TEMPLATE 

7- 

230 

SETNAM  -  SET  CUG  NAME 

7. 

231 

5ETCUG  -  SET  GROUP  NUMBER 

7- 

232 

SETFLG  -  SET  FLAGS  BVTE 
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.TITLE  TMPDDM  -  PARSE  DEVICE  PROCESS  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  DDM  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-llM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plu-,  V3.0 
DECnet-Mirro/RSX  VI. 0 
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TMPDEC   -   CFE   PARSE   DECSDF    DEFIN  MACRO  V05.03b   Saturday  29-Jun-85   05:30 
Table  ot   contents 


I  1* 

05:30 


TMPDFC  - 
SETDWF  - 

325 
326 
327 
328 
329 
350 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
340 
3^,1 
342 
3A5 
344 
545 
346 
347 
548 
549 
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DELAY  WEIGHT 


000344 
000344 
000350 
000356 
000562 
000564 
000370 
000572 
000576 


.SSnL  SETDWf  -  DELAV  WEIGHT 
'•••  -  SETDEW  -  SETUP  DELAY  WEIGHT 

THIS  ACTION  ROUTINE  SETS  UP  THE  DELAY  WEIGHT  FOR  THE  EXECUTOR 
INPUT; 


.PNUM8  =  DELAY  WEIGHT 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


THE  DELAY  WEIGHT  IS  STORED  IN  C.DELW  OF  THE  TEMPLATE 


016700 
116760 
005767 
001005 
105767 
001402 
062716 
000207 


177450 

OOOOOOG  000017 
OOOOOOG 

000001 G 

000002 


SETDEW: 


10$: 
20$: 


MOV 

M0V8 

TST 

BNE 

TST8 

BEQ 

ADD 

RETURN 


TEMP,RO        ; 

.PNUM8,C.DELW(R0) 

.PNUMH 

10$ 

.PNUMB+1 

20$ 

#2,(SP) 


GET  START  OF  TEMPLATE 
;  STORE  DELAY  WEIGHT 
IS  IT  ONLY  A  WORD  VALUE 
IF  NE,  NO  -  REJECT 
IS  IT  A  BYTE  VALUE  ? 
IF  EO,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 
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SETIPL  -  INPUT  PACKET  LIMITER 


TMPDLC  -  PARSE  DLC  PROCESS  DEF 


92 
93 

9-; 

95 

96  00000^ 
97 

98  OOOOO'. 

99  000004 
TOO 

101  000004 
10?  000004 
103 

104  000004 

105  000004 
106 

107  000004 

108  000004 
109 

110  000004 

111  000004 

112  000004 
113 

114  000004 

115  000004 
116 

117  000004 

118  000004 

119  000004 

120  000004 

121  000004 
122 

123  000004 

124  000004 
125 

126  000004 

127  000004 
128 

129  000004 

130  000004 

131  000004 
132 

133  000004 

134  000004 

135  000004 
136 

137  000004 
135  000004 
139  000004 
140 

141  000004 

142  000004 
143 

144  000004 

145  000004 
146 

147  000004 

148  000004 


H  16 

MACRO  V05.03b  Saturday  29-Jun-85  05:31 


■  **** 

■  INITIALIZE  TABLE  GENERATION 
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ISTATS  DLCSTB.DLCKTB 
$RAD50,,SETNAM 


STATES 
TRAN$ 


STATES 
TRANS 

STATES 
TPANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


!ZF 


"DLC", ,,ZF. DLC, FLAG 

BITS 

'I.BITO 

SLAMDA, PRIOR, SETFLG 

BITO 
IZF 


"TIM", BITS, ,ZF. TIM, FLAG 
"MFL", BITS, ,ZF.MFL, FLAG 
"COU", BITS, ,ZF.COU, FLAG 
"MAN", BITS, ,ZF. MAN, FLAG 

PRIOR 
<'  ,> 


SNUMBR,,SETPRI 


SE0S,SEX1T 
<'  ,> 


SNUMBR,NCT,SETNLT 
SLAMDA 

NCT 
SEOS.SEXIT 


SNUMBR,SEXIT,SETNCT 

ZF 
"ZF" 


'.,SEXIT 


NUMBER  OF  CONTROLLER  TABLES 
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SHOLIN 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:26 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


URMVAL 
UC.CNT 
UC.NAM 
UC.UNT 
X$2BSZ 
Xt2HBT 

x$2lin 

X$2RTC 

X$2RTT 

X$2WSZ 

X2PBLK 

X2PBL2 

X2PBL3 

X2PLIN 

X2PMSG 

X2PMS2 

X2PMS3 

SBUFF 

SCBDMG 

SCBOMG 

SCBTA 

SCFERP 

SCNTNM 

$C5TA 

SDVNAM 

tEOMSG 

SFLAGS 

SFNPRO 

SFNSLT 

SFNSTA 

tGTBUF 

SPRINT 

SSHLIN 

STMLST 

SUNTNM 

SWILD 

SSS 

$$$1 


001070  R 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
00U66 
001500 
001504 
000710 
000A22 
00047A 
0005A5 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
■  ****** 

:  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

R 

R 

R 

R 

R 

R 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


=  »»***♦  GX 

=  ******  GX 

=  ******  GX 

-   ******  GX 

=  ******  GX 

001510  RG 

I  **»*««  GX 

=  ******  GX 

;   ******    GX 

=  000015 
=  C00070  R 


REFERENCES 

#4-237 

5-327 

5-299 

5-354 

9-618 

9-616 

9-609 

9-620 

9-621 

9-619 

4-272 

4-273 

4-274 

#4-202 

#4-196 

#4-197 

#4-198 

5-302 

7-466 

7-515 

10-682 

6-417 

5-332 

7-474 
•5-318 

5-304 
*5-307 

9-654 

5-311 

9-590 

9-640 

5-303 

5-305 
#5-297 

5-306 

5-356 

5-299 
#4-246 

4-251 
#4-246 

4-251 


8-541 
5-330 


9-611 


#4-281 
#4-282 
#4-283 
9-623 
4-263 
4-264 
4-265 
5-305 
7-501 

10-688 
9-625 
*5-334 
10-678 
7-473 
6-393 
5-352 
10-683 


6-383 

5-319 
•5-358 

5-327 

4-246 
#4-252 

4-246 
#4-252 


5-347 


9-613 


6-394 
9-604 

5-330 
#4-248 

4-252 
#4-248 

4-252 


I     1 
PAGE   3 

CREF        04.00 


•9-616 
•9-618 
•9-620 

•9-617 
•9-619 
•9-621 

6-387 

6-394 

6-405 

10-696 

9-609 
6-408 
6-396 
10-689 

9-611 

6-400 
10-691 

9-613 
•6-402 

6-409 


10-676 
•6-412 


9-636 


9-638 


9-652 


6-404 


5-347 
4-248 

#4-255 
4-248 

#4-255 


6-409 


5-354 
#4-249 

4-255 
#4-249 

4-255 


4-249 
#4-256 

4-249 
#4-256 


#4-250 
4-256 

#4-250 
4-256 


4-250 
#4-257 

4-250 
#4-257 


#4-251 
4-257 

#4-251 
4-25'' 
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SHOLOG  -  LIST  LOGGING  OPTIONS   MACRO  V05.03b  Saturday  29-Jun-85  05:26 
PRTEVT  -  PRINT  EVENT  CHARACTERSTICS 


369 

370  001266 

371  001272 

372  001276 
373 

37A  001300 

375  001304 

376  001306 

377  001316 


004767 
105267 
000707 

004767 
105020 

000207 


000026 
177014 


000014 


60$: 
70$: 


80$: 


CALL 
INCB 
BR 


CKPREV 
BITNUM 
20$ 


CALL  CKPREV 

CLRB  (RO)t 

PRINT  #$8UFF 
RETURN 
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CHECK  FOR  DISPLAY  OF  PREVIOUS  EVENT  TVPE 
UPDATE  BIT  NUMBER 


SEE  IF  LAST  EVENT  TYPE  MUST  BE  DISPLAYED 
CREATE  ASCI7  STRING 
PRINT  EVEN  MESSAGE 


SHOLOG  -  LIST  LOGGING  OPTIONS 
CKPREV 
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LOCAL  DATA 


210 

211 

212 

213 

2K 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23'; 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 


001116 
001134 
001170 


001202 
001202 
001260 


001266 
001266 
001312 
001350 
001367 
001405 
001433 
001462 
001505 
001531 


001574 
001574 
001640 


001646 
001662 
001674 
001706 
001720 
001737 
001761 
001773 
002007 
002022 


TEXT   2.,,<XNGroup  =  !!2R> 
TEXT   8.,,  <  Number  =  %M,   DTE  =  !(5RXVA> 
ENDTXT 

X25-SERVER  CHARACTERISTICS 

BEGTXT  XSVC 

TEXT   2,,    <%U     Maximum  circuits  =  W.    Counter  timer  =  ^M> 
ENDTXT 

X25/X29  SERVER  DESTINATION/KNOWN  DESTINATIONS 


000770 


BEGTXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
ENDTXT 
DS.OPT 


DST 

2,,     <XNDestination  =  X2R> 

3,,      <  Priority  =  XM,  Object  =  XVA> 

5,  DS.NUM,<  Number  =  5i5R> 

2,  DS.CUG,<  Group  =  !!2R> 

1,  DS.CLO,<  Low  subaddress  =  5!M> 

1.  DS.CHI,<  High  subaddress  =  XM> 

13,DS.MSK,<  Call  mask  =  X11R> 

13,DS.VAL,<  Call  value  =  5!11R> 

=  DS.NUM!DS.CUGIDS.CLOIDS.CHI!DS.MS<!DS.VAL 


X25-ACCESS  DESTINATION/KNOWN  DESTINATIONS 


BEGTXT     XAD    . 

TEXT       2,,<'JINDestination 
ENDTXT 


X2RXN  Number  =  X5R> 


REPLACEMENT  STRINGS 


002024  115443  115447  003310 
002032  115447  050712  000000 
002040  000000 


<X25-Protocol> 
<X25-Ser\/er> 
<X25-Access> 
<X29-5erver> 
<characteristics> 
<known  destinations> 
<known  DTEs> 
<known  groups> 
<,  Bilateral>^ 
<  > 


SPECIAL  X29  DESTINATIONS 
*•*  THERE  IS  A  COPY  OF  THIS  TABLE  IN  PURMOD  *** 


STRING 

XPR, 

STRING 

XSV, 

STRING 

XAC, 

STRING 

X29, 

STRING 

CHAR, 

STRING 

KDST, 

STRING 

KDTE, 

STRING 

KCUG, 

STRING 

TYP8, 

STRING 

BLANK 

.EVEN 

.LIST 

BEX 

SPCDST:  .RAD50  /X25/  /X29ACP/ 
.RAD50  /X29/  /NCR  / 
.WORD   0 
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SHOMOC  -  LISl  «OD'iLE  CHARACTER!  MACRO  V05.03b  Saturday  29-Jun-85  05:26  Page  17 
SHOXAD  -  SHOW  X25-ACCESS  MODULE  DESTINATIONS 


672 
673 
67*; 
675 
676 
677 
678 
679 
680 

681  003636 

682  003636 

683  003642 
68-;  003644 

685  003646 

686  003654 

687  003656 

688  003664 

689  003666 

690  003674 

691  003676 

692  003704 

693  003706 

694  003712 

695  003714 
696 

697 
698 

699  003734 

700  003740 

701  003744 

702  003746 


.SBTTL  SHOXAD  -  SHOW  X25-ACCESS  MODULE  DESTINATIONS 
^♦  SHOXAD  -  SHOW  X25-ACCESS  MODULE  DESTINATIONS 
INPUTS       SOPRND  =  REQUEST  TYPE 
OUTPUT       THE  X25-ACCESS  REMOTE  DESTINATIONS  ARE  DISPLAYED. 


012705 
011505 
001440 
122765 
001372 
032767 
001010 
026765 
001362 
026765 
001356 
012701 
010502 
022222 
000007 


OOOOOOG 


SHOXAD: 
10$: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 
000000' 


20$: 


012703  001640' 
004767  000066 
000736 
000207 


30$: 


MOV 

MOV 

BEQ 

CMP8 

BNE 

BIT 

BNE 

CMP 

BNE 

CMP 

BNE 

MOV 

MOV 

CMP 

.REPT 

MOV 

.ENDR 

MOV 

CALL 

BR 

RETURN 


#$TMLST,R5 

(R5),R5 

30$  , 

#CS.RDT,C.STS(R5) 

10$ 

#XA.KND,$OPRND  ; 

20$ 

$DST,R$DNAM(R5)  ; 

10$  ;  - 

$DST+2,R$DNAM+2(R5) 

10$  ;  BR 


POINT  TO  START  OF  TEMPLATES 
NEXT  TEMPLATE 
IF  EQ,  END  OF  LIST 
;  IS  THIS  A  REMOTE  DTE  DESCRIPTOR 
BR  IF  NO 

KNOWN  DESTINATIONS  ? 
BR  IF  YES 
COMPARE  NAMES 
BR  IF  WRONG  DESTINATION 
COMPARE  NAMES 
IF  WRONG  DESTINATION 


#XAD8K,R1  ;  POINT  TO  ARGUMENT  BLOCK 

R5,R2  ;  COPY  POINTER 

(Rj)t,(R2)t  ;  POINT  PAST  LINK  AND  STATUS 

7 

(R2)+,(R1)t  ;  COPY  DATA 

#XADFT,R3  ;  POINT  TO  FORMATTING  TABLE 

PRINT  ;  SHOW  INFORMATION 

10$  ;  COTINUE 


SHOMOD  - 
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SHOMOD 


CREATED  BY  MACRO  ON  29-JUM-85  AT  05:^7 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


SPRINT 
SPSIPT 
tSHXAC 
SSHXPR 
tSHXSV 
$SHX29 
STMLST 
$$BASE 


=  ****** 


SSTTXl 


****** 
003202  RG 
002042  RG 
003276  RG 
003464  RG 


GX 
GX 


000000  R 


GX 


$$OBIT  =  000004 


$$TTXO  =  000001 


000002 


$$TT1        =  000002 


$$TT10 

=  000013 

$$TT2 

=  000003 

$$TT3 

=  000005 

$$IT4 

=  000002 

$$TT5 

=  000001 

$$TT6 

=  000001 

$$rT7 

=  000015 

REFERENCES 

9-449 
7-333 
#11-521 
#6-277 
#12-553 
#14-614 

7-309 

5-194 

5-231 
#5-187 
#5-190 
#5-193 

5-201 
#5-216 

5-224 
#5-226 

5-229 

5-237 
#5-187 

5-190 

5-193 

5-200 

5-210 

5-217 

5-224 

5-227 

5-230 
#5-194 
#5-194 
#5-194 

5-194 

5-194 

5-202 
#5-202 

5-212 
#5-218 

5-231 

5-231 

5-231 
#5-231 
#5-231 
#5-231 

5-238 
#5-188 

5-231 
#5-230 
#5-189 
#5-190 
#5-191 
#5-192 
#5-193 
#5-229 


9-457 
13-585 


8-355 
5-194 
5-238 
5-188 
5-191 
#5-198 
#5-201 
5-217 
#5-224 
5-227 
5-229 
5-237 
5-188 
5-191 
5-194 
5-201 
5-211 
5-218 
5-225 
5-228 
5-231 
5-194 
5-194 
#5-194 
#5-194 
#5-194 
5-202 
5-202 
#5-212 
5-218 
5-231 
5-231 
5-231 
5-231 
5-231 
5-231 
5-238 
5-194 
#5-237 
5-231 
5-194 
5-194 
5-194 
5-194 
5-194 
5-231 


18-734 


10-473 

5-202 

5-238 

5-188 

5-191 

5-199 

#5-209 

5-217 

5-225 

5-227 

5-229 

#5-237 

#5-188 

#5-191 

5-194 

#5-201 

#5-211 

5-218 

#5-225 

#5-228 

5-231 

5-194 

5-194 

5-194 

5-194 

#5-202 

#5-202 

5-202 

#5-212 

5-218 

#5-231 

#5-231 

#5-231 

5-231 

5-231 

5-231 

#5-238 

#5-199 

5-238 

#5-200 
#5-201 
#5-226 
#5-227 
#5-228 
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13-588 
5-202 

#5-188 

#5-191 
5-199 
5-210 

#5-217 
5-225 
5-227 

#5-229 

5-188 

5-191 

#5-198 

5-201 

5-211 

#5-222 

5-225 

5-228 

#5-236 

#5-194 

#5-194 

5-194 

5-194 

5-202 

#5-202 

#5-202 

5-212 

#5-218 

5-231 

5-231 

5-231 

#5-231 

#5-231 

#5-231 

5-202 


5-202 
5-202 
5-231 
5-231 
5-231 


15-645 
5-212 

5-189 

5-192 
#5-199 

5-210 
#5-222 

5-225 
#5-227 

5-230 

5-189 
5-192 
5-199 
5-202 
5-212 
5-223 
5-226 
5-229 
5-237 
5-194 
5-194 

#5-194 

#5-194 
5-202 
5-202 

#5-212 
5-212 

#5-218 
5-231 
5-231 
5-231 
5-231 
5-231 

#5-238 

#5-210 


#5-211 
#5-225 


17-682 
5-212 

5-189 
5-192 
5-200 

#5-210 
5-223 

#5-225 
5-228 
5-230 

#5-189 

#5-192 

#5-199 

5-202 

5-212 

#5-223 

#5-226 

#5-229 

#5-237 

5-194 

5-194 

5-194 

5-194 

#5-202 

5-202 

5-212 

#5-212 

5-218 

#5-231 

#5-231 

#5-231 

5-231 

5-231 

5-238 

5-212 


5-212 
5-231 


21-826 
5-218 

#5-189 
#5-192 
5-200 
5-211 
5-223 
5-226 
5-228 
5-230 

5-189 

5-192 

5-199 

#5-209 

#5-216 

5-223 

5-226 

5-229 

5-237 

#5-194 

#5-194 

5-194 

5-194 

5-202 

#5-202 

5-212 

5-212 

5-218 

5-231 

5-231 

#5-231 

#5-231 

#5-231 

5-238 

#5-217 


#5-224 


5-218 

5-190 
5-193 

#5-200 
5-211 

#5-223 
5-226 
5-228 

#5-230 

5-190 
5-193 
5-200 
5-210 
5-217 
5-224 
5-227 
5-230 
5-238 
5-194 
5-194 

#5-19'. 

#5-194 
5-202 
5-202 

#5-212 
5-212 

#5-218 
5-231 
5-231 
5-231 
5-231 
5-231 

#5-238 

5-218 


5-231 


5-231 

5-190 

5-193 

5-201 

#5-211 

5-224 

5-226 

#5-228 

#5-236 

#5-190 

#5-193 

#5-200 

#5-210 

#5-217 

#5-224 

#5-227 

#5-230 

5-238 

5-194 

5-194 

5-194 

5-194 

#5-202 

5-202 

5-212 

#5-212 

#5-231 

#5-231 

#5-231 

5-231 

5-231 

5-231 

#5-238 

#5-223 


SHOMOD 
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SHORtM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85 
"icit'e  of  contents 


u? 


4-  240  SSHRtM  -  SHOW  REMOTE  CHARACTERISTICS 

7-  379  PUTADR  -  PUT  A  PHASE  A  ADDRESS 

8-  402  GETDLL  -  GET  DOWNLINE  LOAD  INFO 

9-  484  PUTFIL  -  OUTPUT  A  FILESPEC  PARAMETER 

10-  511  PUTxxx  -  MISCELLANEOUS  OUTPUT  FORMATTING  ROUTINES 


SHOREM  -  SHOW 
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511 

512 

513 

51A 

515 

516 

517 

518 

519 

520 

521 

522  0016K 

525  001616 

52'.  001622 

525  00162^ 

526  001626 

527  001630 

528  001634 

529  001636 

530  0016AO 

531  001642 

532  0016AA 

533  0016'i6 

534  001650 

535  001654 

536  001660 

537  001662 

538  001666 

539  001670 

540  001674 

541  001676 

542  001702 

543  001706 

544  001710 

545  001714 

546  001720 
547 

548  001722 

549  001724 

550  001726 

551  001734 

552  00(736 

553  001742 
55A  001744 
555  001750 
556 

557  001754 

558  001760 

559  001764 

560  001770 

561  001772 

562  001776 
563 

564  002002 

565 

566 

567 


.S8TTL  PUTxxx  -  MISCELLANEOUS  OUTPUT  FORMATTING  ROUTINES 

**  PUTNOD  -  OUTPUT  NODE  ADDRESS 
INPUTS: 


OUTPUTS: 


010201 

066701 

176522 

011101 

010146 

010146 

042701 

001777 

000301 

006201 

006201 

005701 

001405 

005002 

004767 

OOOOOOG 

112720 

000056 

012601 

042701 

176000 

005002 

004767 

OOOOOOG 

012601 

012702 

OOOOOOG 

020167 

OOOOOOG 

001005 

016746 

000002G 

016701 

OOOOOOG 

000415 

011202 

001426 

126227 

OOOOOOG  OOOOOOG 

001372 

026201 

000010 

001367 

016246 

000006 

016201 

000004 

112720 

000040 

112720 

000050 

004767 

OOOOOOG 

012601 

004767 

OOOOOOG 

112720 

000051 

PUTNOD: 


10$: 


20$: 


000207 


25$: 


40$: 


MOV 

ADD 

MOV 

MOV 

MOV 

BIG 

SWAB 

ASfi 

ti? 

BEQ 
CLR 
CALL 

Move 

MOV 

BIC 

CLR 

CALL 

MOV 

MOV 

CMP 

BNE 

MOV 

MOV 

BR 

MOV 

BEQ 

CMP8 

BNE 

CMP 

BNE 

MOV 

MOV 

Move 

MOVB 

CALL 

MOV 

CALL 

MOVB 


RO 
R2 


BUFFER  POINTER 
OFFSET  OF  PARAMETER 


RO  IS  UPDATED. 


R2,R1 

SERPT.RI 

(R1),R1 

R1,-(SP) 

R1,-(SP) 

#1^77, R1 

R1 

R1 

R1 

R1 

10$ 

R2 

$C6DMG 

#<'.>, (R0)+ 

(SP)+,R1 

#*C1777,R1 

R2 

$CBDMG 

(SP)+,R1 

#$TMLST,R2 

R1,$NTA0D 

20i 

$NTNAM+2,-(SP) 

$NTNAM,R1 

25$ 

(R2),R2 

40$ 

C.STS(R2),#CS.REM 

20$ 

C.ADD(R2),R1 

20$  , 

C.NAM+2(R2),-(SP) 

C.NAM(R2),R1 

*<'  >,(R0)+ 
*<'(>, (R0)+ 
$C5TA 
(SP)+,R1 
$C5TA 
#<')>, (R0)t 


COPY  OFFSET 

GET  ADDRESS  OF  DATA 

GET  NODE  ADDRESS 

PUSH  NODE  ADDRESS 

ONCE  MORE  FOR  GOOD  LUCK 

ISOLATE  AREA  BITS 

SHIFT  (AND  CLEAR  CARRY) 


AREA  0? 

IF  EQ,  NO  AREA  SHOWN 

SUPPRESS  ZEROES 

CONVERT  IT 

INSERT  DELIMITER 

RECOVER  NODE  ADDRESS 

CLEAR  AREA  BITS 

NO  ZEROES 

CONVERT  IT 

RECOVER  NODE  ADDRESS  AGAIN 

POINT  TO  NODE  LIST 

EXECUTOR  ADDRESS  ? 

NO 

GET  EXEC  NAME 

JoiN  COMMON  CODE 

NEXT 

IF  EQ,  NO  MORE 

;  REMOTE  ? 

NO 

THIS  NODE  ? 

NO 

;  PUSH  PART  2 

GET  PART  1 

INSERT  DELIMITER 

OUTPUT  IT 
RECOVER  PART  2 
OUTPUT  IT 
INSERT  DELIMITER 


RETURN 


*•  PUTR50   -  OUTPUT   RAD50  VALUE 
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Is: 
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172  000666 

012701 

000142' 

MOV 

#PARMSG,R1 

173  000672 

004767 

OOOOOOG 

CALL 

SEDMSG 

174  000676 

175 

176  000706 

PRINT 

#$BUFF         ; 

012702 

000530' 

MOV 

#BUF,R2 

177  000712 

016712 

OOOUOOG 

MOV 

$BYTXT,(R2) 

178  000716 

021267 

OOOOOOG 

CMP 

(R2),$BYTMN 

179  000722 

101002 

BHI 

7$ 

180  000724 

181 

182  000730 

016712 

OOOOOOG 

MOV 

$BYTMN,(P2;     ; 

012762 

000007 

000002 

7$: 

MOV 

#TOPLN,2(R2) 

183  000736 

012762 

000266' 

000004 

MOV 

#T0P,4(R2)      ; 
#CS.T0P,C.STS(R5) 

184  000744 

032765 

OOOOOOG 

OOOOOOG 

BIT 

185  000752 

001006 

BNE 

15$ 

186  000754 

012762 

000010 

000002 

MOV 

#FIfiLN,2(R2)    ; 

187  000762 

188 

189  000770 

012762 

000275' 

000004 

MOV 

#FIRST,4(R2) 

012700 

OOOOOOG 

15$: 

MOV 

#$8UFF,R0 

190  000774 

012701 

000213' 

MOV 

#PAR2MS,R1 

191  001000 

004767 

OOOOOOG 

CALL 

$EDMSG 

192  001004 

193 

194 

PRINT 

#$BUFF 

•  SEARCH  FOR  THE  BUFFER  TEMPLATE 

196  001014 

011404 

J0$: 

MOV 

(R4),R4 

197  001016 

001445 

BEQ 

102$          , 

198  001020 

122764 

OOOOOOG 

OOOOOOG 

CMPB 

#CS.BUF,C.STS(R4) 

199  001026 

200 

201 

001372 

BNE 

20$ 

;  DISPLAY  THE  BUFFER  CHARACTERISl 

202 

203  001030 

012701 

000530' 

^0$: 

MOV 

#8UF,R1 

204  001034 

016421 

000004 

MOV 

C.C8NM(R4),(R1)+ 

205  001040 

016421 

000014 

MOV 

C.S8NM(R4),(R1)+ 

206  001044 

016421 

000010 

MOV 

C.RBNM(R4),(R1)+ 

207  001050 

016421 

000012 

MOV 

C.RBSZ(R4),(R1)+ 

208  001054 

209 

210 

211 

212  001060 

016421 

000020 

MOV 

C.THSH(R4),(R1)+ 

•  FORMAT  THE  BUFFER  MESSAGES 

012703 

000542' 

MOV 

#MSTBL,R3 
#BUF,R2 

213  001064 

012702 

000530' 

MOV 

214  001070 

012301 

40$: 

MOV 

fR3)+,R1 

215  001072 

001411 

BEQ 

50$ 

216  001074 

012700 

OOOOOOG 

MOV 

#SBUFF,RO 

217  001100 

004767 

OOOOOOG 

CALL 

$EDMSG 

218  001104 

PRINT 

#$BUFF 

219  001114 

000765 

BR 

40$ 

220  001116 

221 

222 

223 

224  001120 

000207 

50$: 

RETURN 

;  ERROR  CONDITIONS 

ioi$: 

ERRORS 

#ERRPAR 

225  001130 

000404 

BR 

111$ 

226  001132 

102$: 

ERRORS 

#ERRBUF 

227  001142 

000207 

111$: 

RETURN 

228 

POINT  R1  AT  INPUT  STRING 
EDIT  THE  STRING 
PRINT  THE  MESSAGE 

POINT  AT  ARGUMENT  BLOCK 

MOVE  IN  THE  BYTE-AREA  EXTENSION 

CHECK  IT  AGAINST  BYTE-AREA  MINIMUM 

IF  GT,  OK 

ELSE  REPORT  MINIMUM  VALUE 

ASSUME  TOPDOWN  LOADING 

;  TOPDOWN  LOADING  ? 

IF  NE,  YES  ..  OKAY 

ELSE.  SAY  THIS  IS  FIRSTFIT 


POINT  RO  AT  OUTPUT  BUFFER 
POINT  Rl  AT  MESSAGE  STRING 
FORMAT  THE  MESSAGE 
PRINT  THE  MESSAGE 


GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  BUFFER  TEMPLATE 

IF  NE,  NO  -  KEEP  LOOKING 


POINT  Rl  AT  ARGUMENT  BLOCK 
;  STORE  THE  CCB  NUMBER 
;  STORE  THE  SDB  NUMBER 
;  STORE  THE  RDB  NUMBER 
;  STORE  THE  RDB  SIZE 
;  STORE  THE  THRESHOLD  VALUE 


POINT  R3  AT  THE  MESSAGE  TABLE 

POINT  R2  AT  THE  ARGUMENT  BLOCK 

POINT  Rl  AT  THE  MESSAGE  STRING 

IF  EQ,  END  OF  MESSAGES 

POINT  RO  AT  OUTPUT  BUFFER 

FORMAT  THE  MESSAGE 

PRINT  THE  MESSAGE 

REPEAT 

RETURN  TO  CALLER 


FAILED  TO  FIND  PARTITION  TEMPLATE 

AND  RETURN 

FAILED  TO  FIND  BUFFER  TEMPLATE 
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265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28A  000176 

285  000176 

286  000202 

287  000206 

288  000212 

289  000216 

290  000220 

291  000224 

292  000226 

293  000232 


.SSTTL 
'•»*  -  SETCBS 


SETCBS  -  SET  CCB  SIZE 
-  SET  CCB  SIZE 


REASONABLE  CHECKS  ARE  PERFORMED  ON  THE  CURRENT  VALUE. 
NOT  IN  RANGE,  THE  C-BIT  IS  SET. 

INPUT: 

TEMP  =  TEMPLATE  ADDRESS 

SLIMTB  =  ADDRESS  OF  LIMITS  TABLE 

.PNUMB  =  CURRENT  VALUE 

.PNUMH  =  CURRENT  VALUE  (HIGH  ORDER) 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 
VALUE  IS  STORED  IN  TEMPLATE. 


IF  THE  VALUE  IS 


016700 
016701 
010160 
020167 
103403 
020167 
101402 
062716 
000207 


177576 
OOOOOOG 
000006 
177570 

177564 

000002 


SETCBS: 


10$: 
20$: 


MOV 

MOV 

MOV 

CMP 

BLO 

CMP 

BLOS 

ADD 

RETURN 


TEMP.RO 

. PNUMB, R1 

R1,C.CBSZ(R0) 

RI.LOCBSZ 

lOl 

RI.HICBSZ 

20$ 

#2,(SP) 


POINT  Al  TEMPLATE 

GET  THE  SIZE  OF  EACH  CCB 

STORE  THE  CCB  SIZE 

IS  THE  VALUE  IN  RANGE  ? 

IF  LO,  NO  -  SET  C-BIT 

STILL  IN  RANGE  ? 

IF  LOS,  YES  -  JUST  LEAVE 

REJECT  THE  TRANSITION  (SETS  C-BlT) 
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1 
2 
3 

A 
5 
6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

57 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


.TITLE   TMPCHN  -  PARSE  OUTGOING  CHANNEL  DEFINITION 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  OUTGOING  CHANNEL  DEFINITION 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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I  11 
05:2? 


55 

56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

68 

69 

70 

71 

72 

73 

^l^   000000 

75 

76 

77 

78  000000 

79  000000 

80  000000 

81  000002 

82  000004 

83  000006 

84  000010 

85  000012 

86  OOOOU 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  $PR]NT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


■  MACRO  CALLS 
•  **** 


.MCALL   ISTATS, STATES, TRANS 


87 
88 
89 


000002 


000016 


;  LOCAL  DATA 

;  **** 

TEMP:    .BLKW   1 

DEFINE  CONTROLLER  TEMPLATE 


.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKU 

.BLKW 

.BLKW 

.BLKW 

.BLKW 


C.CNT 
C.VEC 
C.CSR 
C.PRI 
C.URM 
C.LEN= 


.PSECT 


ADDRESS  OF  CONTROLLER  TEMPLATE 


C.LNK 

C.STS 

CONTROLLER  NUMBER 

VECTOR  ADDRESS 

CSR  ADDRESS 

CONTROLLER  PRIORITY 

UNIBUS  RUN  MASK 
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5 
6 
7 
8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
21 
28 
29 
30 
31 
32 
33 
Ik 
35 
36 
37 
38 
39 
AO 
41 
A2 
43 
AA 
A5 
A6 
A7 
A8 
A9 
50 
51 
52 
53 
5A 
55 


.TITLE  TMPCUG  -  PARSE 
.IDENT  /V05.00/ 
.ENABL  LC 


lOSED  user  GROUP 


COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  CLOSED  USER  GROUP  DESCRIPTOR 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  lA-AUG-81 

DECNET-llM/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  le-Af^R-sa 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

A. 00  07-NOV-83 

DECNET-11M  VA.O 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  VA.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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l^ 


ss 

S(s 

s/ 

SH 

S4 

hi) 

61 

h? 

6^ 

(S^ 

6S 

66 

6/ 

6H 

69 

/() 

n 

7? 

y, 

It, 

000000 

fS 

000002 

fh 

ti 

^H 

!9 

000000 

80 

000000 

HI 

000000 

^7 

000002 

K^ 

OOOOO-i 

HA 

000006 

85 

000010 

86 

000012 

8/ 

000013 

88 

oooou 

89 

000004 

;  LOCAL  MACROS 

■  ♦*** 

.MACRO 
MOV 
CALL 
.ENDM 

PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 

;  MACRO  CALLS 

;  *  *  *  * 

.MCALL 

ISTATS, STATE 

;•  LOCAL  DATA 

;  ♦  *  »  » 

FLAG: 
TEMP: 

.BLKW 
.BLKW 

1 
1 

;  DEFINE  DDM  TEMPLATE 

C.NAM 
C.FLG 
C.PRI 
C.NLT 
C.NCT 
C.LEN 

.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.SLKB 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


FLAGS  WORD 

ADDRESS  OF  DDM  TEMPLATE 


C.LNK 

C.STS 

DDM  PROCESS  NAME 

DDM  FLAGS  WORD 

DDM  PROCESS  PRIORITY 

NUMBER  OF  LINE  TABLES  IN  PROCESS  SPACE 

NUMBER  OF  CONTROLLER  TABLES  IN  PROCESS  SPACE 


.PSECT 
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TMppEf  -  CFE  PARSE  DEftDf  DEFIN  MACRO  V05.03b  Saturday  ?9-Jun-85  05:50 
Table  ot  contents 

ifRO  DEFINITIONS 

PARSE  TABLES 

-  SETUP  DEC  TEMPLATE 

-  NUMBER  OF  LOGICAL  LINKS  PROCESS  SHOULD  SUPPORT 

-  NUMBER  OF  NODE  COUNTERS 

-  INCOMING  TIMER 

-  OUTGOING  TIMER 

-  INACTIVITY  TIMER 

-  DELAY  FACTOR 

-  DELAY  WEIGHT 

-  INPUT  PACKET  LIMITER 

-  LINK  SERVICE  THRESHOLD 

-  RETRANSMIT  FACTOR 

-  ECL  SEGMENT  SIZE 


4- 

^A 

MACRO 

s- 

65 

DECIDE 

f,- 

U1 

STMDEC 

1- 

169 

SETLKS 

K- 

19A 

SETNDC 

9- 

22? 

SETINC 

1(1- 

2A8 

SETOUT 

11- 

27A 

SETINA 

V- 

500 

SETDEF 

H- 

525 

SETDWF 

U- 

551 

SETIPL 

IS- 

576 

SETLST 

1ft- 

401 

SETRET 

\l- 

427 

SETSEG 
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TMPDEC  - 
StTlPL  - 

351 
352 
353 
35^ 
355 
356 
357 
358 
359 
360 
361 
362 
363 
36A 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
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.SBTTL  SETIPL  -  INPUT  PACKET  LIMITER 
*•*  -  SETIPL  -  SETUP  INPUT  PACKET  LIMITER 

THIS  ACTION  ROUTINE  SETS  UP  THE  INPUT  PACKET  LIMITER  FOR  XPT 
INPUT: 


.PNUMB  =  INPUT  PACKET  LIMITER 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


000400 
000400 
000404 
000412 
000416 
000420 
000424 
000426 
000432 


016700 
116760 
005767 
001003 
105767 
001402 
062716 
000207 


177374 

OOOOOOG  000020 
OOOOOOG 

000001 G 

000002 


SETIPL; 


10$: 
20$: 


THE  INPUT  PACKET  LIMITER  IS  STORED  IN  C.IPL  OF  THE  TEMPLATE 


MOV  TEMP,RO  ;  GET  START  OF  TEMPLATE 

M0V8  . PNUMB, C.IPL(RO)  ;  STORE  INPUT  PACKET  LIMITER 

TST  .PNUMH  ;  IS  IT  ONLY  A  WORD  VALUE  ? 

BNE  10$  ;  IF  NE ,  NO  -  REJECT 

TST8  .PNUMBtl  ;  IS  IT  A  BVTE  VALUE  ? 

BEQ  20$  ;  IF  EQ,  YES  -  OKAY 

ADD  *2,(SP)  ;  ELSE,  REJECT  TRANSITION 

RETURN 
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SETLST  -  LINK  SERVICE  THRESHOLD 
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150  000004  SrATES 
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STMDLC  -  SETUP  DLC  TEMPLATE 
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SHOLIN     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:26     PAGE  4 

MACRO  CROSS  REFERENCE  CfiEF   04.00 

MACRO  NAME      REFERENCES 

CHAOFS 
EPRINT 
ERRORS 

llh''  itll  l:f.l  till  t^  2:^2^0  r-W^  4-252  4-255  4-256  4-257 


#4-103 

4-105 

If,-?? 

#4-66 

6-417 

9-625 

#4-59 

5-305 

6-383 

6-394 

6-404 

6-409 

#4-90 

4-246 

4-248 

4-249 

4-250 

4-251 

K     1 

*»FIlE**1D*«SH0L0G 


SHOLOG  - 
CKPReV 

379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 


393 
394 
395 
596 
397 
398 
399 
400 
401 


J  2 

LIST  LOGGING  OPTIONS   MACRO  VO5.03b  Saturday  29-Jun-85  05:26  Page  11 

.SBTTL  CKPREV 


001320 

132767 

000002  176765 

CKPREV: 

BITS 

#F.PREV, FLAGS 

001326 

001411 

BEQ 

20$ 

001330 

116701 

176760 

MOVS 

PREVNT.RI 

001334 

001403 

BEQ 

10$ 

001336 

005002 

CLR 

R2 

001340 

004767 

OOOOOOG 

CALL 

$C8DMG 

001344 

142767 

000002  176741 

10$: 

BICB 

#F.PREV, FLAGS 

001352 

000207 

20$: 

RETURN 

CKPREV  -  CHECK  TO  SEE  If  PREVIOUS  EVENT  WAS  SET  AND  IF  IT  WAS,  DISPLAY  IT 

INPUTS: 

PREVNt'-  VALUE  OF  PREVIOUS  EVENT  TYPE  IF  PREVIOUS  EVENT  TYPE  WAS  SET 

OUTPUTS: 

FLAGS  -  r.PREV  IS  CLEARED 

THE  PREVIOUS  EVENT  VALUE  IS  DISPLAYED  IF  NECESSARY 


WAS  PREVIOUS  EVENT  TYPE  SET 

BR  IF  NO 

GET  EVENT  TYPE  NUMBER  TO  DISPLAY 

BR  IF  FIRST  NUMBER  IN  RANGE 

SUPPRESS  ZEROES 

CONVERT  TO  ASCII 

INDICATE  THIS  EVENT  TYPE  NOT  SET 
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CHKBIT  -  CHECK  TO  SEE  IF  BIT  IS  ON 
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26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 

277  0O20A2 

278  0020'42 

279  002046 

280  002052 

281  002056 

282  002062 

283  002066 

284  002072 

285  002100 
286 

287 
288 
289 

290  002104 

291  002114 

292  002124 

293  002134 

294  002144 

295  002154 
296 

297 


.SBTTL 

.SBTTL  SSHXPR  -  SHOW  MODULE  X25-PR0TDC0L 

*•*  -  SSHXPR  -  SHOW  MODULE  X25-PROTOC0L 

INPUT: 


SOPRND  =  TVPE  OF  REQUEST 


OUTPUT: 


THE  HEADER  IS  PRINTED  AND  THE  SHO  INFORMATION  ROUTINE 
IS  DISPATCHED  TO 


012705  002104' 

012704  OOOOOOG 

012724  000014 

012724  001646' 

016703  OOOOOOG 

042703  OOOOOOG 

012767  177777  175712 


SSHXPR:: 


MOV 
MOV 
MOV 
MOV 
MOV 
BIC 

^^v 

CALLR 
DISPATCH  TABLE 


#XPRDTB,R5 

#SHDRBK,R4 

#XPRL,(R4)+ 

#XPR,(R4)+ 

S0PRND,R3 


POINT  TO  DISPATCH  TABLE 
POINT  TO  ARGUMENT  BLOCK 
MODULE  IS  X25-PROTOCOL 


„ .  GET  REQUEST  TYPE 

#*C<XP.DTEIXP.KNDIXP.CUG!XP.KNG>,R3  ; 
#-1, OPTION      ;  WANT  ALL  OPTIONS 
DISPAT         ;  DISPATCH  TO  ROUTINE 


CLEAR  DONT  CARE  BITS 


002156' 
002326' 
002326' 
002774' 
002774' 
000000 


000000  000017 
OOOOOOG  000017 
OOOOOOG  000012 
OOOOOOG  000017 
OOOOOOG  000014 


.NLIST  BEX 
XPRDT8:  .WORD  XPRCHA,  0 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.LIST 


CHARL,  CHAR 

XPRDTE;  XP.DTE,  CHARL,  CHAR 

XPRDTE,  XP.<ND,  KDTEL.  KDTE 

XPRCUG,  XP.CUG,  CHARL,  CHAR 

XPRCUG,  XP.Ki'JG,  KCUGL,  KCUG 
0 
BEX 


CHARACTERISTICS 

DTE 

KNOWN  DTES 

GROUP 

KNOWN  GROUPS 
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XPRCHA  -  SHOW  X25  PROTOCOL  CHARACTERISTICS 
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SHOMOD  - 
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705 

706 

707 

708 

709 

710 

711 

712 

713 

71A 

715 

716 

717 

718 

719 

720 

721  003750 

722  003750 

005067  174024 

723  00375'; 

000401 

72A  003756 

022525 

725  003760 

012502 

726  003762 

001415 

727  003764 

022503 

728  003766 

001374 

729  003770 

012524 

730  003772 

012524 

731  003774 

004712 

732  003776 

005767  173776 

733  004002 

001004 

734  004004 

735  004014 

000207 

736 

737  004016 

738  004026 

000261 

739  004030 

000207 

740 

.SBTTL 

.SBTTL  DISPAT  -  DISPATCH  TO  SHOW  ROUTINE 


«*  DISPAT 
INPUTS 

OUTPUT 

REGISTERS 


DISPATCH  TO  SHOW  ROUTINE 

R5  =  DISPATCH  TABLE  ADDRESS 
R4  =  ARGUMENT  BLOCK  ADDRESS 
R3  =  REQUEST  CODE 

$HDR8K  =  HEADER  INFORMATION 

HDRPRT  =  0 

THE  ROUTINE  SHOW  INFORMATION  ROUTINE  IS  ENTERED. 

R2,R4,R5  ARE  CORRUPTED. 


DISPAT: 


101: 
20$: 


25$: 
30$: 


CLR 

BR 

CMP 

MOV 

BEQ 

CMP 

BNE 

MOV 

MOV 

CALL 

TST 

BNE 

PRINT 

RETURN 

ERRORS 

SEC 

RETURN 


HDRPRT 

20$ 

(R5)+,(R5)+ 

(R5)+,R2 

30$ 

(R5)+,R3 

20$ 

(R5)+,(R4)t 

(R5)+,(R4)t 

'R2) 

mDRPRT 

2:^$ 

#NOINF 


#ERRREQ 


NO  INFORMATION,  YET 

NO  HEADER  INFO  TO  SKIP,   FIRST  PASS 

SKIP  HEADER 

GET  ROUTINE  ADDRESS 

IF  EQ,  NO  SUCH  REQUEST 

COMPARE  REQUEST  TYPES 

IF  NE,  KEEP  LOOKING 

ELSE  STUFF  HEADER  INFORMATION 

DisPATCH  TO  SHOW  ROUTINE 

ANYTHING  PRINTED  ? 

IF  NE,  YES 

ELSE  NO  INFORMATION 


UNKNOWN  REQUEST  TYPE 
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ORINT  -  PRINT  FORMATTED  INFORMATION 


1 

SHOMOD 

CREATED  BY     MACRO     ON  29- 

■JUN-85  AT  05 

21           PAGE 

J     5 

6 

MACRO   CROSS 

REFERENCE 

CREF 

04.00 

MACRO  MAME 

REFERENCES 

BEGTXT 

#A-103 

5-187 

5-198 

5-209 

5-216 

5-222 

5-236 

CALLR 
ENDTXT 

#A-59 

#5-187 

#5-236 

6-285 
5-194 
5-238 

11-529 
#5-198 

12-562 
5-202 

14-623 
#5-209 

5-212 

#5-216 

5-218 

#5-222 

5-231 

EPRINT 

#A-83 

ERRORS 

#A-72 

18-737 

OPTION 

#A-U7 

21-880 

21-881 

21-882 

21-883 

21-888 

21-889 

PRINT 

#4-65 

9-449 

9-457 

18-734 

19-769 

STRING 

#4-96 

5-242 

5-243 

5-244 

5-245 

5-246 

5-247 

5-248 

5-249 

5-250 

TEXT 

5-251 
#5-187 

5-188 

5-189 

5-190 

5-191 

5-192 

5-193 

#5-198 

5-199 

5-200 

5-201 

#5-209 

5-2K 

5-211 

#5-216 

5-217 

#5-222 

5-223 

5-224 

5-225 

5-226 

5-227 

5-228 

5-229 

5-230 

#5-236 

5-237 

$$$BLK 

#4-139 

5-194 

5-194 

5-194 

5-194 

5-194 

5-194 

5-202 

5-202 

5-202 

5-212 

5-212 

5-218 

5-231 

5-231 

5-231 

5-231 

5-231 

5-231 

5-231 

$$$fMT 

5-231 
#4-143 

5-238 
5-194 

5-194 

5-194 

5-194 

5-194 

5-194 

5-202 

5-202 

5-202 

5-212 

5-212 

5-218 

5-231 

5-231 

5-231 

5-231 

5-231 

5-231 

5-231 

$$$STR 

5-231 
#4-154 

5-238 

5-188 

5-189 

5-190 

5-191 

5-192 

5-193 

5-199 

5-200 

5-201 

5-210 

5-211 

5-217 

5-223 

5-224 

5-225 

5-226 

5-227 

5-228 

5-229 

5-230 

5-237 
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1 
2 

3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   SHOfiEM  -  SHOW  REMOTE  NODE  CHARACTERISTICS 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SHOW  REMOTE  DEFAULTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-PLus  V5.0 
DECnet-Micro/RSX  VI. 0 
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PUTxxx  -  MISCELLANEOUS  OUTPUT  FORMATTING  ROUTINES 
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568 
569 
570 
571 
572 
573 
57A 

575  002004 

576  002010 

577  002012 

578  0020U 

579  002020 

580  002022 
581 

582 
583 
584 
585 
586 
587 
588 
589 

590  002024 

591  002030 

592  002032 

593  002034 

594  002036 
595 

596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 

609  002040 

610  002044 

611  002046 

612  002056 

613  002062 

614  002064 
615 

616  002066 

617  002072 

618  002074 

619  002100 

620  C02112 

621  002114 
622 

623 
624 


066702 
010205 
012501 
004767 
077304 
000207 


012701 
112120 
001376 
005300 
000207 


176334 
OOOOOOG 


INPUTS: 


OUTPUTS: 

PUTR50:  ADD 
MOV 

10$:    MOV 
CALL 
S08 
RETURN 


RO  =  BUFFER  POINTER 

R2  =  OFFSET 

R3  =  WORD  COUNT 

RO  IS  UPDATED.  R4  IS  PRESERVED. 


SERPT,R2 

R2,R5 

(r5)+,R1 

$C5Ta1 

R3,10$ 


POINT  TO  SOURCE 
COPV  ADDRESS 
NEXT  WORD 
CONVERT  IT 
CONTINUE 
DONE 


000306' 


**  PUTSNT  -  OUTPUT  SERVICE  NODE  VERSION 
INPUTS: 


OUTPUTS: 


PUTSNT: 
10$: 


MOV 

M0V8 

BNE 

DEC 

RETURN 


RO  =  BUFFER  POINTER 

R2  =  SOURCE  FIELD  OFFSET 

RO  IS  UPDATED.   R4  IS  PRESERVED. 

#PHASE3,R1      ;  POINT  TO  STRING 

(R1)+,(R0)+     ;  MOVE 

10$  ;  STRING 

RO  ;  ... 

;  DONE 


**  PUTOCT  -  OUTPUT  OCTAL  VALUE 
INPUTS: 


OUTPUTS: 


RO  -   BUFFER  POINTER 

R2  =  SOURCE  FIELD  OFFSET 

R3  =  BYTE  COUNT 

RO  IS  UPDATED 


.ENABL  LS8 


066702 
011202 

012701 
010211 
000403 

066702 
010201 
012702 

050302 
000167 


176300 
000334' 

176252 
060010 

OOOOOOG 


PUT0C2:  ADD 
MOV 
ASL$ 
MOV 
MOV 
BR 


PUTOCT 
10$: 


ADD 

MOV 

MOV 

ASL$ 

BIS 

CALLR 


SERPT,R2 

(R2),R2 

4,R2 

*SCR,R1 

R2,(R1) 

loi 

SERPT,R2 

R2,R1 

#4600*12. +8. ,R2 

5,R3 

R^,R2 

$C8TA3 


POINT  TO  SOURCE 

GET  IT 

CONVERT  IK  UNITS  TO  64.  BYTE  UNITS 

POINT  TO  SCRATCH  BUFFER 

FILL  IN  SCRATCH  BUFFER 

JOIN  COMMON  CODE 

GET  SOURCE  ADDRESS 
POINT  TO  SOURCE 
FIELD  WIDTH,  RADIX 
SHIFT  BYTE  COUNT  LEFT 
FOLD  IN  BYTE  COUNT 
CONVERT  BINARY  TO  ASCII 


.DSABL  LS8 


SHOREM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.05b  Saturday 
PUTxxx  -  MISCELLANEOUS  OUTPUT  FORMATTING  ROUTINES 
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tSHSVS  -  SHOW  SYSTEM  CHARACTERISTICS 

229       000001  .END 
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SETRBN  -  SET  RDB  NJUMBER 
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295 
296 
297 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U  00023'! 

315  000234 

316  000240 

317  000244 

318  000250 

319  000254 

320  000260 

321  000264 

322  000270 

323  000272 

324  000276 

325  000300 

326  000304 


.SBTTL  SETRBN  -  SET  RDB  NUMBER 

♦**  -  SETRBN  -  SET  RDB  NUMBER 

REASONABLE  CHECKS  ARE  PERFORMED  ON  THE  CURRENT  VALUE. 
NOT  IN  RANGE,  THE  C-BIT  IS  SET. 


IF  THE  VALUE  IS 


INPUT; 


TEMP  =  TEMPLATE  ADDRESS 

SLIMTB  =  ADDRESS  OF  LIMITS  TABLE 

.PNUMB  =  CURRENT  VALUE 

.PNUMH  =  CURRENT  VALUE  (HIGH  ORDER) 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 
VALUE  IS  STORED  IN  TEMPLATE. 


016700 
016701 
010160 
010167 
010167 
005367 
020167 
103403 
020167 
101402 
062716 
000207 


177540 

OOOOOOG 

000010 

OOOOOOG 

177552 

177546 

177522 

177516 

000002 


SETRBN: 


10$: 
20$: 


MOV 

MOV 

MOV 

MOV 

MOV 

DEC 

CMP 

BLO 

CMP 

BLOS 

ADD 

RETURN 


TEMP.RO 

. PNUMB, R1 

R1,C.RBNM(R0) 

R1,$RDBNM 

Rl.HITHSH 

HITHSH 

R1,L0RBNM 

10$ 

RI.HIRBNM 

20$ 

*2,(SP) 


POINT  Al  TEMPLATE 

GET  THE  NUMBER  OF  RDB'S 

STORE  THE  RDB  NUMBER 

SAVE  THE  RDB  NUMBER  FOR  LATER 

SET  MAXIMUM  NUMBER  FOR  RDB  THRESHOLD 

..MINUS  ONE 

IS  THE  VALUE  IN  RANGE  ? 

IF  LO,  NO  -  SET  C-BIT 

STILL  IN  RANGE  ? 

IF  LOS,  YES  -  JUST  LEAVE 

REJECT  THE  TRANSITION  (SETS  C-BlT) 
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TMPCHN  -  PARSE  OUTGOING 
MACRO  DEFINITIONS 

57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
11 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
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.S8TTL 

MACRO  DEFINITIONS 

LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 

PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 

.MACRO  SGTNUM  OFFS,LO=<#0>,HI=<#177777>,OPT 

MOV  0FFS.R2 

MOV  LO,R0 

MOV  HI,R1 

.JF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 

.MACRO  SGTNMB  OFF S,L0=<#0>,HI=<#377>,0PT 

MOV  0FfS.R2 

MOV  LO,R0 

MOV  Hl.fil 

.IF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNMB 

.ENDM 

GET  RAD50  WITH  FIELD  SIZE  CHECKING 

.MACRO  SGTR50  OFFS.LEN.OPT 

MOV  0FFS,R2 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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91 
92 
93 

95  000002 
96 

97  000002 

98  000002 
99 

100  000002 

101  000002 
102 

105  000002 
104  000002 
105 

106  000002 

107  000002 
108 

109  000002 

110  000002 
111 

112  000002 

113  000002 
11A 

115  000002 

116  000002 
117 

118  000002 

119  000002 
120 

121  000002 

122  000002 

123  000002 
124 

125  000002 

126  000002 
127 

128  000002 

129  000002 

130  000002 

131  000002 
132 

133  000002 

134  000002 
135 

136  000002 


•  **** 

•  INITIALIZE    TABLE    GENERATION 
■  **** 

ISTATS  CNTST8,CNTKTB 

STATES 
TRANS  SNUMBR,,SErCNT 

STATES 
TRANS  <',> 

STATES 
TRANS     SNUM8R,,SETVEC 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM6R,,SETCSR 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETPRI 

STATES 
TRANS  <',> 

STATES  ;  UNIBUS  RUN  MASK  (M+) 

TRANS  SNUMBR.RCDEV.SETURM 
TRANS  SLAMDA 

STATES  RCDEV 
TRANS  <',> 

STATES 

TRANS  SALPHA 
STATES 

TRANS  SAIPHA 

STATES 
TRANS     SEOS.SEXIT 

STATES 
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TMPCUG  -  PARSE  CLOSED  USER 
MACRO  DEFINITIOMS 

57 
58 
59 
60 
61 
62 
65 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 

n 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
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.S8TTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT,RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS   TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SGTNUM  0FFS,LU=<#0>,HI=<#1 77777>,0PT 

MOV  0FFS,R2 

MOV  LO.RO 

MOV  Hl.RI 

.IF  NB  <0PT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 


.MACRO 

SGTNMB 

OFFS 

,L0= 

C#0>,HI 

=<*377> 

OPT 

MOV 

0FFS,R2 
LO.RO 

MOV 

MOV 

Hl.RI 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNMB 

.ENDM 

;  GET 

RAD50  WITH  FIELD 

SIZE 

CHECKING 

.MACRO 

$GTR50 

OFFS 

,LEN 

,OPT 

MOV 

0FFS,R2 
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91 

92 

93 

94 

95  000004 

96 

97  000004 

98  000004 
99 

100  000004 

101  000004 
102 

105  000004 
104  000004 
105 

106  000004 

107  000004 
108 

109  000004 

110  000004 

111  000004 
112 

113  000004 

114  000004 
115 

116  000004 

117  000004 

118  000004 

119  000004 

120  000004 

121  000004 

122  000004 

123  000004 

124  000004 

125  000004 

126  000004 

127  000004 
128 

129  000004 

130  000004 
131 

132  000004 


VA 


0     Page  5 


133 
134 
135 
136 


000004 


000004 
__  000004 
137  000004 
138 

139  000004 

140  000004 

141  000004 
142 

143  000004 

144  000004 

145  000004 
146 

147  000004 


'initialize  TABLE  GENERATION 

ISTATS 

DDMSTB.DDHKTB 

STATES 
TRANS 

SRAD50,,SErNAM 

STATES 
TRANS 

<',> 

STATES 
TRANS 

IZf 

STATES 
TRANS 

"DDM",,,ZF. DOM, FLAG 

STATES 
TRANS 
TRANS 

BITS 

•I.BITO 

SLAMDA, PRIOR, SETFLG 

STATES 
TRANS 

BITO 
IZF 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

"TIM", BITS, ,ZF. TIM, FLAG 
"MFL", BITS, ,ZF.MFL, FLAG 
"DLC",BITS,,ZF.DLC,FLAG 
"MUX", BITS, ,ZF. MUX, FLAG 
"LMC",BITS,,ZF.LMC,FLAG 
"KMX", BITS, ,ZF.KMX, FLAG 
"COU", BITS, .ZF.COU, FLAG 
"PSE", BITS, ,ZF.PSE, FLAG 
"DIA", BITS, ,ZF.DIA, FLAG 
"DVP", BITS, ,ZF.DVP, FLAG 
"MAN", BITS, ,ZF. MAN, FLAG 

STATES 
TRANS 

PRIOR 
<'  ,> 

STATES 
TRANS 

SNUM8R,,SETPRI 

STATES 
TRANS 
TRANS 

SEOS,SEXIT 
<'  .> 

STATES 
TRANS 
TRANS 

SNUMBR,NCT,SETNLT 
SLAMDA 

STATES 
TRANS 
TRANS 

NCT 

SEOS,$EXIT 
<'  ,> 

STATES 


;    NUMBER   OF    CONTROLLER   TABLES 
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05i30 


1 
2 
I 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 


.TJTLE   TMPDEC  -  CFE  PARSE  DECSDF  DEFINITIONS  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  DECSDF  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  25-JUN-84 

MODULE  CREATION 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-HM-Plus  V3.0 
DECnet-Mkro/RSX  VI. 0 
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MACRO  DEFINITIONS 


IMPDff  - 
SETLSt  - 

377 
378 
379 
380 
381 
38? 
383 
38'. 
38S 
38b 
387 
388 
389 
390 
391 
392 
393 
39A 
395 
396 
397 
398 
399 
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LINK  SERVICE  IHRESHOlD 


00OA3A 
000434 
000440 
000446 
000452 
000454 
000460 
000462 
000466 


.SBTTL  SETLST  -  LINK  SERVICE  THRESHOLD 
'«•»  -  SETLST  -  SETUP  LINK  SERVICE  THRESHOLD 

THIS  ACTION  ROUTINE  SETS  UP  THE  LINK  SERVICE  THRESHOLD  FOR  THE  EXECUTOR 
INPUT: 


.PNUM8  =  LINK  SERVICE  THRESHOLD 
.PNUMH  =  (HIGH  ORDER) 


016700 
116760 
005767 
001003 
105767 
001402 
062716 
000207 


177340 

OOOOOOG  000021 
OOOOOOG 

000001 G 

000002 


OUTPUT 


SETLST: 


10$: 
20$: 


THE  LINK  SERVICE  THRESHOLD  IS  STORED  IN  C.LST  OF  THE  TEMPLATE 


GET  START  OF  TEMPLATE 
;  STORE  LINK  SERVICE  THRESHOLD 
IS  IT  ONLY  A  WORD  VALUE  7 
IF  NE,  NO  -  REJECT 
IS  IT  A  BYTE  VALUE  ? 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 


MOV 

TEMP.RO 

MOVB 

.PNUM8,C.LST(R0) 

TST 

.PNUMH 

BNE 

10$ 

TST8 

.PNUM8+1 

BEQ 

20$ 

ADD 

#2,(SP) 

RETURN 
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^sl^i 
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152 

155 

15^ 

155 

156 

157 

158 

159 

160 

161 

162 

163 

16^ 

165  000004 

'. 

166  OOOOOA 

010546 

167  000006 

012701 

000014 

168  000012 

004767 

OOOOOOG 

169  000016 

010067 

177760 

170  000022 

012760 

OOOOOOG  OOOOOOG 

171  000030 

105060 

000012 

172  000034 

005001 

173  000036 

012702 

000000' 

174  000042 

012705 

000000' 

175  000046 

004767 

OOOOOOG 

176  000052 

103002 

177  000054 

005267 

OOOOOOG 

178  000060 

012605 

179  000062 

000207 

.SeriL     STMDLC   -   SETUP  DLC   TEMPLATE 
'•••   -   STMDLC    -    SETUP   DLC    TEMPLATE 
INPUT; 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  DLC  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


STMDLC: 


20S: 


MOV  R5,-(SP) 

MOV  #C.LEN,R1 

CALL  STALOC 

MOV  RO.TEMP        , 

MOV  #CS.DLC.C.STSiRO) 

CLR8  C.NLT(RO) 

CLR  R1 

MOV  #DLCKTB,R2 

MOV  #DLCSTB,R5 

CALL  .TPARS 

BCC  20S 

INC  SERROR 

MOV  (SP)t,R5 

RETURN 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  A  DlCSOF  TEMPLATE 

ZERO  THE  LINE  TABLE  COUNT 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 
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♦»filE":d««sholog 


ssssssss 

HH 

HH 

000000 

LL 

000000 

GGGGGGGG 

ssssssss 

HH 

HH 

000000 

LL 

000000 

GGGGGG6G 

ss 

HH 

HH 

00 

01) 

LL 

00 

00 

GG 

ss 

HH 

HH 

00 

00 

LL 

^^ 

00 

GG 

ss 

HH 

HH 

00 

no 

LL 

00 

GG 

ss 

HH 

HH 

00 

00 

LL 

9° 

00 

GG 

ssssss 

HHHHHHHHHH 

00 

00 

LL 

00 

00 

GG 

SS5SSS 

HHHHHHHHHH 

00 

00 

LL 

00 

00 

GG 

ss 

HH 

HH 

00 

00 

LL 

00 

00 

GG 

GGGGGG 

ss 

HH 

HH 

00 

iiO 

LL 

00 

00 

GG 

GGGGGG 

ss 

HH 

HH 

DO 

no 

LL 

00 

00 

GG 

GG 

ss 

HH 

HH 

00 

00 

lL 

00 

00 

GG 

GG 

ssssssss 

HH 

HH 

000000 

1  LLLLLLLLL 

000000 

GGGGGG 

ssssssss 

HH 

HH 

000000 

LLLLLLL 

LL 

000000 

G 

GG6GG 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 

417  001354 

418  001360 

419  001364 

420  001370 

421  001372 

422  001374 

423  001376 

424  001400 

425  001404 

426  001406 

427  001410 

428  001412 

429  001414 

430  00^420 

431  001422 
432 

433 


012702  000001 

116701  176726 

042701  177770 

001403 

006302 

005301 

003375 

116701  176706 

006201 

006201 

006201 

060501 

062^01  000006 

130211 

000207 

000001 


.S8TTL  CHKBIT  -  CHECK  TO  SEE  If  BIT  IS  ON 

CHKBIT  -  CHECK  TO  SEE  If  SPECIflED  BIT  IS  ON 

INPUTS; 

BITNUM  -  BIT  NUMBER  TO  CHECK 
R5  -  ADDRESS  Of  TEMPLAIE  BLOCK 

OUTPUTS: 

CONDITION  CODE  AS  DEflNED  FOR  BITB  INSTRUCTION 


CHKBIT: 


10$: 


20$: 


MOV 

MOVB 

BJC 

BEQ 

ASL 

DEC 

BGT 

MOVB 

ASR 

ASR 

ASR 

ADD 

ADD 

BITB 

RETURN 

.END 


#1,R2 

BITNUM, R1 

#177776, Rl 

20$ 

R2 

Rl 

10$ 

BITNUM, Rl 

Rl 

Rl 

Rl 

R5,R1 

*C.EVT,R1 

R2,(R1) 


GET  A  CHECK  BIT  IN  POSITION  0 

GET  BIT  NUMBER 

MAKE  IT  A  SHIFT  COl'NT 

BR  IF  BIT  POSITION  0 

SHIfT  CHECK  BIT  LETT 

DECREMENT  SHIFT  COUNT 

BR  IF  MORE  TO  SHIfT 

GET  BIT  NUMBER 

DIVIDE  BY  8  TO  GET  BYTE  INDEX 


POINT  TO  TEMPLATE  BLOCK 
GET  ADDRESS  Of  EVENT  MASKS 
CHECK  BIT 


SHOLOG  -  LIST  LOGGING  OPTIONS 
Symbol  table 
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299 
300 
301 
302 
303 
304 
305 
306 
307 

308  002156 

309  002156 

310  002162 

311  00216A 

312  002166 

313  002174 

314  002176 

315  002202 

316  002206 
31 >  002212 

318  002216 

319  002220 

320  002224 

321  002226 

322  002232 

323  002234 

324  002240 

325  002242 

326  002246 

327  002250 

328  002254 

329  002256 

330  002262 

331  002264 

332  002270 

333  002272 

334  002276 

335  002302 

336  002306 

337  002312 

338  002314 

339  002320 

340  002324 
341 


.SSTTL  XPRCHA  -  SHOW  X25  PROTOCOL  CHARACTERISTICS 
»*  XPRCHA  -  SHOW  X25  PROTOCOL  CHARACTERISTICS 
INPUT        X3P$DF,  PSNSDF  TEMPLATES. 
OUTPUT       THE  LEVEL  3  PROTOCOL  CHARACTERISTICS  ARE  DISPLAYED. 


POINT  TO  TEMPLATE  LISTHEAD 
GET  NEXT  TEMPLATE 
IF  EQ,  NO  LEVEL  3  INFO 
;  TEST  TEMPLATE  TYPE 
IF  NE,  WRONG  ONE 
POINT  TO  ARGUMENT  BLCC's 
DEFAULT  DATA 
MAXIMUM  DATA 
DEFAULT  WINDOW 
CLEAR  EXTENDED  SIGN 
MAXIMUM  WINDOW 
CLEAR  EXTENDED  SIGN 
RESET  TIMER 
CLEAR  EXTENDED  SIGN 
MAXIMUM  RESETS 
CLEAR  EXTENDED  SIGN 
RESTART  TIMER 
CLEAR  EXTENDED  SIGN 
MAXIMUM  RESTARTS 
CLEAR  EXTENDED  SIGN 
CLEAR  TIMER 
CLEAR  EXTENDED  SIGN 
MAXIMUM  CLEARS 
CLEAR  EXTENDED  SIGN 
POINT  TO  PSNSDF 
;  GET  NETWORK  NAME 


XPRCHA: 

012705 

OOOOOOG 

MOV 

#STMLST,R5 

011505 

10$: 

MOV 

(R5),R5 

001457 

BEQ 

20$  ; 
#CS.X3P,C.STS(R5) 

122765 

OOOOOOG  OOOOOOG 

CMPe 

001372 

BNE 

10$ 

012700 

000000' 

MOV 

#PRCHBK,RO 

016520 

OOOOOOG 

MOV 

X$3DFP(R5),(R0)+; 

016520 

OOOOOOG 

MOV 

X$3MXP(R5),(R0)+; 

116520 

OOOOOOG 

HOVB 

X$3DW(R5),(R0)+  ; 

105020 

CLRB 

(R0)  + 

116520 

OOOOOOG 

MOVE 

X$3MW(R5),(R0)+  ; 

105020 

CLRB 

(R0)  + 

116520 

OOOOOOG 

MOVB 

X$3RT(R5),<R0)+  ; 

105020 

CLRB 

(fiO)^- 

116520 

OOOOOOG 

MOVB 

X$3RM(R5),(R0)+  ; 

105020 

CLRB 

(R0)  + 

116520 

OOOOOOG 

MOVB 

X$3ST(R5),(R0)+  ; 

105020 

CLRB 

(R0)+         ; 

116520 

OOOOOOG 

MOVB 

X$3SM{R5),(R0)+  ; 

105020 

CLRB 

tR0)  + 

116520 

OOOOOOG 

MOVB 

X$3KTCR5),(R0)t  , 

105020 

CLRB 

(R0)  + 

116520 

OOOOOOG 

MOVB 

X$3KM(R5),(R0)+  , 

105020 

CLRB 

(R0)  + 

016704 

OOOOOOG 

MOV 

SPSIPT,R4 

016420 

OOOOOOG 

MOV 

P$SNAM(R4),(R0H 

016420 

000002G 

MOV 

P$SNAMt2(R4).(R0) 
X$3CT(R5),(R0)+  , 

116520 

0000006 

MOVB 

105020 

CLRB 

(R0)  + 

012703 

000672' 

MOV 

#PRCHFT,R3 

004767 

001506 

CALL 

PRINT 

000207 

20$: 

RETURN 

CALL  TIMER 

CLEAR  EXTENDED  SIGN 

POINT  TO  FORMATTING  TABLE 

FORMAT  AND  PRINT  THE  INFORMATION 
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742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 

754  004032 

755  004036 

756  004042 

757  004044 

758  004050 

759  004054 

760  004060 

761  004062 

762  004064 

763  004066 

764  004070 

765  004072 

766  004076 

767  004100 

768  004104 

769  004110 

770  004120 

771  004122 

772  004124 
773 


.S8TTL  PRINT  -  PRINT  FORMATTED  INFORMATION 
«♦  PRINT  -  PRINT  FORMATTED  INFORMATION 
INPUT 


OUTPUT 
REGISTERS 


R3  =  ADDRESS  OF  FORMATTING  TABLE 
OPTIONS  =  OPTIONS  WORD 

CHARACTERISTICS  PRINTED 

R4  AND  R5  ARE  PRESERVED. 


012746 
005767 
001007 
005267 
012701 
012702 
000407 
012301 
001416 
012302 
006316 
031667 
001771 
012700 
004767 

000760 
005726 
000207 


000001 
173736 

173730 

000213' 

OOOOOOG 


173714 

OOOOOOG 
OOOOOOG 


PRINT: 


10$: 


15$: 


20$: 


MOV 

TST 

BNE 

INC 

MOV 

MOV 

BR 

MOV 

BEQ 

MOV 

ASL 

BIT 

BEQ 

MOV 

CALL 

PRINT 

BR 

TST 

RETURN 


*1,-(SP) 

HDRPRT 

10$ 

HDRPRT 

#HDRMSG,R1 

#$HDRBK,R2 

15$ 

(R3)+,R1 

20$ 

(R3)+,R2 

(SP) 

(SP), OPTIONS 

10$ 

#$eUFF,RO 

$EDMSG 

#$8UFF 

10$ 

(SP)  + 


CLEAR  CURRENT  OPTION 

ALREADY  PRINTED  ? 

IF  NE,  yES 

ELSE  SET  FLAG 

POINT  TO  FORMAT  STRING 

POINT  TO  ARGUMENT  BLOCK 

OUTPUT  HEADER 

POINT  TO  FORMATTING  STRING 

IF  EQ,  NO  MORE 

POINT  TO  ARGUMENT  BLOCK 

NEXT  OPTION 

WAS  THIS  OPTION  SELECTED  ? 

IF  EQ.NO 

POINT  TO  FORMATTING  BUFFER 

FORMAT  OUTPUT 

PRINT  IT 

UNTIL  DONE 

CLEAN  STACK 
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•♦F1LE**ID«'SH0PR0 


ssssssss 

HH 

HH 

000000 

pppppppp 

RRRRRRRR 

000000 

ssssssss 

HH 

HH 

000000 

pppppppp 

RRRRRRRR 

000000 

ss 

HH 

HH 

00 

00 

pp    pp 

RR      RR 

00      00 

S5 

HH 

HH 

00 

00 

pp    pp 

RR      RR 

00      00 

ss 

HH 

HH 

00 

00 

pp    pp 

RR      RR 

00      00 

ss 

HH 

HH 

00 

00 

pp    pp 

RR      RR 

00      00 

ssssss 

HHHHHHHHHH 

00 

00 

pppppppp 

RRRRRRRR 

00      00 

ssssss 

HHHHHHHHHH 

00 

00 

pppppppp 

RRRRRRRR 

00      00 

ss 

HH 

HH 

00 

00 

pp 

RR  RR 

00      00 

ss 

HH 

HH 

GO 

00 

pp 

RR  RR 

00     00 

ss 

HH 

HH 

00 

00 

pp 

RR    RR 

00      00 

ss 

HH 

HH 

00 

00 

pp 

RR    RR 

00      00 

ssssssss 

HH 

HH 

000000 

pp 

RR      RR 

000000 

ssssssss 

HH 

HH 

000000 

pp 

RR      RR 

000000 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

mil 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

SHOPRO  -  LIST  PROCESS  CHARACTER  MACRO  VO5.03b  Saturday  29-Jun-85 
Table  ot  contents  
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SHOREM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.0?b  Saturday  29-Jun-85  05:27  Page  4 


56 
57 
58 
59 
60 
61 
62 
65 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

.IF  Olf  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS   TEXT 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXl><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  DLLDAT   FLG:0,0FS,RTN,ARG^0,STR,EOL 

SSSEOL  =  0 

.IIF  NB  <'EOL'>  SSSEOL  =  200 

.IIF  IDN  <'RTN'>,<PUTFIL>  SSSEOL  =  SSSEOL  I  100 

.SAVE 


.PSECT 

S$SSTR,D,RO 

SSS  =  . 

.ASCIZ 

/•STRV 

.RESTORE 

.WORD 

SSS 

.BYTE 

OFS 

.BYTE 

SSSEOL lARG 

.WORD 

RTN 

.WORD 

FLG 

.ENDM 

DLLDAT 

.MCALL 

ASRS.SAVRG, 

♦  *** 

LOCAL  DATA 

address  of  ASCIZ  string 

SSxxx  offset 

argument  for  fmt  routine,  hi  bit  =  EOL 

address  of  formatting  routine 

SF.xxx  flag 


DEFINE  REMOTE  TEMPLATE 


SHQREM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05 


hi 
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SHOREM  - 

SHOW  REMOTE  NODE  CHARA 

PUTxxx  - 

MISCELLANEOUS 

OUTPUT  fO 

625 

626 

627 

628 

629 

650 

651 

632 

655 

002120 

654 

002120 

655 

002122 

062700 

000022 

656 

002126 

657 

002130 

004767 

177650 

658 

002154 

659 

002140 

012702 

000006 

6A0 

002144 

112120 

641 

002146 

112120 

642 

002150 

112720 

000055 

645 

002154 

077205 

644 

002156 

005500 

645 

002160 

000207 

646 

647 

000001 

K  7 
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♦*  PUTHAD-  OUTPUT  HARDWARE  ADDRESS 
INPUT: 


OUTPUT: 


PUTHAD: 


10$: 


SAVRG 

ADD 

SAVRG 

CALL 

RESRG 

MOV 

MOVB 

H0V8 

nova 

508 
DEC 
RETURN 

.END 


RO  =  BUFFER  POINTER 

R1  =  SOURCE  FIELD  ADDRESS 

RO  IS  UPDATED.  R4  IS  PRESERVED. 

RO 

SAVE  REGISTER 

#18.,R0 

POINT  TO  SCRATCH  BUFFER 

RO 

SAVE  SCRATCH  ADDRESS 

PUTR50 

CONVERT  IT  TO  ASCII  IN  SCRATCH  BUF 

<R1,R0> 

GET  SCRATCH  POINTER,  BUF  POINTER 

#6.,fi2 

LENGTH  IN  BVTES 

(RlU,(R0)  + 

OUTPUT  A 

(R1)t,(R0)t 

BYTE  VALUE 

*'-,(RO)t 

DELIMITER 

R2,10$ 

COUNT  DOWN 

RO 

SKIP  OVER  LAST  HYPHEN 

SHOREM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85 
SymboL  table  
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SHOSYS  -  CFE  SHOW  SYSTEM  PARAM  MACRO  V05.03b  Saturday  29-Jun-85  05: 
Symbol  table 


>8  Page  3-5 


00O530R 


BUF 

CS.BUF=  **»« 

CS.PAR= 

CS.TOP= 

CALL 

C.CBNM 

C.CBSZ 

C.EXT 

C.LEN  = 


****** 
****** 

000016 
000004 
000006 
0000  K 
000020 


GX 
GX 
GX 


.    ABS.      000022 
001U4 
Errors   detected: 


000 
OCT 
0 


C.NAMO 

000004 

C.NAM1 

000010 

C.RBNM 

000010 

C.RBSZ 

000012 

C . SBNM 

000014 

C.SBSZ 

000016 

C.STS  = 

««♦»**  GX 

C.THSH 

000020 

(RW,1,GBL,A8S,0VR) 

(RW,I,LCL,REL,CON) 

ERR8UF  000040R 

ERRPAR  OOOOOOR 

EX$ERR=  000002 

FIRLN  =  000010 

FIRST  000275R 

HEADR  000075R 

MSTBL  000542R 

OlMSG  000305R 


02MSG 

000400R 

$BYTMN= 

******  GX 

03MSG 

000465R 

$BYTXT= 

******  GX 

PARMSG 

0001'i2R 

$CFERR= 

******  GX 

PAR2MS 

00021 3R 

$EDMSG= 

♦***♦«  GX 

POL 

000524R 

$GTBUF= 

******  GX 

TOP 

000266R 

$PRINT= 

******  GX 

TOPLN  = 

000007 

$SHSYS 

000552RG 

SBUFF  = 

******  GX 

$TMLST= 

******  GX 

'**  Assembler  statistics 


0 

0 

8574   Words      (   34   Pages) 

14440  Words     (   55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system; 

SY:SHOSYr.V2;[l'32?l'34]SHOSYS/CR/-SP=SY:[1,nRSXMCM.SML/ML,[130,110]NETLIB/ML,i:i32,10JSH0SYS 


SHOSYS 


CREATED  Br  MACRO  ON  29-JUN-85  AT  05:28 


L  8 


PAGE  1 

rDcc   n/.  nn 
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TMPBUF  -  PARSE  BUFFER  DEFINITIO  MACRO  V05.03b  Saturday  29-Jun-85  05:28 
SETRBS  -  SET  RDB  SIZE 
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328 
529 
330 
331 
332 
333 
354 
535 
356 
557 
538 
339 
340 
341 
342 
345 
544 
345 
346 

347  000306 

348  000306 

349  000312 

350  000516 

351  000322 

352  000526 

555  000552 
554  000554 
355  000340 

556  000542 

557  000346 


.SBTTL  SETRBS  -  SET  RDB  SIZE 

*»*  -  SETRBS  -  SET  RDB  SIZE 

REASONABLE  CHECKS  ARE  PERFORMED  ON  THE  CURRENT  VALUE. 
NOT  IN  RANGE,  THE  C-BIT  IS  SET. 


IF  THE  VALUE  IS 


INPUT: 


TEMP  =  TEMPLATE  ADDRESS 

SLIMTB  =  ADDRESS  OF  LIMITS  TABLE 

.PNUMB  =  CURRENT  VALUE 

.PNUMH  =  CURRENT  VALUE  (HIGH  ORDER) 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 
VALUE  IS  STORED  IN  TEMPLATE. 


016700  177466 

016701  OOOOOOG 
010160  000012 
010167  OOOOOOG 
020167  177464 
105405 

020167  177460 

101402 

062716  000002 

000207 


SETRBS: 


10$: 
20$: 


MOV 

TEMP.RO 

MOV 

. PNUMB, R1 

MOV 

R1,C.RBSZ(R0) 

MOV 

R1,$RDBSZ 

CMP 

RI.LORBSZ 

BLO 

10$ 

CMP 

R1,HIRBSZ 

BLOS 

20$ 

ADD 

#2,(SP) 

RETURN 


POINT  Al  TEMPLATE 

GET  THE  SIZE  OF  EACH  RDB 

STORE  THE  RDB  SIZE 

SAVE  THE  RDB  SIZE  FOR  LATER 

IS  THE  VALUE  IN  RANGE  ? 

IF  LO,  NO  -  SET  C-BIT 

STILL  IN  RANGE  ? 

IF  LOS,  YES  -  JUST  LEAVE 

REJECT  THE  TRANSITION  (SETS  C-BIT) 


L  9 

TMPBUF  -  PARSE  BUFFER  DEFINITIO  MACRO  V05.03b  Saturday  29-Jun-85  05:28  Page  12 
SETSBN  -  SET  SDB  NUMBER 
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IHIPCHN  -  PARSE  OUTGOING  CHANNEL  MACRO  V05.05b  Saturday  29-Jun-85  05:28  Page  4-1 
MACRO  DfFINMIONS 


1H 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12i 


MOV     LEN.RI 

.IF  NB  <OPT> 

BIS     OPT, a. FLAGS 

.ENDC 

JMP     $GTR50 

.ENDM 


MACRO  CALLS 

.MCALL   ISTATS, STATES, TRANS, CALLR 


TMPCHN  -  PARSE  OUTGOING  CHANNEL  MACRO  V05.03b  Saturday  29-Jun-85  05;28  Page  5 

LOCAL  DATA 


^5^^- 


K  11 

TMPCNT  -  PARSE  CONTROLLER  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:29  Page  6 
%WCH1    -   SETUP  CONTROLLER  TEMPLATE 


138 
139 
lAO 
U1 
U2 
1A5 
UA 
K5 
U6 
K7 
U8 
K9 
150 

151  000002 

152  000002 

153  OOOOOA 

154  000010 

155  OOOOU 

156  000020 

157  00002^; 

158  000032 

159  000034 

160  000040 

161  000044 

162  000050 

163  000052 

164  000056 

165  000060 


.SBTTL  STMCNT  -  SETUP  CONTROLLER  TEMPLATE 
*»*  -  STMCNT  -  SETUP  CONTROLLER  TEMPLATE 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE  „^„ 

IF  SUCCESS,  THE  CONTROLLER  TEMPLATE  IS  STORED  IN  THF  END  OF  TASK  BUFFER. 


010546 
012701 
004767 
010067 
005060 
012760 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


STMCNT: 


000016 

OOOOOOG 

177760 

000014 

OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


20$: 


MOV 

R5,-(SP) 

MOV 

#C.LEN,R1 

CALL 

STALOC 

MOV 

RO.TEMP 

CLR 

C.URM(RO) 

MOV 

#CS.CNT,C. 

CLR 

u1 

MOV 

#CNTKTB,R2 

MOV 

#CNrSTB,R5 

CALL 

.TPARS 

BCC 

20$ 

INC 

SERROR 

MOV 

(SPJ+,R5 

SAVE  R5 

GET  LENGTH  OF  ALLOCATION 
TRY  TO  ALLOCATE  CORE  BLOCK 
STORE  TEMPLATE  ADDRESS 
,  ZERO  THE  UNIBUS  RUN  MASK 
STS(R05  ;  INDICATE  THAT  THIS  IS  A  CNT$DF  TEMPLATE 
IGNORE  BLANKS 
KEYWORD  TABLE 
STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 
NORMAL  RETURN  IF  NO  ERROR 
INDICATE  SYNTAX  ERROR 
RESTORE  R5 


RETURN 


L  11 

TMPCNT  -  PARSE  CONTROLLER  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:29 
SETCNT  -  SET  UP  CONTROLLER  NUMBER 
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TMPCUG  -  PARSE  CLOSED  USER  GROU  MACRO  V05.03b  Saturday  29-Jun-85  05:29  Page  4-1 
MACRO  DEFINITIONS 

lU  MOV     LEN.RI 

115  .IF  N8  <OPT> 

116  BIS  OPT, a. FLAGS 

117  .ENDC 

118  JMP  $GTR50 

119  .ENDM 
120 
121 
122  ;  MACRO  CALLS 

12Z,  '       .MCALL   ISTAT$, STATES, TRANS, CALLR 

125 

126 


TMPCUG  -  PARSE  CLOSED  USER  GROU  MACRO  V05.03b  Saturday  29-Jun-85  05:29  Page  5 
LOCAL  DATA 


t  12 

05:29 


TMPDDM  -  PARSE  DEVICE  PROCESS  D  MACRO  V05.03b  Saturday  29-Jun-85  05:30  Page  5-1 

K8  000004  TRANS  $NUMBR,$EXI  T,SETNCT 
U9 

150  000004  STATES  If 

151  OOOOOA  TRANS   ZF 
152 

155  000004  STATES 
154000004  TRANS  '.,SEX!T 

156  000004  STATES 


L  13 

TMPDDM  -  PARSE  DEVICE  PROCESS  D  MACRO  V05.03b  Saturday  29-Jun-85  05:30  Page  6 
S^MDDM  -  SETUP  DDM  TEMPLATE 
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IMPDEi  -  CFE  PARSE  DECSDF  DEFIN  MACRO  V05.03b  Saturday  ?9-Jun-85  05:30  Page  ^ 
MACRO  DEFINITIONS 


A'. 
45 
46 
47 
48 
49 
50 
51 
52  000000 


000000 

000000 
000002 
000004 
000006 
000010 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 

000000 
53  000000 
54 
55 
56 
57 
58 
59 
60 
61  000000 


000000 


000022 


000252 


.SBTTL  MACRO  DEFINITIONS 
MACRO  CALLS 

.MCALL  I  STATS, STATES, TRANS, MSGDFS, DEC TP$ 

DECTPS  LIST  ;  DEFINE  DECSDF  TEMPLATE  OFFSETS 


C.LNK 

C.STS 

SEGMENT  SIZE 

MAXIMUM  NODE  COUNTERS 

MAXIMUM  LOGICAL  LINKS 

INCOMING  TIMER 

OUTGOING  TIMER 

INACTIVITY  TIMER 

RETRANSMIT  FACTOR 

DELAY  FACTOR 

DELAY  WEIGHT 

INPUT  PACKET  LIMITER 

LINK  SERVICE  THRESHOLD 


;  DEFINE  DEC  TEMP 

.ASECT 

.=0 

.BLKW   1 

.BLKW   1 

C.SEG: 

.BLKW   1 

C.NDC: 

.BLKW   1 

C.LKS: 

.BLKW   1 

C.INCT 

.BLKB   1 

C.OUTT 

.BLKB   1 

C.INAC 

.BLKB   ' 

CRETE 

.BLKB   ' 

C.DELF 

.BLKB 

C.DELW 

.BLKB   • 

C.IPL: 

.BLKB 

C.LST; 

.BLKB 

CD.LEN 

r 

.PSECT 

MSGDFS 

;  LOCAL  SYMBOLS 

MXNDC 

=  170. 

;  LOCAL  DATA 

MAXIMUM  NUMBER  OF  NODE  COUNTERS 


ADDRESS  OF  DEC  TEMPLATE 


L  K 

TMPDEC  -  CFE  PARSE  DECSDF  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:30 
DECSDF  t;RSE  TABLES 
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TMPDEi  - 
SEIRFT  - 

AOl 

40? 

40? 

AW 

405 

406 

407 

408 

409 

410 

411 

41? 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

4?4 

425 


K  15 

CFF  PARSE  DECiOf  OEFIN  MACRO  v05.03b  Saturday  ?9-Jun-85  05:30  Page  16 
RETRANSMII  FACIOR 


.SSTTL  SEIRET  -  RETRANSMIT  FACTOR 
♦•»  -  SETRET  -  SETUP  RETRANSMIT  FACTOR 

THIS  ACTION  ROUTINE  SETS  UP  THE  RETRANSMIT  FACTOR  VALUE  FOR  THE  EXECUTOR 
INPUT: 


.PNUMB  =  RETRANSMIT  FACTOR 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


THE  RETRANSMIT  FACTOR  IS  STORED  IN  CRETE  OF  THE  TEMPLATE 


000470 
000470 
000474 
000502 
000504 
000510 
000512 
000516 
000520 
000524 


016700 
116760 
001406 
005767 
001003 
105767 
001402 
062716 
000207 


177304 
OOOOOOG  000015 

CDOOOOO 

OCOOOIG 

000002 


SETRET: 


MOV 

Move 

BEQ 

TST 

BNE 

T3T8 

BEG 

10$: 

ADD 

20$: 

RETURN 

TEMP.RO       ; 

. PNUMB, C.RETF(RO) 

10$ 

.PNUMH 

10$ 

. PNUMB tl 

20$ 

*2,(SP) 


GET  START  OF  TEMPLATE 

;  STORE  THE  NUMBER  OF  LOGICAL  LINKS 

BR  IF  INVALID  VALUE 

IS  IT  ONLV  A  WORD  VALUE  ? 

BR  IF  NO,  ERROR 

IS  IT  A  BYTE  VALUE  ? 

IF  EQ,  YES  -  OKAY 

ELSE,  REJECT  TRANSITION 


L  15 


TMPDEC  -  CFE  PARSE  DEC$DF  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:30  Page  1 
5ETSEG  -  ECL  SEGMENT  SIZE 


TMPPlf  - 

PARSE 

)LC  PROC 

;SS  DEFl 

SETNAM  - 

SET  UP 

PROCESS 

NAME 

181 

18? 

183 

ISA 

18S 

186 

187 

188 

189 

190 

191 

192 

195 

19; 

195 

196 

000064 

197 

000064 

016700 

OOOOOOG 

198 

000070 

010701 

199 

000072 

004767 

OOOOOOG 

200 

000076 

016700 

177700 

201 

000102 

010160 

000004 

202 

000106 

022767 

000003 

203 

0001U 

103002 

20A 

000116 

062716 

000002 

205 

000122 

000207 

51^1 
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.SBTTL  SETNAM  -  SET  UP  PROCESS  NAME 
*♦*  -  SETNAM  -  SETUP  PROCESS  NAME 
THIS  ACTION  ROUTINE  SETS  UP  THE  PROCESS  NAME 
INPUT 


.PSTPI  =  START  ADDRESS  Of  THE  PROCESS  NAME  IN  ASCII 
.PSrCN  =  NUMBER  OF  CHARACTERS  IN  THE  PROCESo  NAME 


OUTPUT: 


C.NAM  =  RAD50  PROCESS  NAME 


SETNAM: 


OOOOOOG 


10$; 


MOV 

MOV 

CALL 

MOV 

MOV 

CMP 

BHIS 

ADD 

RETURN 


.PSTPT,RO 

PC.Rl 

$CAT5 

TEMP,RO 

R1,C.NAM(R0) 

#3,.PSTCN 

loi 

*2,(SP) 


GET  ADDRESS  OF  ASCII  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PROCESS  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

STORE  PROCESS  NAME  IN  TEMPLATE 

IS  THE  PROCESS  NAME  TOO  BIG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 


TMPDir  -  OARSE  DLC  PROCESS  DEFI  MACRO  V05.03b  Saturday  29-Jun-85 
SETFLG  -  SETUP  THE  FLAGS  WORD 


fesl^i 
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SHOLOG  -  LIST  LOGGING  OPTIONS   MACRO  V05.03b  Saturday  29-Jun-85  05:26 

able  ot  contents 

i-  56    MACRO  DEFINITIONS 

5-  97    LOCAL  DATA 

6-  134    LOCAL  SVMBOL  DEFINITIONS  ^ 

7-  175    SSHLOG  -  SHOU  EVENT  LOGGING  CHARACTERISTICS 

8-  255    PRTSNK  -  PRINT  SINK  TYPE  MESSAGE 

9-  285    PRTSTA  -  PRINT  LOGGING  STATE 

10-  312    PRTEVT  -  PRINT  EVENT  CHARACTERSTICS 

11-  379    CKPRE\ 

12-  A03    CMKBIT  -  CHECK  TQ  SEE  IF  BIT  IS  ON 


N  1 
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SHOLOG  -  LIST  LOGGING  OPTIONS 
Symbol  table 


BITNUM 

CHKBIT 

CKPREV 

COMMA  = 

CONL  = 

CONSLE 

CR 

CS.EVT= 

CS.LOG= 

C.CL5 

C.EVT 

C.LEN  = 

C.LN1  = 

C.SNK 

C.5TA 

C.STS 

DASH 


00031 2R 

00135^R 

001320!^ 

000054 

000007 

000302R 

000012 

****** 

****** 

000004 

000006 
=  000020 
=  000005 

000016 

000004 
=    ******    GX 
=  000055 


ERRSUP 
EVTMSG 
EX$ERR= 
FF.ADD= 


CIR= 
,C0N^ 


GX 
GX 


FF.FR: 

FF.HST= 

FF.LIN= 

F. "^.1*100= 

FF.MON= 

FF.MSK= 

FF.PRT: 

FF.QUL= 

FF.REM= 

FILE 

riLEL    : 


OOOOOOR 

000246R 

000002 

000020 

000040 

000001 

000002 

040000 

000010 

000100 

000004 

000077 

000200 

000370 

100000 

000276R 

000004 


turday 

29-Jun-85  05:2 

5  Page  12 

-1 

FLAGS 

00031 3R 

HEADR1 

0001 12R 

F.ADD 

000016 

MONITR 

000267R 

F.CEV 

000030 

MONL  = 

000007 

F.CIR 

000024 

MSGBLK 

099216" 

F.CLS 

000002 

MSKLEN= 

000100 

F.EVT 

000004 

NOINFO 

000207R 

F.FLG 

000014 

OFF 

000264R 

F.LEN 

000016 

OFFL  = 

000003 

F.LIN 

000020 

OM.CON= 

******  GX 

F.LNK 

000000 

OM.FIL= 

******  GX 

F.HOD 

000022 

ON 

000262R 

F.NINF= 

000004 

ONL 

000002 

F.PREV= 

000002 

PERIOD= 

000056 

F.REM 

000026 

PREVNT 

000314R 

F.SEV 

000004 

PRTEVT 

OOlOUfi 

F.S7RT= 

000001 

PRTSNK 

000620R 

HEADR 

000044R 

PRTSTA 

000730R 

SNKMSG 

0001 66R 

SNKTBL 

000322R 

STAMSG 

000230R 

STATE 

00031 5R 

TAB   = 

000011 

TMPL0C= 

000004 

WC.LOG= 

******  6X 

SBUFF  = 

******  GX 

$CBDMG= 

******  GX 

$CFERR= 

******  GX 

$EDMSG= 

******  GX 

$GTBUF= 

******  GX 

$OPRND= 

******  GX 

$PRINT= 

******  GX 

SSHLOG 

000332RG 

$TMLST= 

******  GX 

SWILD  = 

******  GX 

.    ABS.      000040 
001424 
Errors   detected: 


000 
001 
0 


(RW,I,GBL,A8S,0VR) 
(RW,I,LCL,REL,C0N) 


►••  Assembler  statistics 

Work  file  reads:  0 

Work  f i le  writes:  0 

Size  of  work  file:  9256  Words  (  37  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-llM/PLUS 

SY:SH0LOg!v2![132?134]SHOLOG/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]SHOLOG 


SHOLOG 
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345 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 

354  002326 

355  002326 

356  002332 

357  002334 

358  002336 

359  002344 

360  002346 

361  002354 

362  002356 

363  002362 

364  002364 

365  002370 

366  002374 

367  002376 

368  002400 

369  002402 
370 

371 
372 

373  002404 

374  002410 

375  002412 
376 

377 
378 

379  002430 

380  002434 

381  002436 

382  002442 

383  002446 

384  002450 

385  002456 

386  002462 

387  002466 

388  002470 

389  002474 

390  002500 

391  002506 

392  002510 

393  002516 

394  002522 

395  002526 

396  002532 

397  002540 

398  002544 

399  002550 


.SBTTL  XPRDTE  -  SHOW  MODULE  X25-PR0T0C0L  DTE 


♦•♦  XPRDTE 
INPUT 

OUTPUT 


SHOW  MODULE  X25-PR0T0C0L  DTE 

$DTE  =  PARSED  DTE  ID  STRING 
DTESDF  TEMPLATE(S) 

THE  DTE  CHARACTERISTICS  ARE  DISPLA/ED. 


XPRDTE: 
10$: 


012705  OOOOOOG 

011505 

001510 

122765  OOOOOOG  OOOOOOG 

001372 

032767  OOOOOOG  OOOOOOG 

001013 

012700  OOOOOOG 

010501 

062701  OOOOOOG 

012702  000005 

022021  20$: 

001355 

005302 

003374 


MOV 

MOV 

BEQ 

CMPB 

BNE 

BIT 

BNE 

MOV 

MOV 

ADD 

MOV 

CMP 

BNE 

DEC 

BGT 


*$TMLST,R5 

(R5),R5 

50$  , 

#cs.dte,c.sts(r:) 

10$ 

#XP.KN0,$0PRND 

30$ 

#$DTE,RO 

R5,fi1 

#D$TADR,R1 

#5,R2 

(R0)+,{R1)+ 

10$ 

R2 

20$ 


POINT  TO  TEMPLATE  LISTHEAD 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  LIST 

;  TEST  TEMPLATE  TYPE 

IF  NE,  WRONG  ONE 

KNOWN  DTES? 

IF  NE,  YES 

ELSE  POINT  TO  PARSED  DTE  STRING 

COPY  TEMPLATE  ADDRESS 

POINT  TO  ID  STRING  IN  TEMPLATE 

LENGTH 

COMPARE  A  WORD 

IF  NE,  NEXT  TEMPLATE 

COUNTDOWN 

UNTIL  STRING  COMPARED 


DTE  ADDRESS,  COUNTER  TIMER,  MAX  CIRCUITS,  STATE 


012700 
010501 
062701 
000005 


016520 
022020 
012720 
105765 
001003 
012760 
016520 
012700 
010503 
062703 
005067 
032765 
001403 
052767 
004767 
162700 
010067 
012767 
012703 
004767 
004767 


000000' 
OOOOOOG 

OOOOOOG 

057760 
OOOOOOG 


057266  177776 
OOOOOOG        35$: 
000034' 

OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG 

001404 

000034' 

000014' 

000034'  000016' 

001046' 

001262 

000004 


^0$:    MOV  #DTEBK,R0 

MOV  R5,R1 

ADD  #D$TADR,R1 

.REPT  5 

MOV  (R1)+,(R0)+ 
.ENDR 

MOV  D$TCT(R5),(R0)+ 

CMP  (R0)+,(R0)t 

MOV  #*RON,(R0)+ 

TSTB  D$TSTA(R5) 

BNE  35$ 

MOV  #''R0FF,-2(R0) 

MOV  D$THSH(R5),(R0) 

MOV  #LINBUF,RO 

MOV  R5,R3 

ADD  #D$TLIN,R3 

CLR  $FLAGS         , 

BIT  #CS.UNI,C.STS(R5) 

BEQ  40$ 

BIS  #FL.MUX,$FLAGS 

40$:    CALL  FMTLN2 

SUB  #LIN6UF,R0 

MOV  R0,DTEB<+14 

MOV  #LIN8UF,DTEBK+16 

MOV  #DTEFT,R3 

CALL  PRINT 

CALL  PRTCHN 


POINT  TO  ARGUMENT  BLOCK 

COPY  TEMPLATE  ADDRESS 

POINT  TO  ID  STRING  IN  TEMPLATE 

COPY  DTE  ID  STRING 

COUNTER  TIMER 

SKIP  LINE  ID  FIELD  FOR  NOW 

ASSUME  STATE  IS  ON 

CHECK  STATE 

IF  NE,  STATE  =  ON 

ELSE  STATE  =  OFF 
;  MAXIMUM  CIRCUITS 

POINT  TO  OUTPUT  BUFFER 

POINT  TO 
LINE  ID 

CLEAR  LINE  OPTIONS  FLAG 

;  MUX  LINE  ? 

IF  EQ,  NOPE 

ELSE  FORMAT  UNIT  NUMBER 

FORMAT  THE  LINE  ID 

CALCUATE  STRING  LENGTH 

PUT  LENGTH  IN  ARGUMENT  BLOCK 
;  PUT  STRING  ADDRESS  IN  ARGUMENT  BLOCK 

POINT  TO  THE  FORMATTING  TABLE 

OUTPUT  CHARACTERISTICS 

OUTPUT  CHANNEL  LIST 
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775 
776 
777 

+ 

.SBTTL 
FMTLIN 

FMTLIN  -  FOHI»IAI  A  LJNt 
-  FORMAT  A  LINE  ID 

11. 

778 
779 

INPUTS: 

780 

$FLAGS 

=  FLAGS  UORD 

781 
782 

OUTPUTS: 

783 

LINE  ID 

FORMATTED  INTO  OUTPUT 

BUFFER 

784 
785 

REGISTERS: 

786 

R4  AND 

R5  ARE  PRESERVED. 

787 

- 

789  004126 

016301 

OOOOOOG 

"MTLN2: 

MOV 

L$NAM(R3),R1 

;  GET  DEVICE, NAME 

790  004132 

004767 

OOOOOOG 

CALL 

$C5TA 

CONVERT  NAME  10  ASCII 

791  004136 

112720 

000055 

Move 

#'-,(RO)t 

INSERT  DELIMETER 

792  004142 

116301 

OOOOOOG 

M0V8 

L$CNT(R3),R1 

GET  CONTROLLER  NUMBER 

793  004146 

012702 

014012 

MOV 

*<10.I<3*4000»,R2 

BASE=10.,  WIDTH  =  3 

794  004152 

004767 

OOOOOOG 

CALL 

$CeTA 

CONVERT  TO  ASCII 

795  004156 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

IS  THIS  A  MUX  DEVICE  ? 

796  004164 

001410 

BEQ 

10$ 

F  EQ,  NO 

797  004166 

112720 

000055 

Move 

#'-,(R0)+ 

NSERT  DELIMETER 

798  004172 

116301 

OOOOOOG 

MPVB 

L$UNT(R3),R1 

ELSE,  GET  UNIT  NUMBER 

799  004176 

012702 

014012 

MOV 

#<10.1'3*4000»,R2 

BASE=10.,  WIDTH  =  3 

800  004202 

004767 

OOOOOOG 

CALL 

$C8TA 

CONVERT  TO  ASCII 

801  004206 

032767 

OOOOOOG 

OOOOOOG 

10$: 

BIT 

#FL.MTP,$FLAGS 

IS  THE  LINE  MULTI-POINT  ? 

802  004214 

001414 

BEQ 

20$ 

IF  EQ,  NO 

803  004216 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.TRB,$FLAGS 

DID  THE  USER  WANT  TRIBUTARY 

804  004224 

001410 

BEQ 

20$ 

IF  EQ,  NO 

805  004226 

112720 

000056 

MOVB 

#'.,(RO)t 

INSERT  DELIMETER 

806  004232 

016301 

OOOOOOG 

MOV 

L$TRI(R3),R1 

ELSE,  GET  TRIBUTARY  NUMBER 

807  004236 

012702 

014012 

MOV 

#<10.I<3*4000»,R2 

BASE=10.,  WIDTH  =  3 

808  004242 

004767 

OOOOOOG 

CALL 

$CeTA 

CONVERT  TO  ASCII 

809  004246 

105010 

20$: 

CLRB 

(RO) 

MAKE  STRING  ASCIZ 

810  004250 

000207 

RETURN 

n  A 
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115  000000 
lU 

115  000000 

116  000002 

117  000004 

118  000010 
119 

120  000000 

121 

122 

123 

124  000012 

125 

126  000000 

127  000002 

128  000004 

129  000006 

130  000010 

131  000012 

132  000022 

133  000032 

134  000034 

135  000050 

136  000054 
137 

138  000000 

139 

140 

141 

K2 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155  000056 

156 

157  000000 

158  000002 

159  000004 

160  000006 

161  000010 

162  000012 

163  000014 
164 

165  COOOOO 

166 

167 

168 

169 


000000 


000012 


000000 


0000'^6 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 


000000 


000016 


C.NAM: 
C.ADD: 
C.LEN=. 


.ASECT 

.=0 

.BLKW 

.8LKW 

.BLKW 

.BLKW 

.PSECT 


DEFINE  SERSDF  TEMPLATE 


S$FLG 
S$ADD 
S$HST 
S$HAD 
SSCIR 
S$DEV 
SSPSS 
S$DPA 
S$DPC 
S$LEN= 


.ASECT 

.  =  0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.8LKU 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.PSECT 


Flags  definitions: 


SF.ADD  = 

1 

SF.HST  = 

2 

SF.HAD  = 

4 

SF.CIR  = 

10 

SF.DEV  = 

20 

SF.PSS  = 

40 

SF.DPA  = 

100 

SF.DPC  = 

200 

SF.PH3  = 

400 

■  Define 

FILSDF  t 

• 

.ASECT 

.  =  0 

.BLKW   1 

.BLKW   1 

F$SEC: 

.BLKW   1 

F$TER: 

.BLKW   1 

F$LD: 

.BLKW   1 

FSDIA: 

.BLKW   1 

F$DUM: 

.BLKW   1 

F$LEN=. 

C.LNK 

C.STS 

REMOTE  NODE  NAME 

REMOTE  NODE  ADDRESS 


C.LNK 
C.FLG 

option  flags 
Target  node  address 
Host  node  address 
Hardware  address 
Service  circuit 
Service  device 
Service  password 
Dump  address 
Dump  count 


.PSECT 
Define  file  descriptor  offsets 


(16  bit  node  address) 
(16  bit  node  address) 
(RAD50) 

(extended  RAD50) 
(extended  RAD50) 
(RAD50) 

(octal  binary) 
(in  k  bytes) 


Target  address  specified 

Host  address  specified 

Hardware  address  specified 

Service  circuit  specified 

Service  device  specified 

Service  password  specified 

Dump  address  specified 

Dump  count  specified 

Service  node  type  is  Phase  3  IF  SET 


Link 

F  lags 

Secondary  loader  file  name 

Tertiary  loader  file  name 

Load  file  name 

Diagnostics  file  name 

Dump  file  name 
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A$ARG 

A$FLG 

ASLEN  = 

A$OFS 

A$RTN 

ASSTR 

CHRCOL= 

CS.FIL= 

CS.REM= 

CS.SER= 

C.ADD 

C.LEN  = 

C.NAM 

C.5TS  = 

DLLTBL 

ERRNOD= 

EXENM 

EXENOD 

FILPT 

FORMAT 


000003 

000006 

000010 

000002 

OOOOOA 

000000 

000031 

*♦•*»»  GX 

•**»*•  GX 

.««»..  GX 

000010 

000012 

000004 

♦**•♦•  GX 

000350R 

*••••*  GX 

000265R 

001002R 

0003A6R 

00021 7R 


ABS.  000056 
002162 
$$$STR  000357 
Errors  detected: 


000 
001 
002 
0 


F$D1A 

FSDUM 

F$LD 

F$LEN  = 

f$SEC 

FSTER 

F.CNT 

F.DEV 

F.LEN  = 

F.LN< 

GETDLL 

HEADR 

HEADR1 

HEADR2 

HEADR3 

HFLAG 

HTBL 

IN$CHA= 

MS1BLK 

MXFSP  = 


(RU,1,GBL,ABS,0VR) 
(RU,I,LCL,REL,CON) 
(RO,D,LCL,REL,CON) 


000012 

NAMCOL= 

000017 

OOOOU 

NODNM 

000261R 

000010 

PHASE3 

000306R 

000016 

PHASE4 

000320R 

000004 

PRIHDR 

001112R 

000006 

PUTADR 

001216R 

000002 

PUTFIL 

001560R 

000005 

PUTHAD 

0021 20R 

000043 

PUTNOD 

001614R 

000000 

PUTOCT 

002066R 

001246R 

PUT0C2 

002040R 

OOOOOOR 

PUTR50 

002004R 

000033R 

PUTSNT 

002024R 

000075R 

P3N0D 

000246R 

000142R 

P4N0D 

000252R 

000332R 

SCR 

000334R 

001102R 

SERPT 

000344R 

»««»«»  GX 

SF.ADD= 

000001 

000334R 

SF.CIR= 

000010 

000036 

SF.DEV= 

SF.DPA= 

SF.DPC= 

SF.HAD= 

SF.HST= 

SF.PH3= 

SF.PSS= 

S$ADD 

SSCIR 

S$DEV 

S$DPA 

S$DPC 

SSFLG 

S$HAD 

SSHST 

SSLEN  = 

S$PSS 

UC.N0D= 

$BUFF  = 


000020 

000100 

000200 

000004 

000002 

000400 

000040 

000006 

000022 

000032 

000050 

000054 

000004 

000012 

000010 

000056 

000034 

******  GX 

******  GX 


$CBDMG=: 

******  GX 

$C8TA3= 

******  GX 

$CFERR= 

******  GX 

$C5TA  = 

******  GX 

$C5TA1= 

******  GX 

$EDMSG= 

******  GX 

$GTBUF= 

******  GX 

$INFO  = 

******  GX 

$NODAD= 

******  GX 

$NTADD= 

******  GX 

$NTNAM= 

******  GX 

$PRINT= 

******  GX 

$SAVAL= 

******  GX 

SSHREM 

000522RG 

$TMLST= 

******  GX 

$WILD  = 

******  GX 

$$$   = 

000341R 

$$$EOL= 

000000 

.CONER= 

******  GX 

002 


»♦  Assembler  statistics 


Work   file  reads:  0 

Work   file  writes:  0 

Size  of  ^ork  file:  8995  Words   (  36  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:15.08 

SY: SHOREM. V2, [132,1 34] SHOREM/CR/-SP=Sr: 


[1,1]RSXMCM.SML/ML,[130,110]NETLI8/ML,C132,10]SHOREM 


SHOREM 
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CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

BUF 

000530  R 

*5-i^2 

3-176 

3-203 

3-213 

CS.BUF 

=   »♦*»»*      GX 

3-198 

CS.PAR 

=    •»*•*♦      GX 

3-162 

CS.TOP 

=   ».»♦.«      6X 

3-184 

CALL 

000016 

#3-95 

C.CBNM 

000004 

#3-103 

3-204 

C.CBSZ 

000006 

#3-104 

C.EXT 

OOOOU 

#3-94 

C.LEN 

=  000020 

#3-96 

C.NAMO 

000004 

#3-92 

3-165 

C.NAM1 

000010 

#3-93 

3-169 

3-170 

C.RBNM 

000010 

#3-105 

3-206 

C.RBSZ 

000012 

#3-106 

3-207 

C.SBNM 

000014 

#3-107 

3-205 

C.SBSZ 

000016 

#3-108 

C.STS 

=   *»»♦**      6X 

3-162 

3-184 

3-198 

C.THSH 

000020 

#3-109 

3-208 

ERRBUF 

000040  R 

#3-116 

3-226 

ERRPAR 

000000  R 

#3-115 

3-224 

EX$ERR 

=  000002 

#3-114 

3-115 

3-116 

FIRLN 

=  000010 

#3-123 

3-186 

FIRST 

000275  R 

#3-122 

2-1?? 

3-187 

HEADR 

000075  R 

#3-117 

3-150 

MSTBL 

000542  R 

#3-131 

3-212 

01MSG 

000305  R 

#3-124 

3-131 

02MSG 

000400  R 

#3-125 

3-152 

03MSG 

000465  R 

#3-126 

^-]l} 

PARMSG 

000142  R 

#3-118 

3-172 

PAR2MS 

000213  R 

#3-119 

3-190 

POL 

000524   R 

#3-129 

3-168 

♦3-169 

*3-170 

TOP 

000266  R 

#3-120 

3-121 

3-183 

TOPLN 

=  000007 

#3-121 

3-182 

SBUFF 

=   »«*»*♦     GX 

3-149 

3-153 

3-171 

3-174 

SBYTMN 

=   »»»*«»     GX 

3-178 

3-180 

SBYTXT 

=   **»«**      GX 

3-177 

SCFERR 

-   ,»,.,.      GX 

3-224 

3-226 

SEOMSG 

=   ,««**»     GX 

3-152 

3-173 

3-191 

3-217 

SGTBUF 

=   »»»«.*      GX 

3-151 

SPRINT 

=   .*♦...      GX 

3-153 

3-174 

3-192 

3-218 

SSHSYS 

000552   RG 

#3-148 

STMLST 

=    ,,,...      GX 

3-154 

3-189 


3-192 


3-216 


3-218 
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3W 
360 
361 
362 
363 
36A 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
37S 
376 
377 
578  000350 

379  000350 

380  000354 

381  000360 

382  000364 

383  000370 

384  000374 

385  000376 

386  000402 


.SBTTL  SETSBN  -  SET  SDB  NUMBER 

**♦  -  SETSBN  -  SET  SOB  NUMBER 

REASONABLE  CHECKS  ARE  PERFORMED  ON  THE  CURRENT  VALUE. 
NOT  IN  RANGE,  THE  C-BIT  IS  SET. 

INPUT: 

TEMP  =  TEMPLATE  ADDRESS 

SLIMTB  =  ADDRESS  OF  LIMITS  TABLE 

.PNUMB  =  CURRENT  VALUE 

.PNUMH  =  CURRENT  VALUE  (HIGH  ORDER) 

OUTPUT: 

C-BIT   =  SUCCESS/FAILURE 
VALUE   IS  STORED   IN  TEMPLATE. 


IF    THE   VALUE    IS 


016700  177424 

016701  OOOOOOG 
010160  000014 
010167  OOOOOOG 
020167  177426 
103002 

062716  000002 
000207 


SETSBN: 


10$: 


MOV 

MOV 

MOV 

MOV 

CMP 

BHI5 

ADD 

RETURN 


TEMP,RO 

.  PNUMB, R1 

R1,C.SBNM(R0) 

R1,$SDBNM 

RI.LOSBNM 

10$ 

*2,(SP) 


POINT  AT  TEMPLATE 

GET  THE  SDB  NUMBER 

STORE  THE  SDB  NUMBER 

SAVE  THE  NUMBER  OF  SDB'S  FOR  LATER 

IS  THE  VALUE  IN  RANGE  ? 

IF  HIS,  YES  -  ELSE  SET  C-BlT 

REJECT  THE  TRANSITION  (SETS  C-BIT) 
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126 

127 

128 

129 

130 

151 

132  000000 

133 

13A 


.SBTTL  LOCAL  DATA 
SYNTAX  ERROR  DETAIL  STRINGS 


00000^ 
OOA 


103 


105  ERRCHN: 


.Ml  IST 

EXiSEV 

.ASC12 

.EVEN 

.LIST 


BEX 

<EX$SEV>/CFE  ~  Error  in  channel  number/ 

BEX 


n  10 

TMPCHN  -  PARSE  OUTGOING  CHANNEL  MACRO  V05.03b  Saturday  29-Jun-85  05:28  Page  6 
TPAR5  STAIE  TABLES 


TMPCNT  - 
SETCNT  - 

167 
168 
169 
170 
171 
172 
173 
17^; 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
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SET  UP  CONTROLLER  MUMBER 
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.SBTTL  SETCNT  -  SET  UP  CONTROLLER  NUMBER 
*»*  -  SETCNT  -  SETUP  CONTROLLER  NUMBER 
THIS  ACTION  ROUTINE  SETS  UP  THE  CONTROLLER  NUMBER 
INPUT: 


.PNUMB  =  CONTROLLER  NUMBER 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


C.CNT  =  CONTROLLER  NUMBER 


000062 

000062  016700  177712 

000066  016760  OOOOOOG  000004 

000074  005767  OOOOOOG 

000100  001003 

000102  105767  000001G 

000106  001402 

000110  062716  000002 

000114  00C207 


SETCNT: 


10$: 
20$: 


MOV 

TEMP.RO 

MOV 

.PNUMB, C 

TST 

.PNUMH 

6NE 

10$ 

TSTB 

. PNUMB t1 

BEQ 

20$ 

ADD 

#2,(SP) 

RETURN 


;  GET  TEMPLATE  ADDRESS 
,CNT(R0)  ;  STORE  THE  CONTROLLER  NUMBER  IN  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  THE  CONTROLLER  NUMBER  IN  RANGE  ? 
IF  EQ,  YES  -  OKAr 
ELSE,  REJECT  THE  TRANSITION 
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SETVEC  -  SETUP  THE  VECTOR  ADDRESS 
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TMPCUG  -  PAi^SE   CLOSED  USER   GROU  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL   DATA 


fesli 


'9     Page  5 


1?8 

129 

130 

151 

132  000000 

133 

13^  000000 

135  000002 

156  000004 

157  000010 
138  000012 
139 

HO  000000 

U1 

U2 

143 

U4 

K5 

U6 

147  000000 

148  000031 

149  000066 
150 

151 


.SBTTL  LOCAL  DATA 


DEFINE  THE  CUG  PARAMETER  BLOCK 


000000 


000C13 


000004 
004 
004 
004 


C.NAM 
C.CUG 
C.fLG 
C.LEN 


.ASECT 

.=0 

.BLKW 

.8LKW 

.BLKU 

.BLKW 

.SLKB 


C.LNK 

c.srs 

CUG  NAME 
GROUP  NUMBER 
FLAGS  BYTE 


.PSECT 
.NLISr  BEX 


SYNTAX  ERROR  DETAIL  STRINGS 


103 
103 
103 


106 
106 
106 


ERRNAM 
ERRCUG 
ERRtlg 


.NLIST 

EXSSEV 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 


BEX 

=  4 

<EX$SEV>/CFE  —  Illegal  CUG  name/ 

<EX$SEV>/CFE  --  Illegal  group  number/ 

<EX$SEV>/CFE  —  Error  in  flags/ 

BEX 
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TPARS  STATE  TABLES 
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TMPDOM  ■ 
tTMDDM  ■ 

158 
159 
160 
161 
162 
163 
16A 
165 
166 
167 
168 
169 
170 
171 


PARSE  DEVICE  PROCESS 
SETUP  DDM  TEMPLATE 


W-l 


D  MACRO  VO5.03b  Saturday  29-Jun-85  05:50  Page  6 

.SBTTL  $TMDDM  -  SETUP  DDM  TEMPLATE 
^ 
♦♦•  -  STMDDM  -  SETUP  ODM  TEMPLATE 

INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  DDM  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


OOOOOA 

172  000004 

173  000006 

174  000012 

175  000016 

176  000022 

177  000030 

178  000034 

179  000036 

180  000042 

181  000046 

182  000052 

183  000054 

184  000060 

185  000062 


010546 
012701 
004767 
010067 
012760 
105060 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


STMDDM: 


000014 

OOOOOOG 

177760 

OOOOOOG  OOOOOOG 

000012 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


20$: 


MOV  R5,-(SP) 

MOV  #C.LEN,R1 

CALL  STALOC 

MOV  RO.TEMP        , 

MOV  #CS.DDH,C.STS(RO) 

CLR6  C.NLT(R6) 

CLR  Rl 

MOV  #DDMKT8,R2 

MOV  *DDMSTB,R5 

CALL  .TPARS 

BCC  20$ 

INC  SERROR 

MOV  (SP)+,R5 

RETURN 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRy  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  A  DDM$DF  TEMPLATE 

ZERO  THE  LINE  TABLE  COUNT 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 
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TMPDEC  -  CFE  PARSE  DECSDF 
DEC$Df  PARSE  TABLES 

65 

64 

65 

66 

67 

68 

69  000002 

70 

71  000002 

72  000002 
73 

7A  000002 
75  000002 
76 

77  000002 

78  000002 
79 

80  000002 

81  000002 
82 

83  000002 

84  000002 
85 

86  000002 

87  000002 

DO 

89  000002 

90  000002 
91 

92  000002 

93  000002 
94 

95  000002 

96  000002 
97 

98  000002 

99  000002 
100 

101  000002 

102  000002 
103 

104  000002 

105  000002 
106 

107  000002 

108  000002 
109 

110  000002 

111  000002 
112 

113  000002 

114  000002 
115 

116  000002 

117  000002 
118 
119  000002 
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.SBTTL  DECSDF  PARSE  TABLES 

•  **♦* 

■    INITIALIZE    TABLE    GENERATION 

;  *  *  *  * 

ISTATS  DECSTB.DECKTB 

STATES 
TRANS  SNUMBR,,SETLKS 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,SETNDC 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETINC 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETOUT 

STATES 
TRANS  <',> 

STATES 
TRANS     SNUMBR,,SrMNA 

STATES 
TRANS  <',> 

STATES 
TRANS     SNUMBR,,SETDEF 

STATES 
TRANS  <',> 

STATES 
TRANS     SNUM8R,,SETDEW 

STATES 
TRANS  <',> 

STATES 
TRANS  $NUMBR,,SETIPL 

STATES 
TRANS  <',> 

STATES 


MAXIMUM  LOGICAL  LINKS 


MAXIMUM  NODE  COUNTERS 


INCOMING  TIMER 


OUTGOING  TIMER 


INACTIVITY  TIMER 


DELAY  FACTOR 


DELAY  WEIGHT 


INPUT  PACKET  LIMITER 
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SETSEG  -  ECL   SEGMENT   SIZE 


^^]\o 
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«7 
A28 
^.29 
4?0 
A31 
A32 
433 
43A 
435 
436 
437 
438 
439 
440 

441  000526 

442  000526 

443  000532 

444  000540 

445  000542 

446  000550 

447  000554 

448  000556 

449  000560 

450  000564 
451 

452 


.SBTTL  SEISEG  -  ECL  SEGMENT  SIZE 
'•••  -  SETNDC  -  SETUP  ECL  SEGMENT  SIZE 
THIS  ACTION  ROUTINE  SETS  UP  THE  ECL  SEGMENT  SIZE 
INPUT: 


.PNUMB  =  ECL  SEGMENT  SIZE 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


C.SEG        =   SEGMENT    SIZE 


016700     177246 

016760     OOOOOOG  000004 

001403 

062760  000022  000004 

005767  OOOOOOG 

001001 

000402 

062716  000002 

000207 

000001 


SETSEG: 


5$: 


10$: 
20$: 


MOV 

MOV 

BEQ 

ADD 

TST 

BNE 

BR 

ADD 

RETURN 

.END 


TEMP,RO 

. PNUMB, C.SEG(RO) 

5$  ; 

*N$$OVR,C.SEG(RO) 

.PNUMH 

10$ 

20$ 

*2,(SP) 


GET  START  OE  TEMPLATE 
;  STORE  THE  SEGMENT  SIZE 
BR  If  ZERO 
;  ELSE  BIAS  IT 
IS  IT  ONLY  A  WORD  VALUE 
IF  NE,  NO  -  REJECT 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 
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Symbol  table 
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TMPOLC    - 
SETflG  - 

207 
208 
209 
210 
211 
212 
21? 
2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
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SETUP   THE   FLAGS  WORD 

.S8TTL      SETFLG  -   SETUP   THE   FLAGS  WORD 
'•♦♦  -  SETFLG  -  SETUP   THE   FLAGS  WORD 
INPUT; 


FLAG  =   THE   FLAGS  WORD 

TEMP  =   START  ADDRESS  OF    THE   TEMPLATE 


OUTPUT 


THE  FLAGS  WORD  IS  MOVED  INTO  THE  TEMPIATE 


000124 

00012A  016700  177652 

000130  016760  1776AA  000006 

000136  000207 


SETFLG; 


MOV     TEMP.RO        ;  GET  START  OF  TEMPLATE 
MOV     FLAG,C.fLG(RO)   ;  STORE  THE  FLAGS  WORD 
RETURN 
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SETPRI  -  SET  THE  PRIORITY 
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3 
4 
5 

t 

7 

8 
9 

'0 

n 
•2 
15 

14 
'5 

17 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
^4 
35 
it 
V 
38 
59 

40 
41 
42 
45 
44 
45 
46 
i7 

49 
50 

51 
52 
53 
54 
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MODULE  DESCRIPTION: 

CFE  -  SHOW  EVENT  DEFAULTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-llM/S  V5.0 
DECNET-11M-PLUS  Vl.O 

3.00      16-APR-82 

DECNET-IIM   V3.1 
DECNET-11M-PLUS   Vl.l 

4.00     07-NOV-83 

DECNET-11M   V4.0 
DECNET-11M-PLUS   V2.0 

5.00     22-JUL-85 

DECnet-11M/5   V4.2 
DECnet-HM-Plus   V5.0 
DECnet-Micru/RSX    Vl.O 
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"■<-   ^.f-INT'ONS  


SHOLOG     CREATED  Bv  MACRO  ON  29-JUN-85  AT  05:26 
SYMBOL  CROSS  REFERENCE 


5VMB0L   VALUE 


BITNUM 

CHKBIT 

CICPREV 

COMMA 

CONL 

CONSLE 

CR 

CS.EVT 

CS.LOG 

C.CLS 

C.EVT 

C.LEN 

C.LNI 

C.SN< 

C.STA 

C.STS 

DASH 

ERRSUP 

EVTMSG 

EXSERR 

FF.ADD 

FF.CIR 

FF.CON 

FF.FIL 

FF.HST 

FF.LIN 

FF.MOD 

FF.MON 

FF.MSK 

FF.PRT 

FF.QUL 

FF.REM 

FILE 

FILEL 

FLAGS 

F.ADD 

F.CEV 

F.CIR 

F.CLS 

F.Ev'T 

F.FLG 

F.LEN 

F.LIN 

F.LNK 

F.MOC 

F.NINF 

F.PREV 

F.REM 

f.SEV 

F.STRT 

HEADR 


000312 

001 35A 

001320 

=  00005A 

=  000007 

000302 

=  000012 

:;  i,  ***** 

=  ****** 

000004 
000006 
=  000020 
=  000005 
000016 
000004 


GX 
GX 


GX 


000055 

000000  R 

000246  R 

000002 

000020 

000040 

000001 

000002 

040000 

000010 

000100 

000004 

000077 

000200 

000370 

100000 

000276  R 

000004 

000313  R 

000016 
000030 
000024 
000002 
000004 
000014 
000016 
000020 
000000 
000022 
:  000004 
:  000002 
000026 
000004 
^  000001 
000044  R 


REFERENCES 

#5-121 

10-342 

10-370 
#6-152 
#5-119 
#5-118 
#6-149 

7-235 

7-193 
#6-162 
#6-163 
#6-165 
#6-171 
#6-164 
#6-170 

7-193 
#6-151 
#5-103 
#5-109 
#5-102 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#5-116 
#5-117 
#5-122 

10-354 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
#4-64 
4'4-64 
#4-64 
#6-145 
#6-144 
#4-64 
#4-64 
#6-143 
#5-104 


♦10-325 
#12-417 
10-374 
10-356 
8-269 
5-119 


10-333 
12-429 


7-237 

7-195 

7-235 

10-364 

7-191 

10-329 

5-103 

4-64 

4-64 

5-129 

5-130 

4-64 
4-64 
5-131 

4-64 


5-117 

8-274 

*7-228 

♦10-361 


7-228 
10-326 


10-326 
7-199 


10-540 
#11-394 


8-270 


n   2 
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CREF       04.00 

10-346 


10-357 


10-367         ^10-371 


12-418 


12-424 


10-366 


7-216 
7-219 


7-222 


8-275 

7-244 
11-394 


8-267 
8-272 


♦10-326 
♦11-400 


10-327         ^10-330 


10-344 


♦10-349 


♦10-350 


7-244 
10-350 


10-344 


10-327 
10-354 


10-549 


10-530 
10-561 


11-594 


11-400 


SHOLOG 
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M  3 

SHOMOD  -  LIST  MODULE  CHARACTERI  MACRO  V05.03b  Saturday  29-Jun-85  05:26  Page  8-1 
<PRDTE  -  SHOW  MOnULE  X25-PROTOCOL  DTE 

400  002554  000666  BR     10$ 

A01  002556  000207  50$:    RETURN 
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SHODST  -  SHOW  DESTINATION  LIST 


812 

813 

81 A 

815 

816 

817 

818 

819 

820 

821 

822  004252 

823 

824 

825 

826  0OA252 

827  004256 

828  004260 

829  004262 

830  00',266 

831  004274 

832  004276 

833  004304 

834  004306 

835  004314 

836  004316 

837  004324 

838  004326 

839  004334 
840 

841 
842 

843  004336 

844  004342 

845  004344 

846  004346 

847  004350 

848  004354 

849  004356 

850  004362 

851  004364 

852  004370 

853  004372 
854 

855 
856 

857  004374 

858  004402 

859  004406 

860  004412 

861  004416 

862  004422 

863  004424 

864  004430 

865  004434 

866  004440 

867  004442 

868  004446 


.SBTTL   SHODST  -  SHOU  DESTINATION 
'**  SHODST  -  SHOU  DESTINATION  LIST 
INPUT 


1ST 


OUTPUT 


SHODST: 


DTYPE  =  RADRO  X25  OR  X29 

SOPRND  =  XS.KND  SET  IF  KNOWN  DESTINATIONS 

THE  DESTINATION  CHARACTERISTICS  ARE  PRINTED. 


■  LOCATE  THE  DESTINATION  TEMPLATE 

012705 

OOOOOOG 

MOV 

#$TMLST,R5 

POINT  TO  START  OF  TEMPLATE  LIST 

011505 

10$: 

MOV 

(R5),R5 

NEXT 

001002 

BNE 

20$ 

IF  NE,  CONTINUE 

000167 

000^42 

JHP 

100$          , 

ELSE  RETURN                „,„,„„ 

V  V  V    t    \J  ' 

122765 

0000006 

OOOOOOG 

20$: 

CMPB 

#CS.DST,C.STS(R5) 

;  LOOKING  FOR  A  DESTINATION  DESCRIPTOR 

001370 

BNE 

10$ 

IF  NE,  WRONG  TYPE  OF  TEMPLATE 

026567 

OOOOOOG 

173504 

CMP 

D$STVP(R5), DTYPE 

;  CHECK  DESTINATION  TYPE 

001364 

BNE 

10$ 

IF  NE,  WRONG  TYPE 

032767 

OOOOOOG 

OOOOOOG 

BIT 

*XS.KND,$0PRND 

KNOWN  DESTINATIONS  ? 

001010 

BNE 

30$ 

IF  NE,  YES 

026567 

OOOOOOG 

OOOOOOG 

CMP 

D$SNAM{R5),$DST 

COMPARE  FIRST  WORD  OF  NAME 

001354 

BNE 

10$ 

BR  IF  OTHER  DESTINATION 

026567 

000002G 

000002G 

CMP 

D$SNAM+2(R5),$DST+2  ;  COMPARE  LAST  WORD  OF  NAME 

001350 

BNE 

10$ 

BR  IF  OTHER  DESTINATION 

;  CHECK 

FOR  SPECIAL  X29  DESTINATIONS 

012700 

002020' 

io$: 

MOV 

#SPCDST-4,R0 

POINT  TO  SPECIAL  DESTINATION  TABLE 

005720 

40$: 

TST 

(R0)  + 

POINT  TO  NEXT  SPECIAL  DESTINATION 

005720 

50$: 

TST 

(R0)  + 

•  •  • 

001412 

BEQ 

60$ 

IF  EQ,  NO  MORE  TO  CHECK 

026720 

173434 

CMP 

DTYPE, (R0)t 

ELSE  COMPARE  DESTINATION  TYPES 

001372 

BNE 

40$ 

IF  NE,  WRONG  DESTINATION  TYPE 

022065 

OOOOOOG 

CMP 

(R0)+,D$SNAM(R5) 

COMPARE  FIRST  PART 

001370 

BNE 

50$ 

IF  NE,  NO  MATCH  -  CONTINUE 

021065 

000002G 

CMP 

(R0),D$SNAMt2(R5 

;  COMPARE  SECOND  PART 

001365 

BNE 

50$ 

IF  NE,  NO  MATCH  -  CONTINUE 

000731 

BR 

10$ 

ELSE  IGNORE  THIS  DESTINATION  IN  LIST 

;  DESTINATION 

ID,  LIST  INSERTION 

PRIORITY  AND  TASK  NAME  OR  NUMBER 

012767 

177007 

173410 

60$: 

MOV 

#*C<DS.OPT>, OPTION  ;  NO  OPTIONS,  YET 

012703 

000000' 

MOV 

#DSTBK,R5 

•  POINT  TO  ARGUMENT  BLOCK 

016523 

OOOOOOG 

MOV 

D$SNAM(R5),(R3)+ 

;  NAME 

016523 

000002G 

MOV 

0$SNAMt2(R5),(R3)+  ;   ... 

116523 

OOOOOOG 

MOVB 

D$SPRI(R5),(R3)+ 

;  LIST  INSERTION  PRIORITY 

105023 

CLR8 

(R3)  + 

;  NIX  EXTENDED  SIGN 

012700 

000034' 

MOV 

#CHNBUF,RO 

;  POINT  TO  SCRATCH  BUFFER 

012702 

000072' 

MOV 

#CHN8UF+30.,R2 

;  POINT  TO  SCRATCH  ARGUMENT  BLOCK 

012701 

000275' 

MOV 

#FMTSR1,R1 

;  ASSUME  NUMERIC 

005012 

CLR 

(R2) 

;  ZERO  ARG  WORD 

156512 

OOOOOOG 

BIS8 

D$308J(R5),(R2) 

;  SET  LOW  ORDER  BITS  OF  TASK  NUMBER 

001005 

BNE 

70$ 

;  IF  NE,  FORMAT  IS  NUMERIC 

N    4 


SHOMOD 
SHODST 
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SHOU  DESTINATION   LIST 


n  s 
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3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  SHOPRO  -  LIST  PROCESS  CHARACTERISTICS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERfIS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPOMSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SHOW  PROCESS  CHARACTERISTICS 

DISTRIBUTED  SYS'IMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-71 

DECNET-11M/S  V3.0 
DECNET-llM-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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170 

171 

172  000016 

173 

174  000000 

175  000002 

176  000004 

177  000005 
178 

179  000000 

180 

181 

182 

183 

184  000000 

185  000033 

186  000075 

187  000142 

188  000217 
189 

190 

191  000246 

192  000252 

193  000261 

194  000265 

195  000306 

196  000320 
197 

198 

199  000332 

200  000334 

201  000334 

202  000344 

203  000346 
204 

205 
206 
207 

208  000350 

209  000360 
210 

211  000370 

212  000400 

213  000410 
214 

215  000420 
216 

217  000430 

218  000440 

219  000450 

220  000460 
221 

222  C00470 

223  000500 

224  000510 

225  000520 
226 


000036 
000000 

000043 


012 
012 
012 
012 
012 
000017 
000031 
040 
040 
045 
045 
120 
120 


116 
113 
116 
'13 
040 


045 
045 
062 
062 
150 
150 


000000 


157 
156 
157 
156 
101 


115 
115 
122 
122 
141 
141 


MXFSP   =  30. 


INK: 
CNT: 


F.DEV: 
F.LEN 


HEADfi: 
HEADRl 
HEADR2 
HEADR3 
FORMAT 


P3N0D 

P4N0D 

NODNM 

EXENI» 

PHASE3 

PHASE4 


HFLAG: 

SCR: 

MS18LK: 

SERPT: 

FJLPT: 


.ASECT 

.  =  0 

.BLKW 

.8LKU 

.BLK8 

^RLKB 

Tpsect 


.NLJST 
.ENABL 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
NAMCOL 
CHRCOL 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

.BLKW 

.BLKW 
.BLKW 
.BLKW 


1 
1 
1 
MXFSP 


Maximum  FUespec    length 


Link  word 

Use  count 

FUespec  string  length 

FUespec   string   (ASCII) 


BEX 
LC 

<12>/Node  summary  as   of  XY  3!3Z/ 
<12>/Known  nodes  summary  as  of  5!Y  X3Z/       __     _, 
<12>/Node  characteristics  as  of  XY  X3Z/<15><12> 
<12>/Known  nodes  characteristics  as  of  5!Y  X3ZX/<15><12> 
<12>/  Address  Name/<12> 

:   15.  ;    COLUMN  FOR  NAME   STRING 

:  25.  ;    COLUMN  FOR  CHARACTERISTICS 

/   W/ 
/   XM.W/ 
/5!2R/ 

/!!2R   (Executor)/ 
/Phase  III/ 
/Phase  IV/ 


DOWNLINE  LOAD  CONTROL  TABLE 


DLLTBL:  DLLDAT 
DLLDAT 

DLLDAT 
DLLDAT 
DLLDAT 


SF.HST, 
SF.DEV, 


S$HST, 
SSDEV, 


SF.CIR,  S$CIR, 
SF.PH3,  SSFLG, 
SF.PSS,  S$PSS, 


HEADER  PRINT  FLAG 
SCRATCH  BUFFER 
MESSAGE  ARGUMENT  BLOCK 
POINTER  TO  SERSDF 
POINTER  TO  FILSDF 


PUTNOD,,  <Host  node  =  > 
PUTR50,1,  <Ser\/ice  deuice  =  >, 

PUTR50,4,  <Ser\/ice  circuit  =  >, 
PUTSNT,,  <Service  node  version  =  > 
PUTR50,6,  <Service  password  =  >, 


DLLDAT  SF.HAD,  S$HAD,  PUTHAD,4,  <Hardware  address  =  > 


DLLDAT 
DLLDAT 
DLLDAT 
DLLDAT 

DLLDAT 
DLLDAT 
DLLDAT 
.WORD 


F$SEC, 
FSTER, 
F$LD, 
F$DIA, 

FSDUM, 
SF.DPA,  S$DPA, 
SF.DPC,  SSDPC, 
0 


PUTFIL,,  <Secondary  loader  file  =  >, 

PUTFIL,,  <Tertiary  loader  file  =  >, 

PUTFIL,,  <Load  file  =  >, 

PUTFIL,,  <Diagnostics  file  =  >, 

PUTFIL,,  <Dump  file  =  >, 

PUT0CT,4,  <Dump  address  =  >, 

PUT0C2,2,  <Dump  count  =  > 


EOL 

EOL 
EOL 
EOL 

EOL 

EOL 
EOL 
EOL 
EOL 

EOL 
EOL 
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SHOREM 

CREATED  BY 

MACRO  ON  2S 

-JUN-85  AT 

05:27 

PAGE  1 

SYMBOL 

ROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

A$ARG 

000003 

#4-233 

§-^l^ 

8-450 

8-470 

A$FLG 

000006 

#4-235 

8-434 

A$LEN 

=  000010 

#4-236 

8-427 

8-430 

ASOFS 

000002 

#4-232 

8-433 

A$RTN 

000004 

#4-234 

8-472 

AtSTR 

000000 

#4-231 

8-431 

CHRCOL 

=  000031 

#4-190 

C5.F1L 

=      ****** 

GX 

8-423 

CS.REM 

=   ****** 

GX 

4-272 

10-550 

CS.SER 

=      ****** 

GX 

8-417 

C.ADD 

000010 

#4-118 

4-276 

4-285 

8-419 

C.LEN 

^   000012 

#4-119 

C.NAM 

000004 

#4-117 

4-288 

4-289 

10-554 

C.5TS 

=  ***x  *  * 

GX 

4-272 

8-417 

8-423 

10-550 

DLLTBL 

000350 

R 

#4-208 

8-427 

ERRNOD 

=  ****** 

GX 

4-312 

EXENM 

n00265 

R 

#4-194 

5-339 

EXENOD 

001002 

R 

4-265 

#5-326 

FILPT 

000346 

R 

#4-203 

*8-425 

8-444 

8-446 

FORMAT 

000217 

R 

#4-188 

6-375 

FSDIA 

000012 

#4-162 

4-220 

F$DUM 

000014 

#4-163 

4-222 

F$LD 

000010 

#4-161 

4-219 

F$LEN 

=  000016 

#4-164 

F$SEC 

000004 

#4-159 

4-217 

F$TER 

000006 

#4-160 

4-218 

F.CNT 

000002 

#4-175 

F.DEV 

000005 

#4-177 

9-496 

F.LEN 

=  000043 

#4-178 

F.LNK 

000000 

#4-174 

GETDLL 

001246 

R 

4-299 

#8-412 

HEADR 

000000 

R 

#4-184 

6-357 

HEADR1 

000033 

R 

#4-185 

6-357 

HEADR2 

000075 

R 

#4-186 

6-357 

HEADR3 

000142 

R 

#4-187 

6-357 

HFLAG 

000332 

R 

#4-199 

♦4-261 

4-281 

•6-364 

HTBL 

001102 

R 

#6-357 

6-360 

INSCHA 

=  ****** 

GX 

6-361 

6-373 

I$$AS 

-   ****** 

10-611 

10-619 

MS1BLK 

000334 

R 

#4-201 

4-284 

4-291 

5-327 

MXFSP 

=  000036 

#4-170 

4-177 

NAMCOL 

=  000017 

#4-189 

4-294 

5-337 

8-464 

NODNM 

000261 

R 

#4-193 

4-296 

PHASE3 

000306 

R 

#4-195 

10-590 

PHASE4 

000320 

R 

#4-196 

PRIHDR 

001112 

R 

4-264 

4-283 

#6-359 

PUTADR 

001216 

R 

4-286 

5-329 

#7-390 

PUTFIL 

001560 

R 

4-217 

4-218 

4-219 

4-220 

PJTHAD 

002120 

R 

4-215 

#10-633 

PUTNOD 

001614 

R 

4-208 

#10-522 

PUTOCT 

002066 

R 

4-223 

#10-616 

PUT0C2 

002040 

R 

4-224 

#10-609 

10-552 
10-555 


5-334 


4-222 


#9-494 


SHOREM 
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H    8 

SHOSVS  CREATED  BY     MACR 

MACRO   CROSS   Rfl^ERENCE 

NIACRO  MAME  REFERENCES 

EPRINT  #3-71 

ERRORS  #3-60 

PRINT  #5-55 


CN  29- 

■JUN-85  AT 

05 

28 

PAGE 
CREF 

2 

0^.00 

-22A 
-153 

3-226 
3-1  7A 

3- 

192 

3 

-218 

N    8 

••F!LE>«!D««THPBUF 
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388 
389 
390 
391 
392 
393 
39^ 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 

407  000404 

408  000404 

409  000410 

410  000414 

411  000420 

412  000424 

413  000426 

414  000432 

415  000434 

416  000440 


.SBTTL  SETSBS  -  SET  SDB  SIZE 

♦**  -  SETSBS  -  SET  SDB  SIZE 

REASONABLE  CHECKS  ARE  PERFORMED  ON  THE  CURRENT  VALUE. 
NOT  IN  RANGE,  THE  C-BIT  IS  SET. 


IF  THE  VALUE  IS 


INPUT: 


TEMP  =  TEMPLATE  ADDRESS 

SLIMTB  =  ADDRESS  OF  LIMITS  TABLE 

.PNUMB  =  CURRENT  VALUE 

.PNUMH  =  CURRENT  VALUE  (HIGH  ORDER) 


OUTPUT : 


C-8IT  =  SUCCESS/FAILURE 
VALUE    IS  STORED   IN   TEMPLATE. 


016700  177370 

016701  OOOOOOG 
010160  000016 
020167  177400 
103403 

020167  177374 

101402 

062716  000002 

000207 


SETSBS: 


10$: 
20$: 


MOV 

MOV 

MOV 

CMP 

BLO 

CMP 

BLOS 

ADD 

RETURN 


TEMP.RO 

. PNUMB, Rl 

R1,C.SBSZ(R0) 

Rl.LOSBSZ 

lOi 

R1,HISBSZ 

20$ 

*2,(SP) 


POINT  Al  TEMPLATE 

GET  THE  SIZE  Of  EACH  SDB 

STORE  THE  SDB  SIZE 

IS  THE  VALUE  IN  RANGE  ? 

IF  LO,  NO  -  SET  C-BIT 

STILL  IN  RANGE  ? 

IF  LOS,  YES  -  JUST  LEAVE 

REJECT  THE  TRANSITION  (SETS  C-BIT) 
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IMPCHN  - 
TPARS  ST 

136 
137 
138 
139 
UO 
HI 
142 
U3 
K4 
U5 
K6 
K7 
H8 
1A9 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
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ATE  TABLES 

.SBTTL      TPARS    STATE    TABLES 
INITIALIZE    TABLES 


000040 


000040 
000040 
000040 
000040 
000040 
000040 
000040 

000040 
000040 
000040 
000040 


000040 


ISTATS     CHNSTB,    CHNKTB 
PROCESS   "CHNSDF" 

STATES 

TRANS  SLAMDA,,$CLERR,ERRi.HN,.  ERROR 
STATES 

TRANS  SNUMBR,,SETL0 
STATES 

TRANS  SEOS.SEXIT 

TRANS  <',> 

STATES 

TRANS  SNUMBR,, SETHI 
STATES 

TRANS  SEOS.SEXIT 

FINAL  STATE 
STATES 
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192 
195 
19A 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 

206  000116 

207  000116 

208  000122 

209  000130 

210  000134 
"     000136 

0001A4 


.SBTTL  SETVEC  -  SETUP  THE  VECTOR  ADDRESS 
'*«*  -  SETVEC  -  SETUP  THE  VECTOR  ADDRESS 
INPUT: 


.PNUMB  =  THE  VECTOR  ADDRESS 

.PNUMH  =  (HIGH  ORDER) 

TEMP  =  START  ADDRESS  Of  THE  TEMPLATE 


OUTPUT: 


THE  VECTOR  ADDRESS  IS  MOVED  INTO  THE  TEMPLATE 


211 
212 


213  000U6 


2U 
215 


000154 
000156 


216  000162 


016700 
016760 
005767 
001010 
032767 
001004 
022767 
103002 
062716 
000207 


177656 

OOOOOOG  000006 
OOOOOOG 

000005     OOOOOOG 

000774     OOOOOOG 

000002 


SETVEC 


MOV 

TEMP.RO 

GET  START  Of  TEMPLATE 

MOV 

.PNUMB,C.VEC(RO) 

;  STORE  THE  VECTOR  ADDRESS 

TST 

.PNUMH 

IS  IT  A  WORD  VALUE  ? 

BNE 

10$ 

IF  NE,  NO  -  REJECT 

BIT 

#5..PNUMB 

IS  IT  A  MULTIPLE  OF  FOUR 

BNE 

lOi 

If  NE,  NO  -  REJECT 

CMP 

#774,.PNUMB 

IS  THE  VALUE  IN  RANGE  ? 

BHIS 

20$ 

IF  HIS,  YES 

10$: 

ADD 

#2,(SP) 

ELSE,  REJECT 

20$: 

RETURN 

N  11 

IMPCN1    -  PARSE    CONTROLLER   DEFIN  MACRO  V05.05b  Saturday   29-Jun-85   05:29 
SETCSR   -   SET    THE    CSR   ADDRESS 


Page  9 


M  12 

TMPCUG  -  PARSE  fLOSED  USER  GROU  MACRO  V05.03b  Saturday  29-Jun-85  05:29 
TPARS  STATE  TABLES 


Page  6 


155 

154 

155 

156 

157 

158  000116 

159 

160 

161 

162  000116 

163  000116 
16A  000116 

165  000116 

166  000116 

167  000116 
168 

169  000116 

170  000116 

171  000116 

172  000116 

173  000116 

174  000116 

175  000116 

176  000116 

177  000116 

178  000116 
179 

180  000116 

181  000116 

182  000116 

183  000116 

184  000116 

185  000116 
186 

187 

1  fifi 

189  000116 
190 


.SBTTL   TPARS  STATE  TABLES 


;  INITIALIZE  TABLES 

ISTATS 

CUGSTB,  CUGKT8 

;  PROCESS  "CUGSDf" 

STATES 

TRANS 

SLAMDA,,SCLERR, 

ERRNAM, 

.ERROR 

STATES 

;  CUG  NAME 

TRANS 

SSTRNG,,SETNAM 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

$LAMDA,,SCLERR 

ERRCUG, 

.ERROR 

STATES 

;  GROUP  NUMBER 

TRANS 

SDNUMB,,SETCUG 

STATES 

TRANS 

<'.>,CUG2 

TRANS 

SLAMDA 

STATES 

CUG2 

TRANS 

SEOS.SEXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

SLAMDA,,SCLERR 

ERRFLG, 

.ERROR 

STATES 

;  FLAGS 

TRANS 

SNUMBR,,SETFLG 

STATES 

TRANS 

SEOS.SEXIT 

■  FINAL  STATE 

STATES 

N  12 

TMPCUG  -  PARSE  CLOSED  USER  GROU  MACRO  V05.03b  Saturday  29-Jun-85  05:29  Page  7 

STMCUG  -  BUILD  CUG  TEMPLATE 


M  13 

TMPDDM  -  PARSE  DEVICE  PROCESS  D  MACRO  V05.05b  Saturday  29-Jun-85  05:50 
SETNAM  -  SET  I'P  PROCESS  MAME 


Page  1 


187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

202  000064 

203  000064 

204  000070 

205  000072 

206  000076 
^^  000102 

^^'3  000106 

209  000114 

210  000116 

211  000122 


.SBTTL  SETNAM  -  SET  UP  PROCESS  NAME 
•«*  -  SETNAM  -  SETUP  PROCESS  NAME 
THIS  ACTION  ROUTINE  SETS  UP  THE  PROCESS  NAME 
INPUT: 


PSTPT  =  START  ADDRESS  Of  THE  PROCESS  NAME  IN  ASCII 
PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  PROCESS  NAME 


OUTPUT: 


C.NAM  =  RAD50  PROCESS  NAME 


016700 
010701 
004767 
016700 
010160 
022767 
103002 
062716 
000207 


OOOOOOG 

OOOOpOG 
177700 
000004 
000003 

000002 


SETNAM: 


OOOOOOG 


10$: 


MOV 

. PSTPT, RO 

MOV 

PC,R1 

CALL 

SCATS 

MOV 

TEMP,RO 

MOV 

R1,C.NAM(R0) 

CMP 

#3, .PSTCN 

BHIS 

10$ 

ADD 

#2,(SP) 

RETURN 


GET  ADDRESS  OF  ASCII  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PROCESS  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

STORE  PROCESS  NAME  IN  TEMPLATE 

IS  THE  PROCESS  NAME  TOO  BIG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 


TMPDDM  -  PARSE  DEVICE  PROCESS 
SETFlG  -  SETUP  THE  FLAGS  WORD 
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120  00000? 

121 

122  000002 

12?  000002 

12^ 

125  000002 

126  000002 
127 

128  000002 

129  000002 
130 

131  000002 

132  000002 
133 

13^. 
135 

136  000002 

137  000002 
138 

139  000002 


TRANS 

SNUM8R,,SE 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUM8R,,SE 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUM8R,,SE 

EXIT  STATE 

STATES 
TRANS 

EXIT 
SEOS.SEXII 

ETLST 


LINK  SERVICE  THRESHOLD 


RETRANSMIT  FACTOR 


SEGMENT  SIZE 


STATES 
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CO.LEN= 

000022 

OECSTB  OOOOOORG 

002  Nr$lMS= 

000002 

SETLSr 

CS.DEC= 

•«••••  GX 

EXIT    00O1OOR 

002  NT$INr= 

25222^. 

SETNDC 

C.DELf 

000016 

MXNDC  =  000252 

NT$RET= 

000032 

2220?'^ 

SEIOUI 

C .DELW 

000017 

NM$ARA=  176000 

NT$R0U= 

SETRET 

C.INAC 

OOOOK 

NM$NOD=  001777 

NT$RrR= 

22225° 

SETSEG 

C.INCT 

000012 

NT$AKD=  000020 

NT$TSP= 

000026 

000011 

TEMP 

C.IPL 

000020 

NT$AKI=  000022 

N$$ACK= 

$ALPHA= 

C  .L<S 

000010 

NT$CC  =  000016 

N$$HDR= 

000007 

$ANY  = 

C.L5T 

000021 

NT$CON=  000000 

N$$0VR= 

000022 

$BLANK= 

C  .NDC 

000006 

NT$CTL=  000000 

SETDEf 

000310R 

$DIGIT= 

C .OUTT 

00001? 

NT$DAT=  000002 

SETDEW 

222^ci" 

$DNUM8= 

C.RETF 

000015 

NTtDC  =  000012 

SETINA 

000252R 

$E0S  = 

C  .5E& 

OOOOOA 

NT$DIS=  OOOOH 

SEriNC 

000156R 

$ERR0R= 

C.STS  = 

......  GX 

NT$DLS=  000006 

SEriPL 

222^29" 

SEXIT  = 

DECKTB 

OOOOOORG 

003 

NT$1LS=  000010 

SETLKS 

000056R 

.  ABS. 

000022 
000566 

000 

001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 

SSTATE 

000104 

002 

(RW,D,LCL,REL,CON) 

$<TAB 

000000 

()0< 

(RW,D,LCL,REL,CON) 

$<STR 

000000 

OOA 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

>•«  Assembler  sfatistus 

work   f 

•ile  reads 

0 

Work   ' 

i 1 e  wri tes 

U 

Size  0' 

work  file 

•  10675  Words  (  1,2   Pages) 

Size  0 

core  pool 

:  U440  Words   (  55  Pages) 

Operating  system 

:  Rrx- 

IIM/PLUS 

000134R 
000n2R 
g0021'iR 
OQ0470R 
000526R 

000020 

000006 

000024 

OOOOU 

000012 

»«»«*«  GX 

000000 


$FAIL  = 

$LAI*IDA= 

$NUMBR= 

$RAD50= 

$STRNG= 

$SUBXP= 

$rAL0C= 

$TMDEC 

$$$FLG= 

I$$KEY= 

$$$STA= 

.PNUMB= 

.PNUMH= 

.TPARS= 


^77777 
000000 
000002 
000016 

00000'; 

000010 
«»♦»*»  GX 
000002RG 
^77777 
\77777 
000000 
******  (3X 
******  GX 
******  QX 


SYfTMPDEclv2!c°32?l'34jrMPDFC/CR/-5P=S¥:ri,i:RSXMrM.SML//*IL,C130,1'!0]NETLlB/ML,ri32,10]TMPDfC 


TMPDEC            CREATED  BY     MACRO     ON  29-JUN-85   AT   05:31 
SYMBOL    CROSS   REFERENCE  


N  15 

PAGE   1 

CREF        04.00 


TMPDU  - 
SETPRI  - 

227 
228 
229 
2?0 
251 
252 
255 
25'. 
255 
256 
257 
258 
259 
240 
20 
2A2 
2A5 
244 
245 
246 
247 
248 
249 
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SET  THE  PRIORITY 

.S8TTL  SETPRl  -  SET  THE  PRIORIT/ 
••  -  SETPRi  -  SET  THE  PROCESS  PRIORiTV 


THIS  ACTION  ROUTINE  CHECKS  THE  DLC  PRIORITY  TO  MAKE  SURE  IT  IS  VALID 
AND  STORES  IT  IN  THE  TEMPLATE. 


INPUT; 


.PNUM8  =  PRIORITY 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 


OUTPUT: 


THE  PRIORITY  IS  STORED  IN  C.PRI  OF  THE  TEMPLATE. 


000140 
000140 
000144 


du^OO 
016760 


177656 
OOOOOOG  000010 


000152  000207 


SEIPRl; 


m-. 


MOV 

TEMP.RO 

MOV 

. PNUMB, C.PRI (RO) 

TST 

.PNUMB 

BEQ 

10$ 

CMP 

.PNUMB,* 5 

BEQ 

10$ 

ADD 

#2.(SP) 

RETURN 

GET  START  Of  TEMPLATE 
;  STORE  THE  PRIORITY  IN  THE  TEMPLATE 
CHECK  THE  PRIORITY 
IF  EQ,  OKAY  FOR  RSX-11M/S 
RSX-11D/IAS  PRIORITY? 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  THE  TRANSITION 


SHOPRO 


E  10 

F  10 


M  U 
N  U 


S-ClOG  - 

56 

57 

58 

59 

60 

61 

62 

65 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 


LIST  LOGGlNt 
INinONS 


N  1 
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.S8TTL   MACRO  DEFINITIONS 
;  LIBRARY  MACRO  CALLS 


000000 


.MCALL   FLTDFS 
FLTDFS 


DEFINE  FILTER  BLOCK  SYMBOLS 


♦  *»* 
LOCAL  MACROS 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPfiINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO- 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  FPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAuE 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


N     2 

SHOLOG 

CREATED   BY 

MACRO     ON  29-JUN-85  AT 

05:26 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

HEADR1 

000112 

R 

#5-105 

7-202 

MONITR 

000267 

R 

#5-1U 

5-115 

8-278 

MONL 

=  000007 

#5-115 

8-277 

MSGBLK 

000316 

R 

#5-125 

8-266 

9-299 

MSKLEN 

=  000100 

#6-139 

10-340 

NOINFO 

000207 

R 

#5-107 

7-246 

OFF 

00026A 

R 

#5-112 

5-113 

9-301 

QfFL 

=  000003 

#5-113 

9-300 

OM.CON 

=  *t**** 

GX 

7-217 

OM.FIL 

=  ****** 

GX 

7-220 

ON 

000262 

R 

#5-110 

5-111 

9-305 

ONL 

=  000002 

#5-111 

9-304 

PERIOD 

=  000056 

#6-153 

10-339 

PREVNT 

0003U 

'> 

#5-123 

*10-351 

«10-358 

*10-367           11-396 

PRTEVT 

0010U 

7-242 

#10-325 

PRTSNK 

000620 

R 

7-223 

#8-266 

PRTSTA 

000730 

R 

7-227 

#9-299 

5NKMSG 

000166 

R 

#5-106 

8-280 

SNKTBL 

000322 

R 

#5-129 

7-212 

STAMSG 

000230 

R 

#5-108 

9-307 

STATE 

000315 

R 

#5-124 

*7-195 

9-302 

TAB 

=  000011 

#6-150 

10-332 

TMPLOC 

=  OOOOOA 

#6-161 

6-169 

UC.LOG 

=  ****** 

GX 

7-200 

7-210 

7-247 

SBUFF 

=  ****** 

GX 

7-203 

7-206 

8-279 

B-282             9-306 

SCBDMG 

=  ****** 

GX 

10-338 

•0-348 

10-360 

11-399 

SCFERft 

=  ****** 

GX 

7-191 

SEDMSG 

r     ****** 

GX 

7-205 

8-281 

9-308 

SGTBUF 

=     ****** 

GX 

7-204 

SOPRNO 

=     ****** 

GX 

7-217 

7-220 

SPRINT 

=     ****** 

GX 

7-206 

7-246 

8-282 

9-309             10-329 

SSHLOG 

000332 

RG 

#7-187 

STMLST 

-   ****** 

GX 

7-188 

7-229 

SuliLD 

I   ••»»*» 

GX 

7-200 

7-210 

7-247 

9-309 


10-376 


10-331 


10-376 
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PRTCHN  -  PRINT  DTE  CHANNEL  LIST 
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40L 
A04 
405 
406 
407 
408 
409 
410 
411 
412 
413 

414  002560 

415  002560 

416  002562 

417  002570 
418 

419  002576 

420  002600 

421  002602 

422  002610 

423  00261? 

424  002616 

425  002624 

426  0026?6 
427 

428  002632 

429  002636 

430  002642 

431  002644 

432  002650 

433  002652 

434  002654 

435  002656 
436 

437  002660 

438  002662 

439  002666 

440  002672 

441  002676 

442  002700 

443  002702 

444  002704 

445  002712 

446  002714 

447  002720 
448 

449  002722 

450  002732 

451  002736 

452  002744 

453  002^50 
454 

455  002752 

456  002760 

457  002762 

458  002772 
459 


.SBTTL  PRTCHN  -  PRINT  DTE  CHANNEL  LIST 
**  PRTCHN  -  PRINT  DTE  CHANNEL  LIST 
INPUTS       R5  =  ADDRESS  OF  DTE  TEMPLATE 
OUTPUT       THE  DTE  CHANNEL  LIST  IS  OUTPUT. 
REGISTERS     R5  IS  PRESERVED. 


PRTCHN: 


010504 

MOV 

R5,R4         ; 

012767 

001064" 

175212 

MOV 

#CHNHDR,LINHDR  ; 

012767 

000034' 

175206 

MOV 

#CHNBUF,OBUF 

011404 

10$: 

MOV 

(R4),R4 

001464 

BEQ 

60$ 

122764 

OOOOOOG 

OOOOOOG 

CMPB 

#CS.CHN,C.STS(R4J 

001060 

BNE 

60$ 

012701 

000255' 

MOV 

#FMTRNM,R1      ; 

032764 

OOOOOOG 

OOOOOOG 

BIT 

#CH$HI,C.STS(R4); 

001002 

BNE 

20$ 

012701 

000250' 

MOV 

*FMTRN1,R1 

016700 

175146 

20$: 

MOV 

OBUF.RO 

020027 

000034' 

CMP 

RO,#CHNBUF 

001006 

BNE 

40$ 

016702 

175132 

MOV 

LINHDR,R2 

112220 

30$: 

MOVB 

(R2)+,(R0)t 

001376 

BNE 

30$ 

005300 

DEC 

RO 

005201 

INC 

R1 

010402 

40$: 

MOV 

R4,fi2   ^ 

062702 

OOOOOOG 

ADD 

#C$HL0,R2 

004767 

OOOOOOG 

CALL 

$EDMSG 

020027 

000117' 

CMP 

R0,#CHrdND-9. 
50i           ; 

002422 

BLT 

011402 

MOV 

{R4),R2 

001407 

BEQ 

45$           ; 
#CS.CHN,C.STS(R25 

122762 

OOOOOOG 

OOOOOOG 

CMP8 

001003 

BNE 

45$ 

112720 

000054 

MOVB 

#<',>,(R0)+ 
(R05+         ; 

105020 

CLRB 

45$: 

PRINT 

(KCHNBUF 

012700 

000034' 

MOV 

#CHN8Uf,R0 

012767 

001101' 

175036 

MOV 

#CHN8LK,LINhDR  ; 

010067 

175034 

50$: 

MOV 

R0.08UF 
lOi 

000712 

BR 

026727 

175026 

000034' 

60$: 

CMP 

OeLlF,#CHNBUF 

001404 

BEQ 
PRINT 

7''. 

n    M6UF 

000207 

70$: 

RETURN 

COPY  DTE  POINTER 

FIRST  LINE  GETS  LINE  HEADER 

INITIALIZE  BUFFER  POI'>  ER 

NEXT  TEMPLATE 

IF  EQ,  NO  MORE  CHANNELS 

;  CHECK  FOR  CHANNEL  TEMPLATE 

IF  NE,  NO  MORE  CHANNELS 

ASSUME  MULTIPLE  CHANNELS 

TEST  FOR  HIGH  CHANNEL 

IF  NE,  HIGH  CHANNEL  PRESENT 

ELSE  SINGLE  CHANNEL 

GET  OUTPUT  BUFFER  POINTER 

ARE  WE  STARTING  A  LINE  ? 

IF  NE,  NO 

POINT  TO  LINE  HEADER 

MOVE  A  CHARACTER 

UNTIL  ZERO  BYTE 

BACK  OVER  ZERO  BYTE 

NO  COMMA  SEPARATOR 

COPY  TEMPLATE  POINTER 

POINT  TO  ARGUMENT  BLOCK 

FORMAT  OUTPUT 

ROOM  FOR  MORE  IN  BUFFER  ? 

IF  LT,  YES 

POINT  AHEAD  A  TEMPLATE 

IF  EQ  NO  MORE  CHANNELS 

;  MORE  CHANNELS  ? 

BR  IF  NO 

ELSE  INSERT  TRAILING 

COMMA 

ELSE  OUTPUT  THE  BUFFER 
RESET  BUFFER  POINTER 
LEADING  BLANKS  HEREAFTER 
UPDATE  BUFFER  POINTER 
LOOK  FOR  MORE 

SEE  IF  ANY  DATA  IN  BUFFER 
BR  IF  NONE 
OUTPUT  DATA 


N    4 

SHOMOD  -  LIST   MODULE   CHARACTERI  MACRO  V05.03b   Saturday  29-Jun-85  05:26 
SHODST   -   SHOU   DESTINATION   LIST 


869  004A50 

870  004454 

871  004456 

872  004462 

873  004466 

874  004472 

875  004474 
876 

877 
878 

879  004500 

880  004502 

881  004516 

882  004532 

883  004546 
884 

885 
886 

887  004562 

888  004564 

889  004600 
890 

891 
892 

893  004614 

894  004620 

895  004624 
896 

897  004630 


012701  000300' 

010502 

062702  OOOOOOG 

004767  OOOOOOG 

162700  000034' 

010023 

012723  000034' 


011505 


70$: 


MOV 

MOV 

ADD 

CALL 

SUB 

MOV 

MOV 


#FMT2R5,I<1 

R5,R2 

#D$STSK,R2 

SEDMSG 

*CHN8UF,R0 

R0,(R3)t 

#CHN8UF,(R3)t 
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ELSE  USE   RAD50   TASK  NAME 

COPY   TEMPLATE   POINTER 

POINT   TO   TASK  NAME 

BUILD  OUTPUT  STRING 

GET   LENGTH  OF    TASK  NUMBER/NAME   STRING 

STUFF    IN  ARG  BLOCK 

STRING  ADDRESS 


OPTIONAL   PARAMETERS:    DTE  NUMBER,    SU8ADDRESS  RANGE   AND  GROUP 


MOV 

OPTION 

OPTION 

OPTION 

OPTION 


(R5),R5 


D$ANUM,5,CS.NUM,DS.NUM 
D$ACUG,2,DA$CU6,DS.CUG 
D$ASLOJ,CS.SLO,DS.CLO 
D$ASHI,1,CS.SHI,DS.CHI 


POINT  TO  DSASDF  BLOCK 


DTE  NUMBER 
GROUP  ID 
SUBADDRESS  LOW 
SUBADDRESS  HIG.H 


CALL  MASK  AND  CALL  VALUE 


011505 


012703  001532' 

004767  177206 

000167  177426 

000207 


§0$:    MOV  CR5),R5        ;  POINT  TO  DSC$DF 

OPTION  D$CMSK,11.,CS.MSK,DS.MSK  ;  CALL  MASK 

OPTION  D$CVAL,11.,CS.VAL,DS.VAL  ;  CALL  VALUE 

SHOW  CHARACTERISTICS 

§0$:    MOV  #DSTFT,R3 

CALL  PRINT 

JMP  10$ 

10  1$:   RETURN 


POINT  TO  FORMATTING  TABLE 

OUTPUT  DATA 

CONTINUE 


SHOPRO  -  LIST   PROCESS   CHARAl 
MACRO  DEFINITIONS 

53 
54 
55 
56 

57  000000 


N     5 
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000000 

000000 
000002 
000004 
000006 
000010 

oooon 

000012 
00001 4 
000015 
000016 

000000 


58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 


000000 


000020 

000012 
000013 


.SBTTL 

MACRO  DEFINITIONS 

.MCALL 

LLCTPS 

LLCTPS 

LIST 

;  DEFINE  LLC  TEMPLATE 

.A^ECT 

.BLKU 

.SLKW 

C.NAH 

.BLKU 

C.FLG 

.BLKW 

C.PRI 

.BLKB 

C.LIN 

.8LKB 

C.DEV 

.BLKU 

C.NLT 

.BLKB 

C.EXT 

.BLKB 

C.CTM 

.BLKU 

CL.LEi\l=. 

.PSECT 

C.NLTD  =  12 

\ 

C.NCTD  =  13 

***** 

;  LOCAL  MACROS 

•  **** 

.MACRO 

PRINT   TEXT 

.IF  DIP 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SPRINT 

.ENDM 

PRINT 

DEFINE  LLCSDF  TEMPLATE  OFFSETS 


C.LNK 

C.STS 

LLC  PROCESS  NAME 

LLC  FLAGS  WORD 

LLC  PROCESS  PRIORITY 

NUMBER  OF  LINES  ASSIGNED  TO  THIS  LLC 

PSEUDO  tEVICE  NAME  FOR  THIS  LLC 

NUMBER  OF  LINE  TABLE  TO  ALLOCATE 

PROCESS  EXTENSION  IN  BLOCKS 

COUNTER  TIMER 


NLT  FOR  DDM/DLC  PROCESSES 
NCT  FOR  DDM/DLC  PROCESSES 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 


GET  ADDRESS  OF  ERROR  "FSSSGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


SHOREM  -  SHOW  REMOTE  NODE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85 


N  6 
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227 

228 

229  000043 

230 

231  000000 

232  000002 

233  000003 

234  000004 

235  000006 
236 

237  000522 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254  000522 

255  000522 

256  000530 

257  000532 

258  000536 

259  000542 

260  000;46 

261  000550 

262  000554 

263  000562 

264  000564 

265  000570 

266  000574 
267 

268 

269 

27C  000600 

21':   000602 

272  000604 

273  000612 

274  000614 

275  000622 

276  000624 

277  000632 
278 

279 
280 

281  000634 

282  000640 

283  000642 


000000 


000010 


ARGUMENT  BLOCK  FORMAT  FOR  DLL  FORMAT  CONTROL  TABLE 


.ASECT 

.  =  0 

A$STR 

.8LKW   1 

A$OFS 

.SLK8   1 

A$ARG 

.BLKB   1 

A$RTN 

.BLKW   1 

A$FLG 

.8LKW   1 

A$LEN 

=  . 

address  of  ASCJZ  string 

S$xxx/F$xxx  offset 

argument  for  fmt  routine,  hi  bit  =  EOL  before  printing 

address  of  formatting  routine 

SF.xxx  flag  in  SER$DF  -  0=  unconditionaL  print 


.PSECT 


.S8TTL  SSHREM  -  SHOW  REMOTE  CHARACTERISTICS 

*♦»  -  SSHREM  -  SHOW  REMOTE  CHARACTERISTICS 

INPUT: 

$NODNA  =  THE  NODE  NAME  TO  DISPLAY 
SWILD  =  WILD  CARD  SPECIFICATIONS 

OUTPUT: 

THE  REMOTE  CHARACTERISTICS  ARE  DISPLAYED. 
R0-R5  =  DESTROYED 


032767 
001006 
016700 
042700 
050067 
005000 
005067 
032767 
001404 
004767 
004767 
012705 


011505 
001463 
122765 
001372 
032767 
001004 
026765 
001362 


005767 
001002 
004767 


176000  OOOOOOG 

OOOOOOG 

001777 

OOOOOOG 

177556 

OOOOOOG  OOOOOOG 

000322 
000206 
OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  000010 

177472 
000244 


SSHREM:: 

BIT 

**C1777,SN0DAD 

AREA  SPECIFIED  ? 

aNE 

2S 

IF  NE,  YES 

MOV 

SNTADD,RO 

ELSE  FOLD  ... 

BIG 

#1777, RO 

...  IN  ... 

BIS 

RO.SNODAD 

EXECUTOR  AREA 

2$:     CLR 

RO 

SUCCESS  INDICATOR 

CLR 

HFLAG 

HEADER  PRINT  FLAG 

BIT 

#UC. NOD, SWILD 

IS  THIS  FOR  KNOWN  NODES  ? 

BEQ 

5$ 

IF  EQ,  NO 

CALL 

PRIHDR 

ELSE,  PRINT  THE  HEADER  NOW 

CALL 

EXENOD 

AND  PRINT  THE  EXECUTOR  NODE  INFO 

5S:     MOV 

#STMLST,R5 

GET  START  OF  TEMPLATE  LIST 

■  SEARCH  FOR 

THE  REMOTE  TEMPLATE 

ioS:    MOV 

(R5),R5 

GET  NEXT  TEMPLATE 

BEQ 

40$ 

IF  EQ,  END  OF  TEMPLATES 

CMP8 

#CS.REM,C.STS(R5 

;  IS  THIS  A  REMOTE  TEMPLATE  ? 

BNE 

IOS 

IF  NE,  NO  ..  KEEP  LOOKING 

BIT 

#UC. NOD, SWILD 

DO  IT  f^OR  ALL  NODES  ? 

BNE 

20$ 

IF  NF,   S 

CMP 

$N0DAD,C.ADD(R5) 

;  IS  TH   THE  RIGHT  TEMPLATE  ? 

BNE 

10$ 

•  IF  NE,   J  ..  KEEP  LOOKING 

;  DISPLAY  THE 

REMOTE  CHARACTERIS 

ICS 

J0$:    TST 

HFLAG 

;  PRINT  HEADER  ? 

BNE 

25S 

;  IF  NE,  NO 

CALL 

PRIHDR 

;  ELSE,  PRINT  THE  HEADER 

SHOREM 

CREATED  BY 

MACRO     ON  29 

-JUN-85  AT 

05:27 
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SYMBOL 

:R0SS   REFERENCE 

CREF       04. 

00 

SYMBOL 

VALUE 

REFERENCES 

PUTR50 

002004 

^ 

4-209 

4-211 

4-213 

#10-575 

10-637 

PUTSNT 

002024 

R 

4--'2 

#10-590 

P3N0D 

000246 

R 

#4-191 

P4N0D 

000252 

R 

#4-192 

4-287 

5-330 

R$$EIS 

=  ****** 

10-611 

10-619 

R$$11D 

=  ****** 

10-611 

10-619 

SCR 

000334 

R 

#'.-200 

10-612 

SERPT 

000344 

R 

#4-202 

•8-421 

8-438 

10-523 

10-575 

10-609 

10-616 

SF.ADD 

=  000001 

#4-142 

■F.CIR 

=  000010 

#4-145 

4-211 

SF.DEV 

=  000020 

#4-146 

^-?92 

SF.DPA 

=  0001 00 

#4-148 

4-223 

SF.DPC 

=  000200 

#4-149 

4-224 

SF.HAD 

=  000004 

#4-144 

4-215 

SF.HST 

=  000002 

#4-143 

4-208 

SF.PH5 

=  000400 

#4-150 

4-212 

SF.PSS 

=  000040 

#4-147 

-.-213 

SSADD 

000006 

#4-129 

8-419 

S$CIR 

000022 

#4-132 

4-211 

S$DEV 

000032 

#4-133 

4-209 

SSDPA 

000050 

#4-135 

4-223 

SSDPC 

000054 

#4-136 

4-224 

S$FLG 

000004 

#4-128 

4-212 

8-440 

S$HAD 

000012 

#4-131 

4-215 

S$HST 

000010 

#4-130 

4-208 

StLEN 

=  000056 

#4-137 

SSPSS 

000034 

#4-134 

4-213 

WC.NDD 

=   ****** 

GX 

4-262 

4-274 

4-306 

6-365 

SBUFF 

=   ****** 

GX 

4-290 

4-294 

4-298 

5-333 

5-337 

5-341 

6-368 

6-372 

8-428 

8-452 

8-454 

8-455 

8-457 

8-464 

8-476 

8-478 

tCBDMG 

r     ****** 

GX 

10-534 

10-539 

$CBTA3 

=     ****** 

GX 

10-621 

SCFERR 

=     ****** 

GX 

4-312 

$C5TA 

=     ****** 

GX 

10-559 

lO-'^ol 

$C5TA1 

=     ****** 

GX 

10-578 

$EDMS'3 

=     ****** 

GX 

4-292 

4-297 

5-335 

5-340 

6-371 

SGTBUF 

=     ****** 

GX 

6-370 

SINFO 

r     ****** 

GX 

6-361 

6-373 

SNODAD 

-     ****** 

GX 

4-255 

*4-259 

4-276 

SNTADD 

=     ****** 

GX 

4-257 

5-328 

10-542 

SNTNAM 

=     ****** 

GX 

5-331 

5-332 

10-544 

10-545 

SPRINT 

-     ****** 

GX 

4-298 

5-341 

6-372 

6-375 

8-454 

8-478 

SSAVAL 

-     ****** 

GX 

8-412 

SSHRE^I 

000522 

RG 

#4-254 

STMLST 

-      »*■»#*♦ 

GX 

4-266 

8-413 

10-541 

SWILD 

-      *♦♦*** 

GX 

4-262 

4-274 

4-306 

6-365 

$S$ 

=   000341 

R 

#4-208 

4-208 

#4-209 

4-209 

#4-211 

4-211 

#4-212 

4-212 

#4-213 

4-213 

#4-215 

4-215 

#4-217 

4-217 

#4-218 

4-218 

#4-219 

4-219 

#4-220 

4-220 

#4-222 

4-2':!2 

#4-223 

4-223 

#4-224 

4-224 

$$$EOL 

-   OOOOOC 

#4-208 

4-208 

#4-209 

#4-209 

4-209 

#4-211 

#4-211 

4-211 

#4-212 

#4-212 

4-212 

#4-213 

#4-213 

4-213 

#4-215 

#4-215 

4-215 

#4-217 

#4-217 

4-P17 

#4-217 

4-217 

#4-218 

#4-218 

4-218 

#4-218 

4-218 

N  8 


■«FILE««!D«»TMPBUF 


TTTTTTTTTT 
TTTTTTTTTT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 


MM  MM 
MM  MM 
MMMM  MMMM 
MMMM  MMMM 
MM  MM  MM 
MM  MM  MM 


MM 
MM 
MM 
MM 
MM 
MM 
MM 
MM 


MM 
MM 
MM 
MM 
MM 
MM 
MM 
MM 


PPPPPPPP 

BBBBBBBB 

UU 

UU   F 

FFFFFFFFF 

PPPPPPPP 

BBBBBBB8 

uu 

uu   F 

FFFFFFFFF 

pp    pp 

BB     B8 

UU 

uu   F 

pp    pp 

BB     BB 

uu 

UU   F 

pp    pp 

BB    Be 

uu 

uu   F 

pp    pp 

BB     BB 

uu 

UU   F 

PPPPPPPP 

BBBBBBBB 

uu 

UU   F 

FFFFFFF 

PPPPPPPP 

BBBBBBBB 

uu 

UU   F 

FFFFFFF 

pp 

BB     BB 

uu 

UU   F 

pp 

BB     SB 

uu 

UU   F 

pp 

BB     BB 

uu 

UU   F 

pp 

BB     BQ 

uu 

UU   F 

pp 

BBBBBBBB 

UUUUUUUUUU   F 

pp 

BBBBBBBB 

UUUUUUUUUU   F 

ssssssss 

TTTTT 

TTTTT 

S5SSSSSS 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 

437  000442 

438  000442 

439  000446 

440  000452 

441  000456 

442  000462 

443  000466 

444  000470 

445  000476 

446  000500 
4'.7  000504 
448 


.SBTTL  SETTHR  -  SET  RDB  THRESHOLD 

♦•*  -  SETTHR  -  SET  RDB  THRESHOLD 

REASONABLE  CHECKS  ARE  PERFORMED  ON  THE  CURRENT  VALUE. 
NOT  IN  RANGE,  THE  C-BIT  IS  SET. 

INPUT: 

TEMP  =  TEMPLATE  ADDRESS 

SLIMTB  =  ADDRESS  OF  LIMITS  TABLE 

.PNUMB  =  CURRENT  VALUE 

.PNUMH  =  CURRENT  VALUE  (HIGH  ORDER) 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 
VALUE  IS  STORED  IN  TEMPLATE. 


IF  THE  VALUE  IS 


SETTHR: 


016700 

177332 

MOV 

016701 

OOOOOOG 

MOV 

010160 

000020 

MOV 

010167 

OOOOOOG 

MOV 

020167 

177342 

CMP 

103404 

BLO 

026767 

OOOOOOG  177334 

CMP 

101402 

BLOS 

062716 

000002 

10$: 

ADD 

000207 

20$: 

RETU 

TEMP.RO 

. PNUMB, R1 

R1,C.THSH(R0) 

R1,$THRSH 

RI.LOTHSH 

loi 

.PNUMB,HITHSH 

20$ 

#2,(SP) 


POINT  Al  TEMPLATE 

GET  THE  RDB  THRESHOLD  COUNT 

STORE  THE  RDB  THRESHOLD 

SAVE  THE  RDB  THR'SHOLD  COUNT 

IS  THE  VALUE  IN  RANGE  ? 

IF  LO,  NO  -  SET  C-BIT 

STILL  IN  RANGE  ? 

IF  LOS,  YES  -  JUST  LEAVE 

REJECT  THE  TRANSITION  (SETS  C-BIT) 


N  10 

TMPCHN  -  PARSE  OUTGOING  CHANNEL  MACRO  V05.0?b  Saturday  29-Jun-85  05:28 
$TMCHN  -  BUILD  CHANNEL  TEMPLATE 


Page  7 


16A 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 

178 

179  000040 

180  000040 

181  000042 

182  000046 

183  U0OO52 

184  000056 

185  000060 

186  000064 

187  000070 
1="  000074 

•  000076 

190  000102 

191  000106 

192  000112 

193  000114 

194  000120 

195  000122 

196  000126 

197  000134 

198  000140 

199  000142 
200 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
005067 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SBTTL  $TMCHN  -  BUILD  CHANNEL  TEMPI  ATE 
'•»•  -  STMCHN  -  BUILD  CHANNEL  TEMPLATE 
THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

THE  CHANNEL  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


STMCHN:: 


OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


MbV 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

CLR 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERROR$ 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 
#C$HLEN,R1 
$TALOC 
RO,.TEMP 
(R0)  + 
RO, .FLAGS 


#CS.CHN 

.ERROR 

R1 

#CHNKTB,R2 

#CHNSTB,R5 

.TPARS 

20$ 

.  ERROR,  RO 

15$ 

RO 

*-2,$ERR0R 

SERROR 

(SP)+,R5 


(RO) 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  CHN$DF  TEMPLATE 

NO  ERROR  DETAIL  YET 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

INDICATE  MESSAGE  PRINTED 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


TMPCN'  - 
SETCSR  - 

218 
219 
220 
221 
222 
223 
22A 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 
2A0 
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.SBTTL  SETCSR  -  SET  THE  CSR  ADDRESS 

••»  -  SETCSR  -  SET  THE  CSR  ADDRESS 

INPUT: 

.PNUMB  =  CSR  ADDRESS 

.PNUMH  =  CSR  ADDRESS  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT 


THE  CSR  ADDRESS  IS  STORED  IN  C.CSR  OF  THE  TEMPLATE. 


0001 6A 

000164  016700     177610 

Cv0170  016760     OOOOOOG  000010 

000176  005767     OOOOOOG 

000202  001004 

000204  022767     160000     OOOOOOG 

000212  101402 

000214  062716     000002 

000220  000207 


SETCSR: 


MOV 

TEMP.RO 

MOV 

. PNUMB, C.CSR(RO) 

TST 

.PNUMH 

BNE 

10$ 

CMP 

#160000,. PNUMB  , 

BLOS 

20$ 

10$: 

ADD 

#2,(SP) 

20$: 

RETURN 

GET  START  OF  TEMPLATE 

;  STORE  THE  CSR  ADDRESS  IN  THE  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  THE  CSR  ADDRESS  IN  RANGE  ? 
IF  LOS,  YES 
ELSE,  REJECT  THE  TRANSITION 
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192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 

207  000116 

208  000116 

209  000120 

210  000124 

211  000130 

212  00013A 

213  000136 
2U  000K2 

215  0001A6 

216  00015: 

217  000160 

218  000162 

219  000166 

220  000172 

221  000176 

222  000200 

223  000204 

224  000206 

225  000212 

226  000220 

227  000224 

228  000226 
229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

2^3  000230 

244 

245  000244 

246 

247  000264 

248 


0105i,6 
012701 
004767 
010067 
005720 
010067 
012710 
005067 
062767 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SBTTL  STMCUG  -  BUILD  CUG  TEMPLATE 

'»♦♦  -  STMCUG  -  BUILD  CUG  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 

INPUT: 

R3-R5   -  TPARS  REGISTERS 

OUTPUT: 

C-aiT  =  SUCCESS/FAILURE 

THE  CUG  TF^MPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


STMCUG: 


000013 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


MOV 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

CLR 

ADD 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERROR$ 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

#C.LEN,R1 

STALOC 

RO,.TEMP 

(RO)t 

RO, .FLAGS 

#CS.CUG,(RO) 

.ERROR 

#G$LENX,$BYTMN 

Rl 

*CUGKTB,R2 

#CUGSTB,R5 

.IPARS 

20S 

. ERROR, RO 

15$ 

RO 

#-2,SERR0R 

$EfiROR 

{SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  CUGSDF  TEMPLATE 

NO  ERROR  DETAIL  YET 

UPDATE  MINIMUM  BYTE  ALLOCATION 

IGNORE  BLANKS 

KEYUORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


.SBTTL  SETNAM  -  SET  CUG  NAME 
.SBTTL  SETCUG  -  SET  GROUP  NUMBER 
.SBTTL  SETFLG  -  SET  FLAGS  BYTE 

♦»  SETNAM  -  SET  CUG  NAME 

•*  SETCUG  -  SET  GROUP  NUMBER 

♦•  SETFLG  -  SET  FLAGS  BYTE 

INPUTS       .TPARS  VARIABLES. 

OUTPUT       VALUE  SET  IN  TEMPLATE. 

SETNAM:  SGTR50  #C.NAM,#2 
SETCUG:  $GTNUM  *C. CUG, ,#9999. 
SETFLG:  SGTNMB  #C .FLG, , .tfCS.FLG 


TMPDDM  - 
SETFLG  - 

215 
2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
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.SBTTL  SETFLG  -  SETUP  THE  'LAGS  WORD 

',*.  -  SETFLG  -  SETUP  THE  FLAGS  WORD 

INPUT: 

FLAG  :  THE  FLAGS  WORD 

TEMP  =  START  ADDRESS  OF  THE  TEMPLATE 


OUTPUT: 


HE  FLAGS  WORD  IS  MOVED  INTO  THE  TEMPLATE 


000124 

000124  016700  177652 

000150  016760  177644  000006 

000156  000207 


SETFLG: 


MOV     TEMP.RO 

MOV     FLAG,C.FLG(RO) 

RETURN 


GET  START  OF  TEMPLATE 
STORE  THE  FLAGS  WORD 
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Ul 
U2 
K3 
K4 
U5 
U6 
K7 
H8 
U9 
150 
151 
152 
153 
15A  000002 

155  000002 

156  000004 

157  000010 

158  OOOOH 

159  000020 

160  000026 

161  000030 

162  000034 

163  000040 

164  000044 

165  000046 

166  000052 

167  000054 


010546 
012701 
004767 
010067 
012760 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


.SSTTL  STMDEf  -  SETUP  DEC  TEMPLATE 

'*<•*   -   ITMDEC  -  SETUP  DEC  TEMPLATE 

INPUT: 

R3-R5   -  TPARS  REGISTERS 

OUTPUT: 

C-8IT  =  SUCCESS/FAILURE  „  „^„ 

IF  SUCCESS,  THE  DEC  TEMPLATE  IS  STORED  IN  THE  END  Of  TASK  BUFFER. 


STMDEC: 


000022 

OOOOOOG 

177760 

OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 


OOOOOOG 


20$: 


MOV  R5,-(SP) 

MOV  #CD.LEN,R1 

CALL  S^ALOC 

MOV  RO.TEMP        , 

MOV  #CS.DEC,C.STS(RO) 

CLR  R1 

MOV  #DECKTB,R2 

MOV  #DECSTB,R5 

CALL  .TPARS 

BCC  20$ 

INC  $ERROR 

MOV  (SP)t,R5 

RETURN 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  AN  DEC$DF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NOR.IAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


tmpdef         created  by    macro    on  29-jun-85  a1  05:31 
svmbol  cross  reference 
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CREf       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CD.LEN 

=   000022 

#4-52 

6-155 

CS.DEC 

=   » *»**  t 

GX 

6-159 

C.DELF 

000016 

#4-52 

•12-317 

C.DELW 

000017 

#4-52 

"^-lil 

C.INAC 

OOOOIA 

#4-52 

.11-291 

C.INCT 

000"12 

#4-52 

»9-239 

C.I  PL 

OOOv.20 

#4-52 

»1 4-368 

C.KS 

000010 

#4-52 

.7-186 

C.I  ST 

000021 

#4-52 

•15-393 

C.NDC 

000006 

#4-52 

•8-214 

C.OUTI 

000013 

#4-52 

.10-265 

C.RETF 

000015 

#4-52 

•16-418 

C.SEG 

OOOOOA 

#4-52 

•  17-443         •17-445 

C.STS 

=  ****** 

GX 

»6-159 

DECKTB 

000000 

RG 

#5-69 

6-161 

DECSTB 

000000 

RG 

#5-69 

6-162 

MXNDC 

=  000252 

#4-57 

8-212 

N$$OVR 

=  000022 

17-445 

SETDEF 

000310 

#12-315 

SETDEW 

0003';'!, 

#13-340 

SETINA 

000252 

R 

#11-289 

SETINC 

000156 

R 

#9-237 

SETIPL 

OOOAOO 

R 

#14-366 

SETLKS 

000056 

R 

#7-184 

SETLST 

000A34 

R 

#15-391 

SETNDC 

000112 

R 

#8-210 

SETOUi 

000214 

R 

•n  0-263 

5ETRET 

000A70 

R 

#16-416 

SETSEG 

000526 

R 

#17-441 

TEMP 

000000 

R 

#4-61 

•6-158             7-185 

8-211 

14-367 

15-392           16-417 

17-442 

SALPHA 

=  000022 

#5-69 

$ANY 

=  000020 

#5-69 

SBLANK 

=  000006 

#5-69 

SDIGIT 

=  00002A 

#5-69 

SDNUMB 

=  OOOOU 

#5-69 

$E0S 

=  000012 

#5-69 

SERROR 

-  ****** 

GX 

♦6-165 

SEXIT 

=  000000 

#5-69 

SFAIL 

=  \mn 

#5-69 

SGPRM 

-     ****** 

5-69 

SLAMDA 

=  000000 

#5-69 

SNUMBR 

=  000002 

#5-69 

$RAD50 

=  000016 

#5-69 

SRONLY 

=  #*♦♦*♦ 

5-69 

5-69               5-69 

SSTRNG 

=  000004 

#5-69 

SSUBXP 

=  000010 

#5-69 

STALOC 

=    ****** 

GX 

6-157 

STMDEC 

000002 

RG 

#6-154 

$$$FLG 

=  \nin 

#5-69 

$$$<EY 

=  \mn 

#5-69 

. PNUMB 

-  ****** 

GX 

7-186 

7-189            8-212 

8-214 

9-238 


10-264 


11-290 


12-316 


13-341 


8-217 


9-239 


9-243 


10-265 


10-269 


B 

C 
D 
f 
r 

G 
H 
I 
J 
K 
L 
M 
N 
B 
r 

D 
E 
F 
G 
H 
1 
J 
K 
L 
M 
N 
B 
C 
D 
E 

F 

G 

H 
I 
J 
< 
L 
H 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
< 
L 
M 

B 

C 
D 
E 

F 
G 

H 
I 


SHOLOG 


SHOMOD 


J 

K 

L 

M 

N 

B 

6 

C 

6 

D 

6 

E 

6 

F 

6 

G 

6 

H 

6 

I 

6 

J 

6 

K 

6 

L 

6 

M 

6 

N 

6 

B 

7 

C 

7 

D 

7 

E 

7 

F 

7 

G 

7 

H 

7 

I 

7 

J 

7 

K 

7 

L 

7 

M 

7 

N 

7 

B 

8 

C 

8 

D 

8 

E 

8 

F 

8 

G 

8 

H 

8 

I 

8 

J 

8 

K 

8 

8 

M 

8 

N 

8 

B 

9 

C 

9 

D 

9 

E 

9 

F 

9 

G 

9 

H 

9 

i 

9 

J 

9 

K 

9 

L 

9 

M 

9 

N 

9 

B 

10 

C 

10 

0 

10 

SHOPRO 


SHOREM 


SHOSYS 


TMPBUF 


F  1Q 

F  10 

fi  10 

H  10 

J  19 

K  10 

1  10 

M  10 

N  10 

B  11 

C  11 

D  11 

F  11 

f  11 

fi  11 

H  11 

J  11 

K  11 

1  11 

M  11 

N  11 

R  V 

r  V,> 

D  ^? 

F  V 

F  ]? 

G  V 

H  U. 

1  V 

,1  V 

K  ]? 

1  1? 

M  V 

N  :? 

R  n 

r  n 

n  1? 

F  H 

F  n 

fi  H 

H  1^ 

I  1< 

J  15 

K  H 

1  M 

V|  15 

N  15 

R  U 

r  K 

D  H 

F  U 

F  U 

G  U 

H  U 

I  H 

,)  U 

K  14 

L  K 

TMPCHN 


TMPCNT 


TMPCUG 


TMPDDM 


TMPDEC 


M  U 
N  U 
B  15 
C  15 
0 


I 
J 

K 


C  16 

D  16  TMPDLC 

E  ■■ 

f  . 

G  ]( 

H 

I 

J 

K 


TMPDL'' 
SETNI 


25A 
255 
256 
257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 
269 


B  1 

PARSE  DLC  PROCESS  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:31  Page  10 
STORE  NUMBER  OF  LINE  TABLES 

.SBTTL  SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 
***  -  SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 
INPUT: 


OUTPUT 


.PNUMB  =  NUMBER  OF  LINE  TABLE  TO  BE  SET  IN  PROCESS  SPACE 
NUMBER  IS  VALIDATED  AND  THE  TRANSITION  IS  ACCEPTED/REJECTED 


0001 5A 
000154 
000160 
000166 
000174 
000176 
000202 


016700 
116760 
026727 
101402 
062716 
000207 


177622 

OOOOOOG  000012 
OOOOOOG  OOOOOOG 

000002 


SETNL' 


10$: 


MOV 

TEMP,RO 

M&VB 

. PNUMB, C.NLT(RO) 

CMP 

. PNUMB, #$MXNLT 

BLOS 

10$ 

ADD 

#2,(SP) 

RETURN 

GET  THE  TEMPLATE  ADDRESS 
STORE  THE  LINE  COU^'T 
VALUE  IN  RANGE  ? 
IF  LOS,  VES 
ELSE,  REJECT 


TMPDLC  -  PARSE  DLC  PROCESS  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:31 
SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 
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SETNUM  -  SET  REMOTE  DTE  NUMBER 
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233 

234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 

248  000314 

249  000320 

250  000324 

251  000326 

252  000332 

253  000336 

254  000342 

255  000346 
256 

257  000370 

258 

259  000416 

260 

261  000444 

262 

263 

264 


.3BTTL  SFTNUM  -  SET  REMOTE  DTE  NUMBER 

.SBTTL  SETSLO  -  SET  SUBADDRESS  LOW  RANGE 

.S8TTL  SETSHI  -  SET  SUBADDRESS  HIGH  RANGE 

.SBTTL  SETCUG  -  SET  USER  GROUP  NAME 

*»  SETNUM  -  SET  REMOTE  DTE  NUMBER 

*•  SETSLO  -  SET  SUBADDRESS  LOW  RANGE 

»•  SETSHI  -  SET  SUBADDRESS  HIGH  RANGE 

**  SETCUG  -  SET  USER  GROUP  NAME 


016700  OOOOOOG 

016701  OOOOOOG 
006201 
010160  OOOOOOG 


INPUTS 
OUTPUT 


SETNUM:  MOV 
MOV 


062701 
042701 


000003 
000003 


060167  OOOOOOG 


SETSLO 
SETSHI 
SETCUG 


000001 


ASR 
MOV 
ADD 
BIC 
ADD 
$GTR50 

SGTNUM 

SGTNUM 

$GTR50 

.END 


.TPARS  VARIABLES 
VALUE  SET  IN  TEMPLATE. 

.TEMP,RO 

.PSTCN.RI 

R1 

R1,D$ADLN(R0) 

#3,R1 

#3,R1 

R1,$8YTMN 

#D$ANUM,#5,*CS.NUM 

*D$ASL0,,*9999.,/»CS.SL0 

#D$ASHI,,#9999. ,*CS.SH1 

*D$ACUG,#2,*DA$CUG 


POINT  TO  TEMPLATE 

GET  LENGTH  OF  PARSED  STRING 

LENGTH  IN  BCD 

SAVE  LENGTH  OF  DTE  ADDRES. 

ROUND  UP  TO  4  BYTE  BOUNDARY 

UPDATE  MINIMUM  ALLOCATION 


C  2 

TMPDSA  -  PARSE  DESTINATION  ADDR  MACRO  V05.03b  Saturday  ?9-Jun-85  05:32 
Symbol  table 
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TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.03b  Saturday  29-Jun-85  05:32 
Symbol  table 
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CALL 

OOOC52R 

002 

D$CMSK=  •»*»**  GX 

SETVAL 

000304R 

$ERROR= 

****** 

GX 

STMDSC 

000154RG 

CALL! 

000056R 

002 

D$CVAL=  *»«***  GX 

$ALPHA= 

000022 

$Exn  = 

000000 

$$$FLG= 

\77777 

CS  DSC= 

»«»»»»  GX 

D$CVLN=  ««♦»•«  GX 

$ANY  = 

000020 

$FAIL  = 

M7777 

$$$ICEr  = 

\77777 

CS.MS<= 

♦***•♦  GX 

ERRLEN  U00065R 

$BLANK= 

000006 

$GTR50= 

****** 

GX 

$$$STA= 

000000 

CS.VAL= 

«*»»»»  GX 

ERRMSK  OOOOOOR 

$BYTriN= 

«»***«  GX 

$LAMDA= 

000000 

.ERROR= 

******  GX 

DSCKTB 

OOOOOORG 

003 

ERRVAL  000032R 

$CFERR= 

**♦«♦♦  GX 

$f,UMBR= 

000002 

.FLAGS= 

******  GX 

DSCSTB 

OOOOOORG 

002 

FviSEV=  000004 

$CLERR= 

*»*»**  GX 

$RAD50= 

000016 

.PSTCN= 

******  GX 

DSC1 

000024R 

002 

hEXDIG  000070R 

002  $DIGIT= 

000024 

$STRNG= 

000004 

.TEMP  = 

******  GX 

D$CLEN= 

.*»»**  GX 

REJECT  000430R 

$DNUMB= 

OOOOU 

$SUBXP= 

000010 

.TPARS= 

**♦♦♦*  GX 

D$CMLN= 

,»t*»*  GX 

SETMSK  000364R 

$EOS  = 

000012 

$TALOC= 

****** 

GX 

.  ABS. 

000000 
000A36 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

SSTATE 

00012A 

002 

(RW,D,LCL,REL,CON) 

$KTA3 

000000 

003 

(RW,D,LCL,REL,CON) 

$<STR 

000000 

OOA 

(RU,D,LCL,REL,CON) 

Errors 

detected: 

0 

»**  Assembler  statistics 


ulork  file  reads:  0 

Work  file  writes:  0 

Si7e  of  work  file:  11128  Words 

Size  of  core  pool:  KA'.O  Words 

Operating  system:  RSX-IIT  'PLUS 


(  44  Pages) 
(  55  Pages) 


.psed   time:    00:00:24.43 
Sr : TMPDSC. V2,[T 32, 134] TMPDSC/CR/-SP=SV:[1,1]RSXMCM.SML/ML,[ 130, nO]NETLiB/ML,C 132, 103 TMPDSC 


TMPDSC 


CREATED  bv     MACRO     ON  29-JUN-85   AT   05:32 
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IMPOST     CREATED  BY  MACRO  ON  2V-JUN-85  AT  05:33 
SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CS.DST 

=    ****** 

GX 

7-226 

CS.TSK 

-    ****** 

GX 

7-267 

C.LbN 

=  000020 

#5-140 

7-221 

C.NAM 

000006 

*5-136 

7-261 

C.OB  J 

000013 

#5-138 

7-265 

C.PRI 

000012 

#5-137 

7-263 

C.TSK 

OOOOU 

#5-139 

7-267 

C.TYP 

000004 

#5-135 

7-259 

DSTKTB 

000000 

RG 

#6-161 

7-230 

DSTSTB 

000000 

RG 

#6-161 

7-231 

osflnx 

-    *  **-*-^  * 

GX 

7-227 

ERRNAM 

000041 

R 

#5-   ^,9 

ERROBJ 

000133 

R 

#5-151 

ERRPRl 

000' 02 

R 

#5-150 

ERRTSK 

000171 

R 

#5-152 

ERRTYP 

000000 

R 

#5-148 

EXSSEV 

=  000004 

#5-147 

5-148 

SETNAM 

000352 

R 

#7-261 

SETOBJ 

000406 

R 

#7-265 

SETPRI 

000366 

R 

#7-263 

SETTSK 

000426 

R 

#7-267 

SETTYP 

000336 

R 

#7-259 

SALPHA 

=   000022 

#6-161 

SANY 

=  000020 

#6-161 

SBLANK 

=  000006 

#6-161 

SBYTMN 

-      **♦*♦* 

GX 

•7-227 

BCFERR 

-      **♦+*♦ 

GX 

7-236 

SDIGIT 

=   0C0024 

#6-161 

SDNUMB 

=  OOOOU 

#6-161 

$EOS 

=  000012 

#6-161 

SERROR 

-   ****** 

uX 

♦7-237 

♦7-238 

SEYIT 

=  000000 

#6-161 

SFAIl 

=   177777 

#6-161 

SGPRM 

-      ****** 

6-161 

SGTNMB 

-      ****** 

GX 

7-263 

7-265 

$GTR50 

—      *■*♦■*** 

GX 

7-259 

7-261 

SLAMDA 

=  000000 

#6-161 

SNUMBR 

=  000002 

#6-161 

$RAD50 

=  000016 

#6-161 

SRONLY 

^      ****** 

6-161 

6-161 

SSTRNG 

=  000004 

#6-^61 

SSUBXP 

=   000010 

#6-161 

$IALOC 

-    ****** 

GX 

7-222 

STMDST 

000224 

RG 

#7-219 

$$$FLG 

=   177777 

#6-161 

$$$<EV 

=   177777 

#6-161 

.ERROR 

=       ****** 

GX 

♦7-228 

7-234 

.FLAGS 

r     ♦♦♦*♦* 

GX 

♦7-225 

7-267 

.TEMP 

-     ****** 

GX 

•7-223 

.TPARS 

-     ****** 

GX 

7-232 

B  4 

PAGE  1 

CREF   04.00 


5-149 


5-150 


5-151 


-152 


7-267 


6-161 


TMPDST 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:33 


PAGE  2 
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TMPDTF   -   PARSE    LOCAL    D 
Symbol   table 


B  S 

E  DESCRI  MACRO  V05.05b  Saturday  29-Jun-85  05:33  Page  8-2 


ADRSTR 

OOOIAOR 

002 

DTESTB  OOOOOORG 

002 

REJECT 

000474R 

$BVTMN= 

****** 

GX 

$STRNG= 

000004 

ADRl 

000H2R 

002 

DTE1    000106R 

002 

SETADR 

000402R 

'■  $CFERR= 

****** 

GX 

$SUBXP= 

000010 

CS.DTE= 

»**»*«  GX 

ERRADR  OOOOOOR 

SETCON 

000574H 

$CLERH= 

****** 

GX 

$rAL0C= 

»***♦*  GX 

CS.NET= 

**»«»♦  GX 

ERRCT   000123R 

SETCT 

000502R 

$DIG1T= 

000024 

STMDTE 

000264RG 

CS.TRB= 

»»*♦*»  GX 

ERRHSH  000065R 

SETDEV 

000560R 

$DNUMB= 

000014 

$$$FLG= 

177777 

CS.LINI  = 

♦•***♦  GX 

ERRlIN  000034R 

SETHSH 

000'.16R 

$EOS  = 

000012 

$$$KEy= 

000001 

C.ADR 

OOOOOA 

ERRNET  000223R 

SETNET 

000522R 

$ERROR= 

****** 

GX 

$$$STA= 

000000 

C.CT 

000032 

ERRSTA  000171R 

SETSTA 

000544R 

$EXIT  = 

000000 

$$$TMP= 

000003R 

C.HSH 

000030 

EX$SEV=  000004 

SETTRB 

000642R 

SFAIL  = 

\nin 

.ERROR= 

******  GX 

C.lEN  - 

OOOOAO 

LINID   000152R 

002 

SEiJNI 

000614R 

$GTNUM= 

****** 

GX 

.FLAGS= 

******  GX 

C.LIN 

000016 

L1N1    O00156R 

002 

STA 

000262R 

$6TR50= 

****** 

GX 

.PNUMB= 

******  GX 

C.NET 

00003A 

LIN3    000200R 

002 

$AL°HA= 

000022 

$LAMDA= 

000000 

.TEMP  = 

******  GX 

r.STA 

0000''6 

L!N4    000214R 

002 

SANV   = 

000020 

$NUMBR= 

000002 

.TPARS= 

******  GX 

DTEKTB 

OOOOOORG 

003 

L$LENX=  ♦•  ■•**  GX 

$BLANK= 

000006 

$RAD50= 

000016 

.  ABS. 

OOOOAO 
000670 

000 
001 

(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CDN) 

SSTATE 

000222 

002 

{RW,D,LCL,REL,CON) 

$<TAB 

000004 

003 

(RW,D,LCL,REL,C0N) 

SKSTR 

000007 

004 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

»*•  Assembler  statistics 

work   f 

ile  reads 

0 

Work  f 

ile  writes 

0 

Size  of 

work  tile 

11032  WcMs  (  44  Pages) 

Size  o( 

core  pool 

14440  Words  (  55  Pages) 

Operating  system 

:  RSX- 

HM/PLUS 

E'apsed    time:    00:00:39.29 
5Y:TMPDTE.V2,r'32,1341TMP[)TE,CR/-SP  =  SV: 


[i,1]RSXMCM.SML/ML,[130,110]NETLI6/ML,[''32,10]TMPDTE 


004 


TMPDTE 


CREATED  BY     MACRO     ON  29-JUN-85   AT  05:33 
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SETMSK  -  SET  UP  EVEMT  MASKS 
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T^ 


25A 

.SBTTL 

SETMSK  -  SET  UP  EVENT  MA! 

KS 

235 

+ 

23o 

***   - 

SETMSK 

-  SETUP  EVENT  MASKS 

237 
238 

THIS 

ACTION  ROUTINE  SETS  UP  THE  EVEWT  MASKS. 

239 

2^0 

INPUT 

2A1 

'.PNUMB 

=  EVENT  MASK 

2^.2 

TEMP  -- 

TEMPLATE  ADDRESS 

2^3 

24A 

OUTPUT: 

2';5 

C.EVT  = 

EVENT  MASKS 

246 

2A7 

- 

248 

249 

000240 

SETMSK: 

250 

000240 

005767 

OOOOOOG 

TST 

.PNUMH 

MUST  BE  WORD  VALUE 

251 

000244 

001016 

BNE 

10$ 

BR  IF  NOT  WORD  VALUE 

252 

000246 

016700 

177526 

MOV 

TEMP.RO 

POINT  AT  TEMPLATE 

253 

000252 

062700 

000016 

ADD 

#C.EVT+10,R0 

POINT  TO  END  OF  EVENT  MASKS 

254 

000256 

020067 

177520 

CMP 

RO.STRADD 

MORE  THAN  4  EVENTS? 

255 

000262 

0014J7 

BEC 

10$ 

BR  IF  yES  -  ILLEGAL 

256 

000264 

016777 

OOOOOOG 

177510 

MOV 

. PNUMB, JSTRADD 

SAVE  THE  EVENT  MASK 

257 

000272 

062767 

000002 

177502 

ADD 

#2,STRADD 

POINT  TO  NEXT  EVENT  MASK  WORD 

258 

000300 

000402 

BR 

20$ 

FINISH  UP 

259 

0003*;  2 

062716 

000002 

10$: 

ADD 

#2,(SP) 

REJECT  THE  TRANSITION 

260 

000306 

000207 

20$: 

RETURN 

TMPEVT  -  CFE  PARSE  EVENT  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05 
SETMON  -  SETUP  MONITOR  LOGGING  SINK  TYPE 


:^4 
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STMSER  -  Setup  remote  characteristics  template 
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i97 

198 

199 

200 

202 

203 

20A 

205 

206 

207 

208 

209 

210  00012'. 

! 

211  00012A 

010546 

212  000126 

012701 

000016 

213  000132 

004767 

OOOOOOG 

2U  000136 

010067 

OOOOOOG 

215  0001A2 

005720 

216  OOOU-i 

010067 

OOOOOOG 

217  000150 

012710 

OOOOOOG 

218  00015A 

005067 

OOOOOOG 

219  000160 

005001 

220  000162 

012702 

000000' 

221  000166 

012705 

000000' 

222  000172 

)04767 

OOOOOOG 

223  000176 

103012 

224  000200 

016700 

OOOOOOG 

225  000204 

001405 

226  000206 

227  000212 

012767 

177776  OOOOOOG 

228  000220 

005267 

OOOOOOG 

229  000224 

012605 

230  00U2.-6 

000207 

2^1  000230 

000207 

.SBTTL  STMSER  -  Setup  remote  characteristics  template 
»**  -  STMSER  -  Setup  remote  characteristics  template 
Input: 


R3-R5 


TPARS  registers 


Output 


C-bit  =  success/failure 

If  success,  the  remote  template  is  stored  in  the  end  of  task  buffer. 


TMFU: 


15$: 
20$: 


MOV 

MOV 

CALL 

MOV 

TSI 

MOV 

MOV 

CLR 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BED 

ERROR$ 

MOV 

IMC 

MOV 

RETURN 

RETURN 


R5,-(SP) 

*F$LEN,R1 

STALOC 

RO,.TEMP 

(R0)  + 

RO, .FLAGS 

*CS.riL,(RO) 

.ERROR 

R1 

*FILKTB,R2 

#FILSTB,R5 

.TPARS 

20$ 

. ERROR, RO 

15$ 

RO 

#-2,$ERR0R 

SERROR 

(SP)+,R5 


Save  R5 

Get  length  of  needed  allocation 

Try  to  allocate  a  core  block 

Sa«e  template  address 

Point  to  C.STS 

Save  for  option  setting 

Indicate  that  this  is  a  DSTSDF  template 

No  error  detai  I  yet 

Ignore  blanks 

Keyword  table 

State  table 

Parse  the  rest  of  the  line 

Normal  return  if  no  error 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SrNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


C  7 

TMPFIL  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.05b  Saturday  29-Jun-85  05:34  Page  7 
Action  routines 
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TM 


90 
91 
92 
93 

9A 

95  000002 

96 

97 

98  000002 

99  000002 
100 

101  000002 

102  000002 
103 

lOA  000002 
105  000002 
106 

107  000002 

108  000002 
109 

110  000002 

111  000002 
112 

113  000002 
IK  000002 
115 

116  000002 

117  C00002 
118 

119  0J0002 

120  ^00002 
121 

122 

123 

12^  000002 

125  000002 

126 

127  000002 


INITIALIZE  TABLE  GENERATION 


ISTATS  FEASTBJEAKTB 


STATES 
TRANS  $ALPHA,,SETDV1 

STATES 
TRANS  SALPHA,,SETDV2 

:,TATES 
TRANS  <',> 

STATES 
TRANS  SNUMeR,,SETWD1 

STATES 
TRANS  <',> 

STATES 
TRANS     SNUMBR,,SETW[)2 

STATES 
TRANS  <',> 

STATES 
TRANS   SNUM8R,,SETWD3 

EXIT  STATE 

STATES     EXIT 
TRANS     SEOS.SEXn 

STATES 


C     8 
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53 
54 
55 
5^ 
57 
58 
59 
60 
61 
62 
63 
6A 

c  r 

66 
67 
68  000000 


000000 

000000 
000002 
000004 
000006 
000010 
000011 
000012 
000014 
000015 
000016 

000000 


69  OOOOOG 

70 

7' 

7c 

73 

74 

75  000000 

76  000002 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT,RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


;  MACRO  CALLS 


000000 


000020 

000012 
000013 


.MCALL   I  STATS, STATES, TRANS, MSGDF$,LLCTP$ 

LLCTPS  LIST  ;  DEFINE  LLCSDF  TEMPLATE  OFFSETS 


C.LNK 

C.STS 

LLC  PROCESS  NAME 

LLC  FLAGS  WORD 

LLC  PROCESS  PRIORITY 

NUMBER  OF  LINES  ASSIGNED  TO  THIS 

PSEUDO  DEVICE  NAME  FOR  THIS  LLC 

NUMBER  OF  LINE  TABLE  TO  ALLOCATE 

PROCESS  EXTENSION  IN  BLOCKS 

COUNTER  TIMER 


;    DEFINE   LLC    TEMP 

.ASECT 

.=0 

.BLKU        1 

.BLKW        1 

C.NAM 

.BLKW        1 

C.FLG 

.BLKW        1 

C.PRI 

.BLK8        1 

C.LIN 

.BLKB        1 

C.DEV 

.BLKW        1 

C.NLT 

.BLKB        1 

C.EXT 

.BLKB        1 

C.CTM 

.BLKW        1 

CL.LEI 

J=. 

.PSECT 

C.NLT 

)   =   12 

C.NCT 

)   =   13 

MSGDFS 

■  *«  ** 

;    LOC/ 

\l   DATA 

■  n  *■  *  * 

FLAG: 

.BLKW        1 

TEMP: 

.BLKW        1 

LLC 


NLT  FOR  DDM/DLC  PROCESSES 
NC7  FOR  DDM/DLC  PROCESSES 


FLAGS  WORD 

ADDRESS   OF    LLC    TEMPLATE 


C     9 
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THPLLC  CREATED  BY     MACRO     ON  29-JIJNI-85   AT   05:36 

SYMBOL   CROSS   REFEREKCE 


B  10 

PAGE    1 

CREF       04.00 


SYMBOL 

VALJE 

REFERENCES 

CL.LEN 

=  000020 

#4-68 

6-189 

CS.LLC 

z  ****** 

GX 

6-192 

C.CTM 

000016 

#/-68 

•14-390 

C.DEV 

000012 

#4-68 

•11-322 

♦11-323 

C.EXT 

000015 

#4-68 

•13-367 

C.FLG 

000006 

#4-68 

•8-246 

C.LIN 

oooon 

#4-68 

•10-298 

C.NAM 

000004 

#4-68 

•7-225 

C.NCTD 

=  000013 

#4-68 

C.NLT 

000014 

#4-68 

6-193 

♦12-345 

C.NLTD 

=  000012 

#4-68 

C.PRI 

000010 

#4-68 

♦9-270 

C.STS 

-  *♦*♦*♦ 

GX 

♦6-192 

FLAG 

000000 

R 

#4-75 

•6-183 

8-246 

LLCKTB 

000000 

RG 

#5-82 

6-197 

LLCSTB 

000000 

RG 

#5-82 

6-198 

SETCTM 

000406 

R 

#14-388 

SETDEV 

000270 

R 

#11-320 

SETEXT 

000356 

R 

#13-365 

SETFL6 

000134 

R 

#8-244 

SETLIN 

000222 

R 

#10-294 

SETNAM 

000074 

R 

#7-220 

5ETNLT 

000326 

R 

#12-343 

SETPRI 

000164 

R 

#9-268 

TEMP 

000002 

R 

#4-76 
14-389 

•6-191 

7-224 

ZF.LLC 

r  ****** 

GX 

8-247 

SALPHA 

=  000022 

#5-82 

$ANY 

=  000020 

#5-82 

SBLANK 

=  000006 

#5-82 

SCAT5 

-   ****** 

GX 

7-223 

SDIGIT 

=  000024 

#5-82 

SDNUMB 

=  000014 

#5-82 

$EOS 

=  000012 

#5-82 

SERROR 

-   ****** 

GX 

*6-201 

SEXIT 

=  000000 

#5-82 

SFAIL 

=  177777 

#5-82 

$GPRM 

=  ****** 

5-82 

SLAMDA 

=  000000 

#5-82 

SMXNLT 

=  ****** 

GX 

12-346 

$NLN 

=    ****** 

GX 

•10-296 

•10-297 

SNUMBR 

=  000002 

#5-82 

$RAD50 

=  000016 

#5-82 

SRONLY 

=      ****** 

5-82 

5-82 

5-82 

SSTRNG 

=  000004 

#5-82 

JSUBXP 

=  000010 

#5-82 

STALOC 

r  ****** 

GX 

6-190 

STMLLC 

000004 

RG 

#6-186 

$$$FLG 

=  177777 

#5-82 

$$$<EY 

=    177777 

#5-82 

. PNUMB 

r  ****** 

GX 

9-270 

9-271 

9-273 

13-368 

14-390 

14-393 

8-247 


8-245 


9-269 


10-295 


11-321 


1^-344 


13-366 


10-296 


10-298 


10-301 


12-345 


12-346 


13-367 


TMPLLC 
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IMPLOG  CREATED  BY      MACRO     ON  P9-JUN-85    AT   0S:56  PAGE    2 

MACRO  CROSS   REfERE^JrE  CREF        f      00 


#6-108  #6-111 

#6-109 


MACRO  NAME 

REFERENCES 

DBGTPS 

#6-99 

ISTATS 

#^-69                6-99 

MTRANS 

#6-99 

PRINT 

#^-60 

STATES 

#4-69               6-10 

TRANS 

#4-69             #6-10 

C  11 

**FILE«MD'«TMPNOD 
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TMPNOD  -  CFE  PARSE  NODE  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:37 
Symbol  table 


Page  12-1 


TM' 
SE 


CS.NOD= 

«»».«»  6X 

NODKTB  OODOOORG 

003 

SETNMM 

000312R 

SEXIT  = 

000000 

$TALOC= 

******  GX 

CMOS 

000054 

N0DST8  OOOOOORG 

002 

TEMP 

OOOOOOR 

SFAIL  = 

Mini 

STMNOD 

000002RG 

C.LEN  = 

000056 

NO$EXA=  »•*♦*•  GX 

$ALPHA= 

000022 

$LAMDA= 

000000 

$$$FLG= 

Mill! 

C  NAM 

OOOOOA 

NO$HOA=  *»»»*•  GX 

$ANV  = 

000020 

$MVASC= 

****** 

GX 

$$$KEr= 

Mini 

C.NID 

000010 

RA    =  000076 

$BLANK= 

000006 

$NTADD= 

****** 

GX 

$$$STA= 

000054R 

C.NUM 

000052 

SETHOA  000352R 

$CAT5  = 

«♦*,*.  GX 

$NTNAM= 

****** 

GX 

.PNUMB= 

******  GX 

C.STS  = 

»».»»»  Gx 

SETHOS  000422R 

$DIGIT= 

000024 

$NUMBR= 

000002 

.PSTCN^ 

******  GX 

ID 

00005AR 

002 

SETNAM  0001 OOR 

$DNUMB= 

000014 

$RAD50= 

000016 

.PSTPT= 

**»♦*♦  GX 

LA 

00007A 

SETNID  000166R 

$E0S  = 

000012 

$STRNG= 

000004 

.TPARS= 

******  GX 

NN2 

000030R 

002 

SETNNA  000236R 

$ERROR= 

******  GX 

$SUBXP= 

000010 

.  ABS. 

000056 
000456 

000 
001 

(RW,!,GBL,A8S,0VR) 
(RW,1,LCL,REL,C0N) 

SSTATE 

00006A 

002 

(RW,D,LCL,REL,COfg) 

$ICTAB 

000000 

003 

(RU.D.LCL, RELCOM) 

SKSTR 

000000 

OOA 

(RW,D,LCL,REL,CON) 

002 


Errors   detected:      0 

**♦   Assembler   statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating      system: 


0 

0 

10422   Words      (   41    Pages) 

14440   Words      (    55   Pages) 

RSX-11M/PLUS 


Elapsed   time:    00:00:24.31 

SY : TMPNOD. V2, [132, 134] TMPNOD/ CR/ 


■SP=SV:[1,1]RSXMCM.SML/ML,[130,110]NETI  IB/ML , [1 32 , 1 0JTMPNOD 


TMPNCD 
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SETFLG  -  SETUP  THE  FLAGS  BYTE 


Page  11 


287 
288 
289 
290 
291 
292 
295 
29A 
295 
296 
297 
298 
299 
500 
501 
502 
505 
50A 
305 
506 
507 
508 
509 
510 
511 
512 


.SBTTL   SETFLG  -  SETUP  THE  FLAGS  BYTE 

»**  -  SETFLG  -  SET  FLAGS  BYTE 

INPUT: 

.PNUM8  =  FLAGS  BYTE 

.PNUMH  =  FLAGS  BYTE  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


NUMBER  IS  BIT  SET  INTO  C.FLG  OF  TEMPLATE 
C-BIT  =  SUCCESS/FAILURE 


000522 
000522 
000526 
000554 
0005'10 
0005A2 
000546 
000550 
000556 
000360 
000564 


016700 
156760 
005^67 
001007 
105  767 
001004 
052767 
001402 
062716 
000207 


177452 

OOOOOOG  000005 
OOOOOOG 

000001 G 

000007  OOOOOOG 

000002 


SETFLG: 


MOV 

TEMP.RO 

BISB 

.PNUMB,C.FLG(RO) 

TST 

.PNUMH 

BNE 

10$ 

TSTB 

.PNUMB+1 

BNE 

10$ 

BIT 

#7,.PNUMB 

BEQ 

20$ 

10$: 

ADD 

*2,(SP) 

20$: 

RETURN 

;'!?;iMT  RO  AT  TEMPLATE 
'  STORE  THE  FLAGS  BYTE 
IS  IT  A  WORD  VALUE  ? 
IF  NF  NO  ..  REJECT 
IS  Thi^  A  BYTE  VALUE  ? 
IF  NE,  NO  . .  BAD  FLAG 

LOWER  5  BliS  ARE  FOR  ACCESS  VERIFICATION 
IF  EQ,  OKAY 
ELSE,  REJECT  THE  TRANSITION 


C  13 
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B  K 

CFE  PARSE_PARIITION..DE. MACRO  V05.03b  Saturday  29-Jun-85  05:38  Page  8 

.SSTTL  SETNM1  -  SET  UP  PARTITION  NAME  1 

*•*  -  SETNM1  -  SETUP  PARTITION  NAME  1 

THIS  ACTION  ROUTINE  SETS  UP  THE  PARTITION  NAME  1. 

INPUT: 

.PSTPT  =  START  ADDRESS  OF  THE  PARTITION  NAME  1  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  T'!E  PARTITION  NAME  1 
TEMP  =  TEMPLATE  ADDRESS 


TMPPAR  - 

CFE  PA 

«E  PART 

SETNM1  - 

SET  UP 

PARTITi 

221 

222 

225 

22^ 

225 

2'-6 

227 

228 

229 

230 

231 

232 

233 

234 

235 

235 

237 

000164 

238 

000164 

016700 

239 

000170 

010701 

240 

000172 

004767 

2A1 

000176 

016702 

2A2 

000202 

010162 

243 

000206 

103407 

244 

000210 

010701 

245 

000212 

004767 

246 

000216 

016702 

247 

000222 

010162 

248 

000226 

022767 

249 

000234 

103002 

250 

000236 

C62716 

251 

000242 

CG0207 

TMPF 
TPAF 


OUTPUT- 


NAM1  =  RAD50  PARTITION  NAME  1  (2  WORDS) 


OOOOOOG 

OOOOOOG 

177600 

000010 


OOOOOOG 
177550 
000012 
000006 

000002 


SETNM1 


OOOOOOG  5$: 


10$: 


MOV 

MOV 

CALL 

MOV 

MOV 

BCS 

MOV 

CALL 

MOV 

MOV 

CMP 

SHIS 

ADD 

RETURN 


. PSTPT, RO 

PCfil 

$CAT5 

TEMP,R2 

R1,C.NAMl(R2) 

5$ 

PC.RI 

$CAT5 

TEMP,R2 

R1,C.MAMU2(R2) 

#6, .PSTCN 

10$ 

*2,(SP) 


GET  ADDRESS  OF  ASCII  PARTITION  NAME  1 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PARTITION  NAME  1  TO  RAD50 

GET   STAf<T   OF    TEMPLATE 

STORE  PARTITION  NAME  1  IN  TEMPLATE 

IF  CS,  LESS  THAN  3  CHARS  WERE  RAD50 

ELSE,  PERIODS  ARE  ACCEPTABLE 

CONVERT  THE  REST  OF  THE  PARTITION  NAME 

GET  START  ADDRESS  OF  TEMPLATE 

STORE  THE  SECOND  WORD 

IS  THE  P.'iRTlTION  NAME  1  TOO  BIG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 


C  14 


TMPPAR  -   CFE    PARSE   PARTITION  DE   MACRO   V05.03b   Saturday   29-Jun-85   05:38      Page   9 
QCTCvT   -  ruFrt-    THF    FyTFW<;rnNi 


IMP! 

TDfl  1 


IMPPSN  -  PARSE  PSN  IN  CETAB 
IPARS  STATE  TABLES 

155 

156 

157 

158 

159  000226 

160 

161 

162 

165  000226 

16^  000226 

165  000226 

166  000226 

167  000226 

168  000226 
169 

170  000226 

171  000226 

172  000226 

173  000226 
17A  000226 
175 

176  000226 

177  000226 

178  000226 
179 

180  000226 

181  000226 

182  000226 

183  000226 

184  000226 
185 

186  000226 

187  000226 

188  000226 
189 

190  000226 

191  000226 

192  000.26 
'93  000226 
19A  000226 
195 

196  000226 

197  000226 

198  000226 
199 

200  000226 
2C1  000226 

202  000226 

203  000226 
20A  000226 
205 

206  000226 

207  000226 
208 
209 
210 


B  15 

MACRO  V05.03b  Saturday  29-Jun-85  05:38  Page  6 

.SBTTL   TPARS  STATE  TABLES 
INITIALIZE  TABLES 


ISTAT$  PSNSTB,  PSNKTB 
PROCESS  "PSNSDF" 

STATES 

TRANS  SLAMDA,,SCLERR,ERRNAM,. ERROR 
STATES 

TRANS  SSTRNCSETNAM 
STATES 

TRANS  <',> 

STATES 

TRANS  $LAMDA,,tCLERR,ERRPOR,. ERROR 
STATES 

TRANS  SNUMBR,PSN2,SETP0R 

TRANS  SLAMDA 

STATES  PSN2 

TRANS  SEOS.IEXIT 

TRANS  <',> 

STATES 

TRANS  SLAMDA,  ,$CLERR,ERRFLG, .ERROR 
STATES 

TRANS  $NUM8R,PSN3,SETFLG 

TRANS  SLAMDA 

STATES  PSN3 

TRANS  SEOS.SEXIT 

TRANS  <',> 

STATES 

TRANS  SLAMDA,, SCLERR.ERRTRN,. ERROR 
STATES 

TRANS  SNUMBR,PS^!4,SETTL0 

TRANS  SLAMDA 

STATES  PSN4 

TRANS  SE0S,SEX1T 

TRANS  <',> 

STATES 

TRANS  SLAMDA,, SCLERR,ERRTRN,. ERROR 
STATES 

TRANS  SNUM8R,PSN5,SETTHI 

TRANS  SLAMDA 

STATtS  PSN5 

TRANS  SEOS,SEXIT 

FINAL  STATE 


;PSN  NAME 


.-PORT  NUMBER 


.-OPTIONAL  FLAGS 


.-OPTIONAL  RAN.  LOW 


.-OPTIONAL  TRAN.  HIGH 


C  15 
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TMPPvr  -  ."ARSE  PERMANENT  VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05 
LOCAL  DATA 


'-'% 


Page  5 


128 
129 
130 
151 
132 
133 
13A 

135  000000 

136  000031 

137  000100 

138  000137 

139  000201 

140  000235 


.SBTTL 
.NLIST 


LOCAL  DAIA 
BEX 


SYNTAX  ERROR  DETAIL  STRINGS 


U1 
1A2 
U3 
U4 
145 
146 
147 


000273 
000322 


000350 
000352 


000004 
004 
004 
004 
004 
004 
004 
004 
004 


.NLIST  BEX 


103 
103 
103 
103 
103 
103 
103 
103 


106 
106 
106 
106 
106 
106 
106 
106 


ERRNAM 
ERRLCN 
ERRCT: 
ERRPS2 
ERRUSZ 
ERROUN 
ERRFLG 
ERRSTA 


STA: 
DLM: 


EXSSEV 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 

.8LKW 
.BLKW 


=  4 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 


<EX$SEV>/CFE  —  Illegal  state/ 


Illegal  PVC  name/ 

Illegal  logical  channel  number/ 

Error  in  counter  timer/ 

Illegal  maximum  data  size/ 

Illegal  window  size/ 

Illegal  owner  process/ 

Error  in  flags/ 


BEX 


STATE  VALUE 
DLM  NAME 


C  16 

TMPPvr   -  PARSE   PERMANE^JI   ViRTUA  MACRO  V05.03b   Saturday  29-Jun-85  05:39     Page 

TDAD';     CTATF     TARI   P  Q 


TMPOLC  - 
SETNCT  - 

271 
272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
285 
287 
288 
289 
290 
291 
292 


PARSE  DLC  PROCESS  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:31  Page  11 
STORE  NUMBER  OF  CONTROLLER  TABLES 


INPUT: 


OUTPUT 


000204 

000204  016700 

000210  116760 

000216  026727 

000224  101402 

000226  062716 

000232  000207 


000001 


177572 

OOOOOOG  000013 
OOOOOOG  OOOOOOG 

000002 


SETNCT: 


10$: 


.SBTTL   SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 
SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 

PNUMB  =  NUMBER  OF  CONTROLLER  TABLE  TO  BE  SET  IN  PROCESS  SPACE 

NUMBER  IS  VALIDATED  AND  THE  TRANSITION  IS  ACCEPTED/REJECTED 


GET  THE  TEMPLATE  ADDRESS 
STORE  THE  CONTROLLER  COUNT 
VALUE  IN  RANGE  ? 
IF  LOS,  VES 
ELSE,  REJECT 


MOV 

TEMP,RO 

MOVB 

. PNUMB, C.NCT(RO) 

CMP 

. PNUMB, #$MXNCT 

BLOS 

10$ 

ADD 

#2,(SP) 

RETURN 

.END 
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Symbol  table 
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ADR1 

0001 30R 

002 

D$ACUG= 

»»*««♦  GX 

SETCUG 

0004'- 4  R 

$DNUMB= 

000014 

$SUBXP= 

000010 

CS.DSA= 

»»»»..  GX 

D$ADLN= 

******  GX 

SFTfvlUM 

00031 4R 

$EOS  = 

000012 

$TAL0C= 

****** 

GX 

CS.NUM= 

»«ntt  GX 

D$ALEN= 

•»*«**  GX 

StTSHI 

000416R 

$ERR0R= 

****** 

GX 

STMDSA 

00021  ORG 

CS.SHI= 

,»♦*.»  GX 

D$ANUM= 

******  GX 

SETSLO 

000370F 

$EXIT  = 

000000 

$$$FLG= 

177777 

CS.SLO= 

•«*♦«»  GX 

0$ASHI= 

******  GX 

$ALPHA= 

000022 

SFAIL  = 

177777 

$$$KEY= 

)77777 

DA$CUG= 

«.*.♦«  GX 

D$ASL0= 

***..»  GX 

$any  = 

000020 

$GTNUM= 

****** 

GX 

$$$STA= 

000000 

DSAKTB 

OOOOOORG 

003 

ERRCl'G 

0001 57R 

$BLANK= 

ooooot 

$GTR50= 

****** 

GX 

.error= 

****** 

GX 

DSA5TB 

OOOOOORG 

002 

ERRNUM 

OOOOOOR 

$BYTMN= 

******  GX 

$LAMDA= 

000000 

.FLAGS= 

****** 

GX 

DSA1 

000026R 

002 

ERRSHl 

000111R 

$CFERR= 

»**««*  GX 

tNUMBR= 

000002 

.PSTCN= 

****** 

GX 

DSA? 

000052R 

002 

ERRSLO 

000044R 

$CLERR= 

******  GX 

$RAD50= 

000016 

.TEMP  = 

****** 

GX 

r  -fZ 

000076R 

002 

EX$SEV= 

000004 

$DIG]T= 

000024 

$strng= 

000004 

.TPARS= 

* ***** 

GX 

000122R 

002 

.    AB5. 

000000 
0OOA66 

000 
001 

(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 

ISTATE 

OOOIA^ 

002 

(RW,t),LCL,REL,CON) 

SKTAB 

000000 

003 

;rw,[),lcl,rel,con) 

$<STR 

000000 

004 

(RU,D,LCL,REL,CON) 

Errors 

detected: 

0 

»«*  Assembler  statistics 

Work   f 

ile  reads 

0 

Work   f 

ile  t>rites 

0 

Size  of 

work  file 

11040  Words 

(  44  Pages) 

Size  of 

core  cool 

U440  Words 

(  55  Pages) 

Operating  system 

RSX- 

1in/PLU5 

SYf?MPDSA!v2;[132,134]tMPDSA/rR/-SP  =  SY:ri,1]RSXMCM.^ML/ML,[130,n0]NETLI8/ML,[132,10]TMPDSA 


TMPDSA 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:32 
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TMPDSC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:32 
SYMBOL  CROSS  REFERENCE 


C  3 

PAGE  1 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CS.DSC 

- 

****** 

6X 

7-208 

CS.MSK 

= 

****** 

GX 

8-254 

CS.VAL 

= 

****** 

GX 

8-247 

DSCKTB 

000000 

RG 

#6-143 

7-211 

DSCSTB 

000000 

RG 

#6-143 

7-212 

DSCLEN 

~ 

****** 

GX 

7-203 

DSCMLN 

r 

****** 

GX 

7-216 

-8-253 

DSCMSK 

~ 

*****  »■ 

GX 

8-254 

DSCVAL 

- 

****** 

GX 

8-247 

tJ$CVLN 

- 

****** 

GX 

7-216 

♦8-243 

ERRLEN 

000065 

R 

#5-134 

7-218 

ERRMSK 

000000 

R 

#5-'32 

ERRVAL 

000032 

R 

#5-133 

EXSSEV 

= 

OOOOOA 

#5-131 

5-132 

5-133 

REJECT 

000430 

D 

8-241 

8-251 

#8-256 

SETMSK 

000364 

R 

#8-249 

SETVAL 

000304 

R 

#8-239 

SALPHA 

- 

000022 

#6-143 

$ANY 

- 

000020 

#6-143 

SBLANK 

r 

000006 

#6-143 

SBYTMN 

- 

****** 

GX 

»8-246 

SCFERR 

= 

****** 

GX 

7-222 

SDIGIT 

r 

000024 

#6-143 

SDNUMB 

- 

0O0014 

#6-143 

$EOS 

= 

a00012 

#6-143 

SERROR 

- 

****** 

GX 

*7-223 

•7-2"4 

SEXIT 

= 

000000 

#6-143 

SFAIL 

~ 

177777 

#6-143 

SGPRM 

= 

****** 

6-143 

SGTR50 

- 

****** 

GX 

8-247 

8-254 

SLAMDA 

- 

000000 

#6-143 

SNUMBR 

- 

000002 

#6-143 

$RAD50 

= 

000016 

#6-143 

SRONLY 

= 

****** 

6-^';3 

6-143 

6-143 

SSTRNG 

- 

000004 

#6-''.3 

SSJBXP 

- 

000010 

#6-143 

STALOC 

r 

****** 

GX 

7-204 

STMDSC 

000154 

RG 

#7-201 

$I$FLG 

= 

177777 

#6-143 

$$$KEY 

- 

■177777 

#6-143 

.ERROR 

- 

GX 

•7-209 

•7-218 

7-220 

.FLAGS 

= 

R  ***  *♦ 

GX 

»7-207 

8-247 

8-254 

.PSTCN 

- 

****** 

GX 

8-239 

8-249 

.fElP 

- 

****** 

GX 

•7-205 

7-215 

8-242 

.  'PARS 

= 

****** 

GX 

7-213 

5-134 


8-252 


TMPDSC 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:32 
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MACRO  LiOSS  REFERENCE  CREF   OA.OO 


MACRO  NAME 

REFERENCES 

CALLR 

#A-12A 

DBGTPS 

#6-161 

#6-169 

#6-190 

EPRINT 

#A-78 

PRRORJ 

#A-o7 

7-256 

ISTATS 

#A-124 

6-161 

MTRANS 

#6-161 

PRINT 
STATES 

#A-62 

#A-124 

#6-193 

6-165 
#6-195 

#6-167 
#6-201 

#6-170 

#6-1 7A 

#6-176 

#6-180 

#6-182 

#6-1E6 

#6-18 

TRANS 

#A-12A 
#6-189 

#6-166 
#6-190 

#6-168 
#6-19A 

#6-169 
#6-196 

#6-171 

#6-175 

#6-177 

#6-181 

#6-183 

#6-18 

SGTNMB 

#A-100 

7-265 

7-265 

SGTNUM 

#A-90 

$GTR50 

#A-''12 

7-259 

7-261 

7-2 '•)7 

D  A 


•f:lE'»id»«tmpdte 


TMPDTE  CREATED   BY      MACRO     ON   29-JUN-85   AT   05:35 

SVMBOL    CROSS   REFERENCE 


r     ****** 


~     ****** 


SYMBOL  VALUE 


CS.DTE 

CS.NET 

CS.TRfi 

CS.UNl 

C.ADR 

C.CT 

C.HSH 

C.LEN 

C.LIN 

C.NET 

C.STA 

DTEKTB 

DTESTB 

ERRADR 

ERRfT 

ERPH5H 

ERRlIN 

ERRNET 

ERRSTA 

EXSSEV 

L$LEMX 

REJECT 

SETADR 

SETCON 

SETCT 

SE'DEV 

SETHSH 

SETNET 

SETSTA 

SETTRB 

5ETUM 

STA 

SALPHA 

$ANY 

$BLAN< 

SBYTMN 

SCFERR 

SDIGIT 

$DNUMB 

$EOS 

SERROR 

$EX!T 

$fAIL 

SGPRM 

SGTNUM 

$GTR50 

$LAM3A 

$^JUM9R 

$RAD50 

SRONLV 

SOTRNG 

SSJ8XP 


**♦♦*♦  G, 
000004 
000032 
000030 
OOOOAO 
000.16 
OOOCis 
000026 
OOCjOO  RC 
000000  RG 
000000  R 
000125  R 
000065  R 
000034  R 
000223  R 
000171  R 
000004 


****** 
000474 
000402 
000574 
000502 
000560 
000416 
000522 
000544 
000642 
000614 
000262 
000022 
000020 
000006 


000024 
000014 
000012 

****** 

000000 
177777 

***«*•* 
****** 

*♦♦♦** 

OOOOOO 
000002 
000"'6 

OOO0C4 
000010 


GX 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 


GX 
GX 


GX 


GX 
GX 


REFERENCES 

7-265 

8-317 

8-354 

8-352 
#5-135 
#5-140 
#5-139 
#5-142 
#5-136 
#5-141 
#5-138 
#6-'i64 
#6-164 
#5-149 
#5-152 
#5-151 
#5-150 
#5-154 
#5-153 
#5-148 

7-268 

8-304 
#8-298 
#8-350 
#8-515 
#8-348 
#8-300 
#8-317 
#8-329 
#8-554 
#8-352 
#5-157 
#6-164 
#6-164 
#6-164 
•7-268 

7-276 
#6-164 
#6-164 
#6-164 
*7-277 
#6-164 
#6- '64 

6-164 

8-310 

8-298 
#6-U4 
#6-164 
#6-164 

6-164 
#6-164 
#6-164 


8-298 
8-315 
8-310 
7-260 
8-548 
8-317 
•8-330 
7-270 
7-271 


5-149 
#8-312 


•7-267 


-309 


•7-278 


8-315 
8-317 


6-164 
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CREF        04.00 


8-350 


8-352 


8-354 


5-150 


5-151 


5-152 


5-153 


5-154 


-330 


8-350  8-352 

8-348 


6-164 


8-354 


TMPOIE 


CREATED  BY     flAiRO     ON  29-JUN-85   AT   05:55 


PmjE   2 


D     5 


TMPEVT  - 
SETMON  - 

262 
263 
26A 
265 
266 
267 
268 
269 
270 

in 

272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
2S2 
28? 
28'. 
285 
286 
287 
288 
280 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
291 


C  6 

CFE  PARSE  EVE^JT  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:34  Page  11 
SETUP  MONITOR  LOGGING  SINK,  TYPE 

.SBTTL  SETMON  -  SETUP  MONITOR  LOGGING  SINK  TYPE 
.S8TTL  SETCON  -  SETUP  CONSOLE  LOGGING  SINK  TYPE 
.S8TTL   SETfIL  -  SETUP  FILE  LOGGING  SINK  TYPE 

*•*  -  SETMON  -  S'^TUr'  MONITOR  LOGGING  SINK  TYPE 
***  -  SEICC.N  -  SETUP  CONSOLE  LOGGING  SINK  TYPE 
••*  -  SETIFL  -  SETUP  FILE  LOGGING  SINK  TYPE 

THESE  ACTION  ROUTINES  SET  UP  THE  LOGGING  SINK  TYPE 


TM 
Ac 


INPUT: 


TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


000310  0''270'  000001 
0003U  CC0A05 


000316  012701  000004 
000322  000'.02 


000324  012701  000002 

000330  016700  177444 

000334  010160  000016 

000540  000^07 


000001 


C.SNK  =  LOGGING  SINK  TYPE 
C-BIT  =  SUCCESS/FAILURE 


.ENABL  LSB 

SETCON:  MOV     *FF.C0N,R1 
BR      10$ 


SETMON: 

MOV 
BR 

#Fr.M0N,R1 
10$ 

SETFIL: 

MOV 

#FF.FIL,R1 

10$: 

MOV 
MOV 
RETURN 

TEMP,RO 
R1,C.SNK(R0) 

.DSA8L 

LSB 

.END 

GET  CONSOLE  LOGGH.G  SINK  TYPE 


GET  MONITOR  LOGuING  SINK  TYPE 


GET  FILE  LOGGING  SINK  TYPE 

POINT  AT  TEMPLATE 
STORE  LOGGING  SINK  TYPE 


D  6 

TMPEVT  -  CFE  PARSE  EVENT  DEFINI  MACRO  v05.03h  Saturday  29-Jun-85  05:34  Page  11-1 
Symbol  tabU' 


005067  177542 
CI  2700  000002' 


TMPFIL  -  CFE  PARSE  REMOTE  CHARA 
Action  routines 


233 

234 

^35 

236 

237 

238 

239 

2A0 

2A1 

2A2  000232 

243  000232 

24A  000236 

245  000242 

246  000246 

247  000250 

248  000252 
249 

250 
251 
252 
253 
254 
255 
256 
257 

258  000254 

259  00C254 

260  000262 


C  7 

MACRO  V05.03b  Saturday  29-Jun-85  05:54  Page  7 


.SBTTL  Action  routines 


••  CLEFIL 
Inputs: 
Output: 
CLEFJL: 


clear  file  identifier 
none, 
file  is  cleared. 


012701 
105020 
077102 
000207 


000043 


10$: 


CLR 
MOV 
MOV 

CLR8 

SOB 

RETURM 


FILE 
#FD,fi0 
*f .LEN.RI 
(R0)  + 
R1,10$ 


zero  offset 

point  to  prototype  FD 

get  length 

zero  prototype 


♦♦  CKFSP  -  check  parsed  filespec 


inputs: 
Output: 


.TPARS  variables. 

FD+F.DEV=  parsed  filespec  str^'ng 
fhe  transition  is  accepted/rejected 


261 


__  000264 
2o2  000270 
263 

264  000274 

265  000502 

266  000306 
267 

268 
269 
270 
271 
272 
273 
274 
275 
276 
211 

278  000310 

279  000316 

280  000320 

281  000322 

282  000330 
233  000334 
284 

285 
286 
28' 
2%% 
289 


026727  OOOOOOG  000036 

101004 

012702  000006' 

000167  000204 


CKFSP: 


012767  0000^.5' 
062716  0000'12 
000207 


OOOOOOG  REJ: 


CM,"' 
BHI 
MOV 
CALLR 

MOV 
ADD 
RETURN 


.PSTCN,*MXFSP 
REJ 

#FD+F.DEV-1,R2 
MOVSTR 

*ERRFSP, .ERROR 
#2,(SP) 


Check  length 

If  HI ,  too  long 

Else  point  to  parsed  data  area 

Moi/e   it   to  parsed  data  area 

ELSE  ERROR 

Reject  the  transition 


026727  OOOOOOG 

101001 

000405 

012767  000077' 

062716  000002 

000207 


«*  CKUIC  -  check  parsed  UIC  length 

Inputs;      .TPARS  variables. 

R3  =  byte  count  of  remainder  of  input  string 
R4  -  address  of  remainder  of  input  string 

Output:      The  transition  is  accepted/rejected 
R0-R1  clobbered 

Check  length 

If  HI,  too  long 

Else,  OK 

ELSE  ERROR 

Reject  the  transition 


•*  STFIL  -  store  pai sed  file 


000013  CKUIC: 

CMP 

.PSTCN,*n. 

BHI 

10$ 

BR 

20$ 

OOOOOOG  10$: 

MOV 

#ERRU1C,. ERROR 

ADD 

#2,(SP) 

;w$: 

RETURN 

Inputs: 


FD 
FILE 


=  prototype  file  descripior 

=  offset  to  address  of  FD  "n  template 
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Action  routines 
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TMPFEA  -  PARSE  FEATURES  DEflNIT  MACRO  V05.03b  Saturday  29-Jun-85  0'):35 
STMFEA  -  SETUP  FEATURES  TEMPLATE 


Page  6 


TA 


129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139 

UO 

U1 

1A2  000002 

K3  000002 

HA  OOOOOA 

K5  000010 

1A6  OOOOU 

1A7  000020 

1A8  000026 

149  000030 

150  00003; 

151  OOOOAO 

152  OOOOAA 

153  0000A6 
15A  000052 
155  0C005A 


.SBTTL  STMFEA  -  SETUP  FEATURES  TEMPLATE 
***  -  STMFEA  -  SETUP  FEATURES  TEMPLATE 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


0105A6 
012701 
00A767 
010067 
012760 
005001 
012702 
012705 
00A767 
103002 
005267 
012605 
000207 


$TMFEA: 


00001A 

OOOOOOG 

177760 

OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


20$: 


C-8IT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  FEATURES  TEMPLATE  IS  STuRED  IN  THE  END  OF  TASK  BUFFER. 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  AD^^RESS 

;  INDICATE  THAT  THIS  IS  A  FEASDF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


MOV 

R5,-(SP) 

MOV 

#C.LEN,R1 

CALL 

STALOC 

MOV 

RO,TEMP 

MOV 

#CS.fEA,C.STS(R05 

CLR 

R1 

MOV 

#FEAKTB,R2 

MOV 

#FEASTB,R5 

CALL 

.TPARS 

BCC 

20$ 

INC 

SERROR 

MOV 

(SP)+,R5 

RETURN 


L_ 
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SFinvl  -  SETUP  KT  fHARACTFR  OF  DEVICE  NAME 


Page 
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^5:?- 


78 

79 

80 

81 

82  000004 

83 

84  000004 

85  000004 
35 

87  000004 

88  000004 
89 

90  00OCO4 

91  000004 
92 

93  000004 

94  000004 

95  000004 
96 

97  000004 

98  000004 
99 

100  000004 

101  000004 

102  000004 

103  000004 

104  000004 

105  000004 

106  000004 

107  000004 

108  000004 
109 

110  000004 

111  000004 
112 

113  0O0JO4 

114  000004 
115 

116  000004 

117  000004 
118 

119  000004 

120  000004 
121 

122  000004 

123  000004 

124  000004 
125 

126  000004 

127  000004 

128  000004 
129 

130  COOOC- 

'Yi   000004 

132  000004 

•33 

-3<.  000004 


INITIALIZE  TABLE  GENERATION 


ISTATS  LLCSTB.LLCKTB 


STATES 
TRANS 

SRA[)50,,SErNAM 

• 

LLC  NAME 

STATES 
TRANS 

<'  ,> 

FLAGS 

STATES 
TRANS 

SLAMDA.BITO 

STATES 
TRANS 
TRANS 

BITS 

'I.BITO 

SLAMDA, PRIOR, SE'FLC 

STATES 
TRANS 

BITO 
I2F 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

"LLC", BITS, ,ZF. LLC 
"TIM", BITS, ,ZF. TIM 
"MEL", BITS, ,ZF.MFL 
"MTM",BITS,,ZF.MTM 
"COU",BITS,,ZF.COU 
"X3P",BITS,,ZF.X3P 
"SLi",BITS,,ZF.SLI 
"INI", BITS, ,ZF. INI 

FLAG 
FLAG 
FLAG 
FLAG 
FLAG 
FLAG 
FLAG 
FLAG 

STATES 
TRANS 

PRIOR 

PRIORITY 

STATES 
TRANS 

$NUM6R,,SETPRI 

STATES 
TRANS 

<'  ,> 

CHANNELS 

STATES 
TRANS 

SNUM8R,,SETLIN 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 
<'  ,> 

DEVICE  ID 

STATES 
TRANS 
TRANS 

SSTRNCNLT.SETDEV 
SLAMDA 

STATES 
TRANS 

NLT 
SEOS,SEXIT 

■  LINE  TABLES 

TRANS 
STATES 
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TMPLLC     lREATED  BY 
SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


MACRO  ON  29-JUN-85  AT  05:36 


C  10 

PAGE  2 

CREF   OA.OO 


.PNUMH  =  *•**«• 

.PSTCN  =  «•*••• 

.PSTPT  =  *»..«. 

.TPARS  =  .».».. 


GX 
G)' 
GX 
GX 


REFERENCES 

10-299 
7-226 
7-221 
6-199 


U-391 
11-32'; 
11-322 


11-523 


TMPLLC 


CREATED  BY  MACRO  ON  i9-JUN-85  AT  05:36 
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•F1LE«»ID*«TMPN0D 


C  11 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

NN 

NN 

000000 

DDDDDDDD 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

NN 

NN 

000000 

DDDDDDDD 

MMMM 

PP      PP 

NN 

NN 

00 

00 

DO      DD 

MMMM 

MMMM 

PP      PP 

NN 

NN 

00 

00 

DD      DD 

MM 

MM  MM 

PP      PP 

NNNN 

NN 

00 

00 

DD      DD 

MM 

MM  MM 

PP      PP 

NNN^ 

NN 

00 

00 

DD      DD 

MM 

MM 

PPPPPPPP 

NN 

MN   NN 

00 

00 

DD      DD 

MM 

MM 

pppprppp 

NN 

NN   NN 

00 

00 

DD      DD 

^M 

MM 

PP 

NN 

NNNN 

00 

00 

DD      DD 

MM 

MM 

PP 

NN 

NNNN 

00 

00 

DD      DD 

MM 

MM 

PP 

NN 

NN 

00 

00 

DD      DD 

MM 

MM 

PP 

NN 

NN 

00 

00 

DD      DD 

MM 

MM 

PP 

NN 

NN 

000000 

DDDDDDDD 

MM 

MM 

PP 

NN 

NN 

000000 

DDDDDDDD 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ss^.sss 

ss 

ss 

ss 

ss 

LLLLLL 

LLLL 

ssssssss 

LLLLLL 

LLLL 

ssssssss 
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TMPNCD     CREATED  B*  MACRO  ON   29-JUN-85  AT  05:57 
SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CS.NOD 

r     ♦♦**»• 

GX 

6-171 

CMOS 

00005A 

#4-89 

♦6-170 

♦11-319 

C.LEN 

=   000056 

#4-90 

6-165 

C.NAh 

000004 

#4-84 

♦7-203 

♦7-208 

C.NID 

000010 

#4-86 

8-253 

C.NUM 

000052 

#4-88 

♦6-169 

♦9-266 

C.STS 

=   ****(t* 

GX 

♦6-171 

♦9-268 

♦11-320 

LA 

^   000074 

#4-74 

NODKTB 

000000 

RG 

#5-99 

6-173 

NODSTB 

000000 

R6 

#5-99 

6-174 

lOSEXA 

-    *«***♦ 

GX 

9-268 

'.OtHOA 

=    ****** 

GX 

11-320 

HA 

=  000076 

#4-75 

SETHOA 

000352 

R 

#11-310 

SETHOS 

000422 

R 

#12-337 

SET NAM 

000100 

R 

#7-198 

SETMD 

000166 

R 

#8-251 

SETNNA 

000236 

R 

#9-257 

SETNNM 

000312 

R 

#10-286 

TEMP 

000000 

R 

#4-76 

♦6-167 

7-202 

SALPHA 

=:  000022 

#5-99 

$ANY 

=  000020 

#5-99 

SBLANK 

=  000006 

#5-99 

$CAT5 

~      **■*■*** 

GX 

7-201 

7-206 

SDIGIT 

=  C00024 

#5-99 

SDNUMB 

=  000014 

#5-99 

$EOS 

=  000012 

#5-99 

SERROR 

-      ****** 

GX 

♦6-177 

SEXIT 

=  000000 

#5-99 

$FAIL 

=   177777 

#5-99 

$GPRM 

-      ****** 

5-99 

:^AMDA 

=  000000 

#5-99 

SMVASC 

=    ****** 

GX 

8-259 

SN'ADD 

=      **x*** 

GX 

♦6-168 

♦9-267 

♦10-293 

SNTNAM 

=    ****** 

GX 

♦7-204 

♦7-209 

SNUMBR 

=  000002 

#5-99 

$RAD50 

=  000016 

#5-99 

SRONLY 

-   **+*** 

5-99 

5-99 

5-99 

SSTRNG 

=  000004 

#5-99 

SSUBXP 

=  0OCO10 

#5-99 

ITALOC 

-    ♦♦**** 

GX 

6-166 

STMNOD 

000002 

RG 

#6-165 

$$$FLG 

=   U7777 

#5-99 

$$SKEY 

=   177777 

#5-99 

.PNUMB 

r      ****** 

GX 

9-259 

10-288 

11-312 

.PSTCN 

-      ****** 

GX 

7-210 

8-235 

8-240 

.PSTPT 

■z      ****** 

GX 

7-199 

8-254 

.TPARS 

r     ****** 

GX 

6-175 

C  12 
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CREF        04.00 


•  12-543 


TM 
SE 


♦10-292 


7-207 


8-252 


9-258 


10-287 


11-311 


12-338 


12-339 


L 


TMPNOD 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:37 
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TF 
Sv 
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SETCPV  -  SETUP  THE  MAXIMUM  .NUMBER  OF  COPIES  ALLOWED 
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3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 
326 
327 
328 

329  000366 

330  000366 

331  000372 

332  OOOAOO 

333  OOOAOA 
53A  000406 
335  000A1A 
536  000116 
337  0OOA22 
338 

339 
3A0 


.SBTTL   SETCPY  -  SETUP  THE  MAXIMUM  NUMBER  OF  COPIES  ALLOWED 

♦•♦  -  SETCPY  -  SETUP  THE  MAXIMUM  NUMBER  OF  COPIES  ALLOWED 

INPUT: 

.PNUM8  =  THE  MAX.  #  OF  COPIES  ALLOWED 

.PNUMH  =  THE  MAX.  *  OF  COPIES  ALLOWED  (HIGH  BYTE) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT 


THE  NUMBER  OF  COPIES  IS  MOVED  INTO  C.CPY  OF  THE  TEMPLATE 
C-BIT  =  SUCCESS/FAILURE 


016700 
116760 
005767 
OOIOOA 
022767 
103002 
062716 
000207 


000001 


177A06 

OOOOOOG  000012 
OOOOOOG 

000077  OOOOOOG 


SETCPY: 


000002 


10$: 
2C$: 


MOV 

M0V8 

TST 

BNE 

CMP 

BHIS 

ADD 

RETURN 


.END 


TEMP.RO 

.pnumb,c.cpy;ro) 

.PNUMH 

10$  ; 

#63.,.PNUMB  ; 

20$  ; 

*2,(SP)  ; 


POINT  AT  TEMPLATE 

;  STORE  THE  NUMBER  OF  ALLOWED  COPIES 
IS  THIS  A  WORD  VALUE  ? 
IF  NE,  NO  ..  REJECT 
IS  THE  NUMBER  IN  RANGE 
IF  HIS,  YES  ..  OKAY 
ELSE,  REJECT 
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SvmhnI  table  _ 
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SfTEXT  -  CHECK  THE  EXTENSION 
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IMP! 
TPAf 


253 
25^ 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27.' 
27j 


.S8TTL  SETEXT  -  CHECK.  THE  EXTENSION 
♦♦*  -  SETEXT  -  CHECK  THE  POOL  EXTENSION 


INPUT: 


.PNUM8  -  EXTENSION 

.PNUMH  =  EXTENSION  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


00024i 

0002A4  016700  177532 

000250  016760  0000006  OOOOK 

000256  005767  OOOOOOG 

000262  001A02 

00026A  062716  000002 

000270  000207 


SETEXT: 


THE  ACTUAL  EXTENSION  IS  CALCULATED  FROM  BUFFER 
AND  NODE  COUNTER  ALLOCATIONS  AND  STORES  IN  $BLKXT. 
THIS  ROUTiNE  ACTS  AS  A  SANITV  TEST  ON  THE  VALUE  IN 
THE  CET.AS. 


GET  START  OF  TEMPLATE 
;  STORE  THE  EXTENSION  IN  THE  TEMPLATE 
IS  IT  A  UORD  VALUE  ? 
IF  EQ,  YES 
ELSE,  REJECT  THE  TRANSITION 


MOV 

TEMP,RO 

MOV 

.PNUMB.C.EXKRO) 

TST 

.PNUMH 

BEQ 

20$ 

10$: 

ADD 

#2,(SP) 

20$: 

RETURN 

0  u 

TMPPAR  -  CFE  PARSF  PARTITION  DE  .'lACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  10 
^FTAII  -  SFT  THF  RVTf-AREA  EXTENSION 


TMP 
STM 


5  15 

tMPPS^  -  PARSE  PSN  IN  rETAB    MACRO  v05.0?b  Saturday  ?9-Jun-85  05:38  Page  6-1 
iPARS  STATE  TABLES 

211  000226  STATE! 

212 
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STMPSN  -  BUILD  PSN  TEMPLATE 
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IPARS  STATE  TABLES 


Ssl^ 
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U9 

150 

151 

152 

153 

15A  0OO35A 

155 

156 

157 

158  00035A 

159  000354 

160  00035A 

161  000354 

162  000354 

163  000354 

164  000354 
165 

166  000354 

167  or  i54 

168  0'  '354 

169  00u554 

170  000354 

171  000354 
172 

173  000354 

174  000354 

175  000354 

176  000354 

177  00035'. 

178  000354 
179 

180  000354 

181  000354 

182  000354 

183  000354 

184  000354 

185  000354 

186  000354 

187  000354 
1 RR 

189  000354 

190  000354 

191  000354 

192  000354 

193  000354 
194 

195  000354 

196  000354 

197  000354 
198 

199  000354 

200  000354 

201  000354 

202  000354 

203  000354 
204 

205  000354 


.SBTTL   TPARS  STATE  TABLES 
INITIALIZE  TABLES 

ISTATS  PVCSTB,  PVCKTB 
PROCESS  "PVCSDF" 


STATES 

;  PVC  NAME 

TRANS 

STATES 

TRANS 

SLAMDA,,SCLERR,ERRNAM, 

.ERROR 

IDLMPVC,PVC0,,1,DLM 

.■ALTERNATE  FORMA 

TRANS 

SSTRNCSETNAM 

STATES 

PVCO 

TRANS 

<'-> 

STATES 

;  LOGICAL  CHANNEL  NUMBER 

TRANS 

SLAM[)A,,SCLERR,ERRLCN, 

.ERROR 

STATES 

TRANS 

SNUMBR,,SETLCN 

STATES 

TRANS 

<'  ,> 

STATES 

;  COUNTER  TIMER 

TRANS 

SLAMDA,,SCLERR,ERRCT,. 

ERROR 

STATES 

TRANS 

SNUMBR,,SETCT 

STATES 

TRANS 

<',> 

STATES 

;  STATE 

TRANS 

$LAMDA,,$CLERR,ERRSTA 

.ERROR 

STATES 

TRANS 

X0N/(,PVC1,,1,STA 
XOfFSi.PVCl 

TRANS 

STATES 

PVCl 

TRANS 

SEOS,SEXIT,SETSTA 

TRANS 

<',>,,SETSTA 

STATES 

;  OPTIONAL  MAXIMUM  BLOCK 

TRANS 

SLAMDA,,SCLERR,ERRPSZ 

.ERROR 

STATES 

TRANS 

SNUMBR,PVC2,SETPSZ 

TRANS 

SLAMDA 

STATES  PVC2 

TRANS  SE0S,SEX1T 

TRANS  <',> 

STATES  ;  OPTIONAL  WINDOW  SIZE 

TRANS  SLAMDA,, SCLERR,ERRWS7,. ERROR 
STATES 

TRANS  SNUMBR,PVC3,SETWSZ 

TRANS  SLAMDA 

STATES  FVC3 
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TPARS  STATE  TABLES 
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Symbol  table 
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ITS 
BITO 
CS.DLC= 
C.fLG 
C.LEN  = 
C.NAM 
C.NCT 
C.NLT 
C.PRI 
C.STS  = 
l)LCKT3 

.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000020R 

000032R 

*«»■»♦«  GX 

000006 

OCOOU 

OOOOOA 

000013 

000012 

000010 

*♦*♦**  GX 

OOOOOORG 

OOOOU 
000234 
0001A4 
OOOOU 
000027 


002  DLCSTB 

002  FLAG 
NCT 
PRIOR 
SETFLG 
SETNAM 
SETNCT 
SETNLT 
SETPRI 
TEMP 

003  ZF 


OOOOOORG 

OOOOOOR 

0001 22R 

000076R 

0001 24R 

000064R 

000204R 

0001 SAR 

OOOUOR 

000002R 

0001 36R 


002  ZF.COU= 
ZF.DJ.C  = 

002  ZF.MAN= 

002  ZF.i';FL  = 
ZF.TIM= 
$ALPHA= 
SANV  = 
$8LANK= 
SCATS  = 
$DIGIT= 

002  $DNUM8= 


4i^4«** 

GX 

$EOS  = 

000012 

$TAL0C= 

******  GX 

****** 

GX 

$ERROR= 

****** 

GX 

STMDLC 

000004RG 

****** 

GX 

SEXIT  = 

000000 

$$$FLG= 

■[17777 

****** 

GX 

SFAIL  = 

177777 

$$$KEY= 

00995S 

****** 

GX 

SLAMDA- 

000000 

$$$STA= 

000000 

000022 

IMXNCT= 

****** 

GX 

$$$TMP= 

000024R 

000020 

$MXNLT= 

****** 

GX 

.PNUMB= 

******  GX 

000006 

$NUMBR= 

000002 

.PSTCN= 

******  GX 

****** 

GX 

$RAD50= 

000016 

.PSTP7= 

******  GX 

000024 

$STRNG= 

000004 

.TPARS= 

******  GX 

OOOOU 

$SUBX?= 

000010 

004 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABj,OVR) 
(RU,I,LCL,REL,C0N) 
(RU,D,LCL,REL,CON) 
(RW,[),LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


*♦•   Assembler   statistics 

Work      file      reads:  0 

Work      file   writes:  0 

Size  of  work   file:  10438  Words 

Size  of   core   pool :  14440  Words 

Operatir.g      S'Stem:  RSX-11M/PLUS 

Ivt^MPDCC !  V2 ;  [132,1  34]  tMPDLC/CR/-SP=SY:[l,i:RSXMCM.SI»!L/ML,[1 30,  IIODNETL  IB/ML,  CI  32, 10]  TMPDLC 


(  41   Pages) 
(    55  Pages) 


TMPDLC 
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SYMBOL  CROSS  REFERENCE 
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PAGE   1 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

CS.DSA 

~       **♦*«* 

GX 

7-218 

CS.NUM 

-   **♦♦** 

GX 

8-255 

CS.SHI 

=   ****** 

GX 

8-259 

CS.SLO 

r  ****** 

GX 

8-257 

DASCUG 

-  ****** 

GX 

8-261 

DSAKTB 

000000 

R-^ 

#6-145 

7-221 

DSASTB 

000000 

RG 

#6-145 

7-222 

DSACUG 

=    ****** 

GX 

8-261 

DSADLN 

-  ****** 

GX 

*8-251 

DSALEN 

=    ****** 

GX 

7-213 

DSANUM 

-    ****** 

GX 

8-255 

DSASHI 

~    ****** 

GX 

8-259 

DSASLO 

=    ****** 

GX 

8-257 

ERRCUG 

000157 

R 

#5-136 

ERRNUM 

000000 

R 

#5-133 

ERRSHI 

000111 

R 

#5-135 

ERRSLO 

00004A 

R 

#5-134 

EXSSEV 

=  OOOOOA 

#5-132 

5-133 

SETCUG 

000444 

R 

#8-261 

SETNUM 

000314 

R 

#8-248 

SETSHI 

000416 

R 

#8-259 

SETSLO 

000370 

R 

#8-257 

SALPHA 

=  000022 

#6-145 

$ANY 

=  000020 

#6-145 

SBLANK 

=  000006 

#6-145 

SBYTMN 

::  ****** 

GX 

♦8-254 

SCFERR 

-  ****** 

GX 

7-227 

SDIGIT 

=  000024 

#6-145 

SDNUMB 

=  000014 

#6-145 

$EOS 

=  000012 

#6-145 

SERROR 

=  ♦♦♦**+ 

GX 

♦7-228 

♦7-^29 

SEXIT 

=  000000 

#6-145 

SFAIL 

=   177777 

#6-U5 

SGPRM 

=   ****** 

6-145 

SGTNUM 

=   ****** 

GX 

8-257 

8-259 

$GTR50 

=      ****** 

GX 

8-255 

8-261 

SLAMDA 

=  000000 

#6-145 

SNUMBR 

=  000002 

#6-145 

$RAD50 

=  000016 

#6-145 

SRO'iLY 

-   ****** 

6-145 

6-145 

SSTRNG 

=  000004 

#6-145 

SSUBXP 

=  000010 

#6-145 

STALOC 

=r   ****** 

GX 

7-214 

STMDSA 

000210 

RG 

#7-211 

$$$FLG 

=   T77777 

#6-145 

$$$KEV 

=   177777 

#6-145 

.ERROR 

-   ****** 

GX 

♦7-2i9 

7-225 

.FLAGS 

=      ****** 

GX 

♦  7-217 

8-255 

.PSTCN 

=   ****** 

GX 

8-249 

.TEMP 

-   ****** 

GX 

♦7-215 

8-248 

.TPARS 

-   ****** 

GX 

7-223 

5-134 


5-135 


5-136 


6-145 


8-257 


8-259 


8-261 


TMPDSA 
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MACRO  CROSS  REFERENCE  CREF   0^.00 

#6-170    #6-174    #6-175    #6-176    #6-177    #6-178    #6-179 

#6-153    #6-156    #6-158    #6-161     #6-166    #6-168    #6-172 

#6-152    #6-154    #6-157    #6-159    #6-160    #6-162    #6-167 
#6-174    #6-175    #6-176    #6-177    #6"178    #6-179 


MACRO  NAME 

REFERENCES 

CALLR 

#4-124 

DBGTPS 

#6-143 

#6-152 

#6-1 fcC 

EPRINT 

#4-78 

ERRORS 

#4-  67 

7-222 

ISTATS 

#4-124 

6-143 

ITPANS 

#6-143 

PRINT 

#4-62 

STATES 

#4-124 
#6-183 

6-148 

#6-150 

TRANS 

#4-124 

#6-149 

#6-151 

#6-169 

#6-170 

#6-173 

SGTNMB 

#4-100 

SGTNUM 

#4-90 

SGTR50 

#4-112 

8-247 

8-254 
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•«FILE**ID**TMPDTE 


TTTTTTTTTT 

MM 

MM 

I'PPPPPPP 

DDDDDDDS 

TTTTTTTTTT 

EEEEEEEEEE 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

DDDDDDDD 

TTTTTTTTTT 

EEEEEEEEEE 

TT 

mm 

MMMM 

pp      PP 

DD 

DD 

TT 

EE 

iT 

MMMM 

PP      PP 

DD 

DD 

TT 

EE 

TT 

m 

m    MM 

PP      PP 

DD 

DD 

TT 

EE 

TT 

m 

»IM  MM 

PP      PP 

DD 

DD 

TT 

EE 

TT 

MM 

MM 

PPPPPPPP 

DD 

DD 

TT 

EEEEEEEE 

TT 

MM 

MM 

PPPPPPPP 

DD 

DD 

"^  f 

EEEEEEEE 

TT 

MM 

MM 

PP 

DD 

DD 

TT 

EE 

TT 

MM 

MM 

PP 

DD 

DD 

TT 

EE 

TT 

MM 

MM 

PP 

DD 

DD 

TT 

EE 

T7 

MM 

MM 

PP 

DD 

DD 

TT 

EE 

TT 

MM 

MM 

PP 

DDDDDDDD 

TT 

EEEEEEEEEE 

TT 

MM 

MM 

PP 

DDDDDDDD 

TT 

EEEEEEEEEE 

SSS5SSSS 
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SYMBOL  CROSS  REFERENCE  CREf   04.00 

SYMBOL  VALUE  REFERENCES 

#7-258 
#6-164 
#6-164 

•7-264  8-317  8-352  8-354 

8-302 
•7-262  8-329 

7-272 


STALOC 

: 

«•**♦* 

GX 

$TMDTE 

000264 

H;i 

l$$FLG 

- 

177777 

$$$<EY 

r 

^77771 

.ERROR 

z 

»♦**♦■« 

GX 

.FLAGS 

- 

****** 

GX 

.PNUMB 

- 

******- 

GX 

.TEMP 

~ 

****** 

GX 

.TPARS 

- 

****** 

GX 

E     5 
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THPEVT 

-  CFE  PARSE 

EVENT  DEFI.NI 

CACRO  V05.03b 

Saturday 

29-Jun-85  05:34 

Symbol 

tabU' 

CS.EVT= 

»♦♦♦••  GX 

FF.L1N= 

000010 

t  .LENX= 

******   GX 

C.CLS 

000004 

FF.MOD= 

000100 

F.lIN 

000020 

C.EVT 

000006 

FF.MON= 

000004 

F.LNK 

000000 

C.LEN  = 

000020 

Ff.MSK= 

000077 

F.MOD 

000022 

C.SNK 

000016 

FF.PRT= 

000200 

F.REM 

000026 

C.STS  = 

»♦***«  GX 

FF.QUL= 

000370 

F.SEV 

000004 

EVTKTB 

OOOOOORG 

003 

FF.REM= 

100000 

LBRA  = 

000074 

EVTMSK 

000042R 

002 

FINEVT 

0001 22R 

MAXCLS= 

077700 

EVTSTB 

OOOOOORG 

002 

F.ADD 

000016 

R8RA  = 

000076 

EXIT 

000036R 

002 

F.CEV 

000030 

SETCLS 

000166R 

FF.ADti= 

000020 

F.CIR 

000024 

SETCON 

000310R 

FF.CIR= 

000040 

F.CLS 

000002 

SETFJL 

000324R 

FF.CON= 

000001 

F.EVT 

000004 

SETMON 

000316R 

FF.FIL^ 

000002 

F.FLG 

000014 

SETMSK 

000240R 

FF.HST= 

040000 

F.LEN 

000016 

.  ABS. 

000040 

000 

(RW,1,GBL,A8S,0VR) 

000342 

001 

(RW,I,LCL,REL,CON) 

SSTATF 

000056 

002 

(RW,D,LCL,REL,CON) 

$KTAB 

000006 

003 

(RW,:),LCL,REL,CON) 

$KSTR 

000025 

004 

(RW,-),LCL,REL,CON) 

Errors 

detected: 

0 

**»  Assembler  statistic 

s 

Work   f 

ile  reads 

0 

Work   f 

i le  writes 

0 

Size  of 

work  file 

11160  Words 

(  44  Pages) 

Size  of 

core  pool 

14440  Words 

(  ^5  Pages) 

Operating  system 

RSX- 

IIM/PLUS 

Elapsec 

time:  00: 

}0:20. 

52 

SY:T|V|PEVT.V2,C132 

,134:TMPEVT/CR/-SP=Sy:[1,1]RSXMCh.SML/ML,[130,110]NETL 
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T^ 
Ac 


STRADD 

TEMP 

$ALPHA= 

$ANY  = 

$BLANK= 

SBYTMN^ 

$DIGn  = 

$DNUI»IB= 

$E0S  = 

$ERR0R= 

$EXIT  = 

SFAIL  = 

$LAMDA= 

$NUMBR= 


000002R 

OOOOOOR 

000022 

000020 

000006 

****♦«  GX 

000024 

C00014 

000012 

******   GX 

000000 

}77777 

000000 

000002 


$QINSN= 
$RAD50: 
$STRNG= 


******  GX 

000016 

000004 


******   GX 
*♦*♦«*  GX 


$SUBXP=  000010 
STMEVT  000004RG 
$TMLST= 
$T1ALC= 

$$$FLG=  ^77^77 
$$$KEY=  00  002 
$$$STA=  000042R 
$$$TMP=  00001 5R 
.PNUMB=  ******  GX 
.PNUMH=  *♦«***  GX 
.TPARS=  ******  GX 


002 
004 


TMPEVT 
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290 
291 
292 
293 
291 
295 
296 
297 
298 

299  000336 

300  000512 
^01 

302 
303 

301  000316 

305  000350 

306  000352 

307  000351 

308  000356 

509  000362 

510  000366 
311 

312  000372 
515  000571 

511  000576 
515 

516 
317 

518  000100 

519  000101 
520 

521 

322 

525  000106 

521  000112 

525  000116 

526  000120 

327  000122 

328  000121 
529  000150 
550  000151 
331 

352  000110 
553  000112 
531 


001567 
012700 


010005 
011000 
001115 
010001 
062701 
012702 
012703 

122122 
001361 
077303 


005260 
000127 


012701 
001767 
010015 
010003 
005023 
012723 
012701 
012702 

112225 
077102 


335 

356 

337  000111 

116701 

538  000150 

062701 

359  000151 

012701 

310  000160 

060167 

311 

312 

513 

341  000161 

016705 

315  000170 

066705 

316  000171 

010015 

OOOOOOG 
OOOOOOG 


000001 

000006' 

000037 


000002 


000015 
OOOOOOG 


000001 
000037 
000006' 


177356 
000011 
000003 
OOOOOOG 


OOOOOOG 
177501 


Output: 


STFIL:   JSR 
MOV 


SFILHD  =  single  word  FD  listhead 

SBYTMN  =  minimum  bytes  in  byte  allocated  pool 

.TEMP   =  address  of  FILSDF  template 

If  new  file,  an  FD  is  linked  into  SFILHD 
and  SBYTMN  is  updated  -  otherwise  use  count 
of  existing  FD  is  incremented. 


R5,SSAVRG 
*$FILKD,RO 


Save  R5-R5 

Point  to  file  list 


Look  for  parsed  file  names  in  file  descriptor  list 


lOS: 


20S: 


MOV 
MOV 
BEQ 
MOV 
ADD 
MOV 
MOV 

CMPS 

BNE 

SOB 


R0,R5 

(RO),RO 

30S 

RO.Rl 

#F.DEV-1,R1 

«FD+F.DEV-1,R2 


;  Potential  link  address 
;  Next  file  block 
;  If  EQ,  not  found  -  allocate  one 
;  copy  file  block  pointer 
skip  don't  care  info 


....  . . .  point  to  prototype  FD 

*F.LEN-<F.DEV-1>,R3  ;  length  to  compare 


CR1)+,(R2)t 

10S 

R3,20$ 


Compare  a  byte 
If  NE,  no  match 
Countdown 


Already  parsed:  just  up  the  use  count 


INC 
BR 


F.CNT(RO) 
10S 


It  matched  -  increase  the  use  count 
And  point  template  to  it 


Allocate  a  new  file  descriptor  and  fill  it  in 


50$: 


35$: 


MOV 

CALL 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOVB 
SOB 


#F.LEN,R1 

ST1ALC 

R0,{R5) 

R0,R3 

(R3)  + 

#1,(R3)+ 

#F.LEN-<F.0EV-1> 

#FD+F.DEV-1,R2 

(R2)t,CR5)t 
R1,35i 


Get  length  of  needed  allocation 
Try  to  allocate  a  core  block 
Link  it  at  the  end 
Copy  pointer  to  new  FD 
Clear  link  address 
Initialize  use  count 
R1  ;  Maximum  parsed  file  size 
Point  to  parsed  file  in  proto  FD 

MOOOVE... 

...IT 


Calculate  addition  to  byte  allocated  pool 


MOVB 
ADD 
BIC 
ADD 


FDt-F.DEV-1,R1 
#6+5, R1 
#3, ,71 
R1, SBYTMN 


Get  length  of  parsed  device 
Add  fixed  overhead  and  round  up 
Round  it  to  the  next  1  byte  boundary 
Add  to  minimum  pool  byte  allocation 


Point  current  field  in  FILSDF  template  to  fi'e  block 
10$ 


i«:v 

ADD 
'  3V 


.TEMP,R5 

FILE,R5 

R0,(R5) 


;  Pent  to  current  template 
;  Point  to  current  file  id 
;  Point  pointer  to  FD 


TMPFIL  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Satu'-day  29-Jun-85 
Act'on  routines 


05:31 
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TMFFEA  - 
SETDVl  - 

157 
158 
159 
160 
161 
162 
163 
16A 
165 
166 
167 
168 
169 
170 
171 
172 
173 


PARSE  FEATURES  DEFiNIT  MACRO  V05.03b  Saturday  29-Jun-85  05:35  Page  7 
SETUP  1ST  CHARACTER  OF  DEVICE  NAME 


Tl» 


.SBTTi.  SETDVl  -  SETUP  1ST  CHARACTER  OF  DEVICE  NAME 

♦♦*  -  SETDVl  -  SETUP  1ST  CHARACTER  OF  DEVICE  NAME 

INPUT: 

.PCHAR  =  THE  1ST  CHARACTER  OF  THE  DEVICE  NAME 
TEMP  =   TEMPLATE  ADDRESS 

OUTPUT: 

C.DEV  =  1ST  CHARACTER  OF  THE  DEVICE  NAME 


000056 

000056  016700  177716 

000062  116760  GOOOOOG  000004 

000070  000207 


SETDVl: 


MOV     TEMP.RO        ;  GET  START  OF  TEMPLATE 

Move    . PCHAR, C.DEV(RO)  ;  STORE  ISf  CHARACTER  IN  TEMPLATE 

RETURN 


TMPFEA  -  PARSE  FEATURES  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85 
SETDV2  -  SETUP  2ND  CHARACTER  OF  DEVICE  NAME 


^5:' 


5  Page  8 


Tl 


TMPLLC  -  CrE  PARSE  LLC  PROCESS  MA 

155  OOOOOA 

136  OOOOOA 

137 

138  OOOOOA 

139  000004 

HO  OOOOOA 

HI 

H2  OOOOOA 

1A3  OOOOOA 

1AA  OOOOOA 

1A5 

1A6  OOOOOA 

1A7  OOOOOA 

1A8  OOOOOA 

1A9 

150  OOOOOA 

151  OOOOOA 

152 

153  OOOOOA 

15A  OOOOOA 

155  OOOOOA 

156 

157 

158 

159 

160  OOOOOA 

161  OOOOOA 

162 

163  OOOOOA 

16A  OOOOOA 

165 

166 

167 

168  OOOOOA 

169  OOOOOA 

170 

171  OOOOOA 

0  9 
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TRANS  SNUMBR,EXT,SETNLT 

TRANS  SLAMDA 

STATES  EXT 

TRANS  SEOS.SEXIT 

TRANS  <',> 

STATES 

TRANS  SNUMeR,CTM,SETEXT 

TRANS  SLAMDA 


STATES 
TRANS 
TRANS 

CT,vi 
SEOS,SEXIT 

STATES 
TRANS 

SNUMSR,,SETCTM 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 
SLAMDA, SEXIT 

•  SUB-EXPRESSION  TO  PARSE  "ZF 

STATES 
TRANS 

ZF 
"ZF" 

STATES 
TRANS 

'..SEXIT 

;  EXIT  STATE 

STATES 
TRANS 

EXIT 
SEOS, SEXIT 

PROCESS  EXTENSION 


COUNTER  TIMER 


STATES 


E  ?. 


TMPLLC  -  CFE  PARSE  LLC  PROCESS 
STMLLC  -  SETUP  LLC  TEMPLATE 


MACRO  V05.03b  Saturday  29-Jun-85  05:35  Page  6 


D  10 

TMPLLC 

CREATED  BY 

MACRO  ON  i')- 

•JUN-85  AT 

05:36 

PAGE  3 

MACRO  CROSS 

REFERENCE 

CREF   04.00 

MACRO  NAME 

REFERENCES 

DBGTPS 

#5-82 

#5-95 

#5-102 

#5-103 

#5-104 

#5-105 

#5-106 

#5-107 

#5-108 

#5-124 

#5-128 

#5-132 

#5-136 

#5-140 

#5-144 

#5-148 

#5-155 

ISTATS 

#A-66 

5-82 

LLCTPS 

#4-66 

4-68 

MSGDFS 

#4-66 

4-69 

MTRANS 

#5-82 

PRINT 
STATES 

#4-57 
#4-66 

5-84 

#5-87 

#5-90 

#5-93 

#5-97 

#5-100 

#5-110 

#5-113 

#5-116 

#5-119 

#5-122 

#5-126 

#5-130 

#5-134 

#5-138 

#5-142 

#5-S6 

#5-150 

#5-153 

#5-160 

#5-163 

#5-168 

#5-171 

TRANS 

#4-66 

#5-85 

#5-38 

#5-91 

#5-94 

#5-95 

#5-98 

#5-101 

#5-102 

#5-103 

#5-104 

#5-105 

#5-106 

#5-107 

#5-108 

#5-111 

#5-114 

#5-117 

#5-120 

#5-123 

#5-124 

#5-127 

#5-128 

#5-131 

#5-132 

#5-135 

#5-136 

#5-139 

#5-140 

#5-14' 

#5-144 

#5-147 

#5-148 

#5-151 

#5-154 

#5-155 

#5-161 

#5-164 

#5-169 

•♦FILE**ID**TMPLOG 


E  10 


D  11 

TMPNOl^  -  CFE  PARSE  NODE  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:37 
Table  .'^f  contents 


(■- 

150 

ITMNIOD 

-  SETUP  NODE  TEMPLATE 

1- 

181 

SETNAh 

-  SET  UP  NODE  NAME 

8- 

215 

SETNID 

-  SET  UP  NODE  ID 

TMPNOD  -  CFE  PARSE  NODi  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:37  Paa 


05:37 


TMPNOD     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:57 
MACRO  CROSS  REFERENCE 
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PAGE  ? 

CREf   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 

#5-99 

#5-146 

ISTATS 

#4-68 

5-99 

"ITRANS 

#5-99 

PRINT 
STATES 

#4-59 
#4-68 

5-102 

#5-105 

#5-108 

#5-111 

#5-114 

#5-117 

#5-129 

#5-152 

#5-155 

#5-158 

#5-141 

#5-144 

#5-148 

TRANS 

#4-68 

#5-105 

#5-106 

#5-109 

#5-112 

#5-115 

#5-118 

#5-150 

#5-153 

#5-156 

#5-159 

#5-142 

#5-145 

#5-146 

#5-120 
#5-121 


#5-125 
#5-124 


#5-126 
#5-127 


E  12 


•♦F1LE»»ID«*TMP0BJ 
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IMPOBJ  -  CFE  PARSE  OBJECT  DEfIN  MACRO  V05.03b  Saturday  29-Jun-85  05:37 
Symbol  table 
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CS.OBJ= 

C.CPY 

C.FLG 

C.LEN  = 

C.NAH 

C.STS  = 

C.TYP 

EXIT 

FINOBJ 

LA 


****** 
000012 
000005 
000013 
000006 
****** 

OOOOOA 
000050R 
00011 6R 
00007A 

000013 
000'i2A 
00005A 
000000 
000000 
Errors  detected: 


GX 


GX 


002 


OBJKTB 

OBJSTB 

OBJO 

O.LENX= 

RA 

SETCPY 

SETFLG 

SETNAM 

SETVFY 

SETYPE 


OOOOOORG 

OOOOOORG 

000024R 

******  GX 

000076 

000366R 

000322R 

000206R 

000264R 

000152R 


003 

TEMP 

OOOOOOR 

SExir  = 

000000 

$T1ALC= 

****** 

GX 

no? 

$ALPHA= 

000022 

SFAIL  = 

M7777 

$$$FLG= 

"[77777 

on? 

$ANY  = 

000020 

$LAMDA= 

000000 

$$$KEY= 

\77777 

$BLANK= 

000006 

$NUMBR= 

000002 

$$$STA= 

000000 

$BYTMN= 

*»**»*  GX 

$Q1NSN= 

»*»•**  GX 

.PNUMB= 

****** 

GX 

SCATS  = 

******  GX 

$RAD50= 

000016 

.PNUMH= 

** • » ** 

GX 

$D]GIT= 

000024 

$STRNG= 

000004 

.PSTCN= 

***  *♦ 

GX 

$DNUMB= 

OOOOH 

$SUBXP= 

000010 

.PSTPT= 

****** 

GX 

$E0S  = 

000012 

$TMLST= 

******  GX 

.TPARS= 

****** 

GX 

$ERR0R= 

******  GX 

STMCBJ 

000002RG 

ABS. 

SSTATE 

SKTAB 

SKSTR 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,A8S,0VR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


♦*♦  Assembler  statistics 

Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10406  Words  t  41  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-IIM/PLUS 

SYtTMPOBj!v2!ci32,134JTMPO8J/CR/-SP=SY:[1,l]RSXMCM.SML/ML,C130,110]NETLI8/ML,[132,10]TMP0BJ 


TMPOBJ 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:37 
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TMPPAR  - 
5ETALL  - 

277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
?97 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 


D  U 

CFE  PARSE  PARTITION  DE  MACRO  V05.03b  Saturday  29-Jun-85  05:38  Page  10 
SET  THE  BYTE-AREA  EXTENSION 


TMpi 
tTMi 


000272 
000272 
000276 
000304 
000310 
000312 
000320 
000322 
000326 
000330 


C00350 
000354 


016700 
016760 
005767 
001004 
026727 
101403 
062716 
000412 
016000 
000006 


010067 
000207 


.S8TTL 
♦♦•  -  SETALL 
INPUT; 


SETALL  -  SET  THE  BVTE-AREA  EXTENSION 
-  SET  THE  POOL  BYTE-AREA  EXTENSION 


.PNUMB  =  BYTE-AREA  EXTENSION 

.PNUMH  =  BYTE-AREA  EXTENSION  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


THE  BYTE-AREA  EXTENSION  IS  STORED  IN  CALL  OF  THE  TEMPLATE. 


♦»NOTE«»  IF  THE  MAXIMUM  VALUE  GOES  OVER  1024, 
WIlL  HAVE  TO  BECOME  DOUBLE  PRECISION. 


BLOCKS  SBYTMN  AND  $BYTXT 


177504 

OOOOOOG  000016 
0000006 

OOOOOOG  001777 

000002 

000016 


OOOOOOG 


SETALL: 


10$: 
20$: 


30$: 


MOV 

TEMP.RO 

MOV 

. PNUMB, C.ALL(RO) 

TST 

.PNUMH 

BNE 

10$ 

CMP 

. PNUMB, *1023. 

BLOS 

20$ 

ADD 

#2,(SP) 

BR 

30$ 

MOV 

C.ALL(RO),RO 

.REPT 

6 

ASI 

RO 

.ENDR 

MOV 

R0,$8YTXT 

RETURN 

GET  START  OF  TEMPLATE 

;  STORE  THE  BYTE-AREA  EXTENSION  IN  THE  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 

IS  THE  BYTE-AREA  EXTENSION  IN  RANGE  ? 
IF  LOS,  YES  -  OKAY 
ELSE,  REJECl  THE  TRANSITION 
JOIN  COMMON  CODE 
GET  ALLOCATION  VALUE  IN  32. WD  BLOCKS 

*64.  TO  GET  VALUE  IN  BYTES 

SAVE  IT  FOR  AUTO  EXTEND  LOGIC 


E  U 

TMPPAR  -  CFE   PARSE  PARTITION  DE  MACRO  V05.03b   Saturday  29-Jun-85  05:38     Page   11 
SFTFir,   -   '-.FTUP   THF    Fl  AGS   WORD 


TMP 
SET 


IMPPSN 
$TMPSN 


PARSE    PSN   IN  CEThB 
BUILD   PSN  TEMPLATE 


2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 

231  000226 

232  000226 

233  000232 
23-;  000234 

235  000236 

236  000242 

237  000246 

238  000252 

239  000256 

240  000260 

241  000264 

242  000270 
2'«3  000274 

244  000276 

245  000302 

246  000306 

247  000312 

248  000314 

249  000320 

250  000322 

251  000326 

252  000334 

253  000340 

254  000342 
255 

256  000344 

257  000354 

258  000360 
259 

260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 


005767 
001044 
010546 
012701 
004767 
010067 
010067 
005720 
010067 
012710 
005067 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


005367 
000207 


6  1S 
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.S8TTL   STMPSN  -  BUILD  PSN  TEMPLATE 

'•♦*  -  STMPSN  -  BUILD  PSN  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 
SPSIPT 


-  TPARS  REGISTERS 

-  POINTER  TO  PREVIOUS  PSNSDF  IF  ANV 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

$PSIPT  POjNTS  to  PSN  TEMPLATE 

THE  PSN  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


OOOOOOG 


000020 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


STMPSN: 


177776  OOOOOOG 
OOOOOOG        15S: 
20S: 


OOOOOOG 


1013 


TST 

BNE 

MOV 

MOV 

CALL 

MOV 

MOV 

TST 

MOV 

MOV 

CLR 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERRORS 

MOV 

INC 

MOV 

RETURN 

ERRORS 

DEC 

RETURN 


.S8TTL 
.SBTTL 
.S8TTL 
.SBTTL 
.SBTTL 


SPSJPT 

101S 

R5,-(SP) 

#C.LEN,R1 

STALOC 

RO,.TEMP 

RO.SPSIPT 

(R0)  + 

RO, .FLAGS 

#CS.PSN,(RO) 

.ERROR 

R1 

#PSN/<TB,R2 

#PSNSTB,R5 

.TPARS 

20S 

.  ERROR, RO 

15S 

RO 

#-2,SERR0R 

SERROR 

(SP)+,R5 


(CERRPSN 
SERROR 


TEST  FOR  PREVIOUS  PSNSDF 

IF  NE,  EXIT 

SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

SAVE  FOR  LATER  CHECKS 

POINT  TO  C.STS 

SAVE  POINTER  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  PSNSDF  TEMPLATE 

NO  DETAIL  STRING  YET 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

GET  DETAIL  STRING 

IF  EQ,  NO  ERROR 

PRINT  ACTION  ROUTINE  ERROR 

INDICATE  ERROR  AND  MESSAGE  ALREADY  PRINTED 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


DUPLICATE  PSNSDF 
INDICATE  SYNTAX  ERROR 


SETNAM  -  SET  PSN  NAME  IN  TEMPLATE 

SETPOR  -  SET  NUMBER  OF  PORTS  IN  TEMPLATE 

SETFLG  -  SET  FLAGS  IN  TEMPLATE 

SETTHI  -  SET  TRANSPORT  HIGH  ADDRESS  IN  TEMPLATE 

SETTLO  -  SET  TRANSPORT  LOU  ADDRESS  IN  TEMPLATE 


*♦  SETNAM  -  SET  PSN  NAME  IN  TEMPLATE 

**  SETPOR  -  SET  NUMBER  OF  PORTS  IN  TEMPLATE 

♦•  SETFLG  -  SET  FLAGS  IN  TEMPLATE 

•»  SETTHI  -  SET  TRANSPORT  HIGH  ADDRESS  IN  TEMPLATE 


E  15 

TMPPSN  -  PARSE   PSN   IN  CETAB  MACRO  V05.03b   Saturday   29-Jun-85   05:38 

SETTLO  -   SET    TRANSPORT   LOU  ADDRESS    IN    TEMPLATE 
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IMPPVC  -  PARSE  PERMANENT 
IPARS  STATE  TABLES 

206  00035^ 

207  00035; 
208 

209  00035A 

210  000354 

211  000354 

212  000354 

213  000354 
214 

215  000354 
215  000354 
217  000354 
218 

219  000354 

220  000554 

221  000354 

222  000354 

223  000354 

224  000354 
225 

226 
227 
228 

229  000354 

230  000354 

231  000354 

232  000354 

233  000354 

234  000354 

235  000354 

236  000354 

237  000354 

238  000354 
239 

240 

241 

242 

243  000354 

244 


VIRTUA  MACRO  VO5.03b  Saturday  29-Jun-85 


V:^ 
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TRAN$  $EOS,$EXIT 

TRANS  <',> 

STATES  ;  OPTIONAL  OWNER  PROCESS 

TRANS  SLAMDA,,SCLERR,ERROUN,. ERROR 
STATES 

TRANS  SRAD50,PVC4,SET0WN 

TRANS  SLAMDA 

STATES  PVC4 

TRANS  SEOS.SEXIT 

TRANS  <",> 


STATES 


TRANS  SLAMDA. ,SCLERR,ERRFLG, .lrAoR 
STATES 

TRANS  SNUM8R,,SETFLG 
STATES 

TRANS  SEOS.SEXIT 


SUBEXPRESSION  TP  SPECIAL  PVC  NAMES  FOR  DLM 


OPTIONAL  FLAGS  BYTE 


STATES  DLMPVC 

TRANS  "DLM".,SETDEV 
STATES 

TRANS   s'-> 
STATES 

TRANS  SDNUMB,,SETCON 
STATES 

TRANS  <'.> 
STATES 

TRANS  SDNUMB.SEXIT.SETTRB 


.-DEVICE  NAME 


.•CONTROLLER  NUMBER 


; TRIBUTARY   NUMBER 


FINAL    STATE 
STATES 


E  16 
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STMPVC  -  BUILD  PVC  TEMPLATE 


TMPDLC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:31 
SYMBOL  CROSS  REFERENCE 


E     1 

PAGE  1 

CHEF   04.00 


SYflSOL 

VALUE 

REFERENCES 

CS.DLC 

=    ****** 

GX 

6-170 

C.FLG 

000006 

#4-84 

*8-222 

C.LEN 

=  OOOOU 

#4-88 

6-167 

C.NAM 

OOOOOA 

#4-83 

*7-201 

C.NCT 

000013 

#4-87 

M1-285 

C.NLT 

000012 

#4-86 

»6-171 

C.PRI 

000010 

#4-85 

*9-243 

C.STS 

=   ****** 

GX 

*6-170 

DLCKTB 

000000 

RG 

#5-96 

6-173 

DLCSTB 

000000 

RG 

#5-96 

6-174 

FLAG 

000000 

R 

#4-74 

8-222 

SETFL6 

0001 2A 

R 

#8-220 

SETNAM 

000064 

R 

#7-196 

SETNCT 

000204 

R 

#11-283 

SETNLT 

000154 

R 

#10-263 

SETPRI 

000140 

R 

#9-241 

TEMP 

000002 

R 

#4-75 

.6-169 

SALPHA 

=  000022 

#5-96 

$ANY 

=  000020 

#5-96 

SBLANK 

=  000006 

#5-96 

$CAT5 

r:      ♦♦*♦** 

GX 

7-199 

SDIGIT 

=   000024 

#5-96 

SDNUMB 

=   000014 

#5-9b 

SEOS 

=  000012 

/'5-96 

SERROR 

-      **♦♦*♦ 

GX 

*6-177 

$EXIT 

=  000000 

#5-96 

$FAIL 

=   ^77777 

#5-96 

SGPRil 

~    ****** 

5-96 

SLAMDA 

=  000000 

#5-96 

SMXNCT 

-    ****** 

GX 

11-286 

SMXNLT 

~    ****** 

GX 

10-266 

SNUMRR 

=  000002 

#5-96 

$RAD50 

=  000016 

#5-96 

SRONLY 

=      ****** 

5-96 

5-96 

SSTRNG 

=   000004 

#5-9v 

SSUBXP 

=  000010 

#5-96 

STALOC 

=   ****** 

GX 

6-168 

STMDLC 

000004 

RG 

#6-165 

$S$FLG 

=   177777 

#5-96 

$$$KEY 

=   177777 

#5-96 

. PNUMB 

~      *♦■■*** 

GX 

9-243 

10-265 

.PSTCN 

=      ****** 

GX 

7-202 

.PSTPT 

=      ♦*♦*♦♦ 

GX 

7-197 

.TPARS 

-      ****** 

GX 

6-175 

*10-265 


7-200 


8-221 


9-242 


10-264 


11-284 


5-96 


10-266 


11-285 


11-286 


TMPDLC 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:31 


■lATDn    TDncc    DtrccDCMrc 


F     1 


n^nn 


E  2 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

CALLR 
DBGTPS 

#A-124 
#6-H5 
#6-189 

#6-152 

#6-155 

*6-159 

#6-162 

#6-166 

#6-169 

#6-173 

#6-185 

#6-188 

EPRINT 

#A-78 

ERRORS 

#4-67 

7-227 

ISTATS 

#4-124 

6-145 

MTRANS 

#6-145 

PRINT 
STATES 

#4-62 
#4-124 

6-150 

#6-153 

#6-157 

#6-160 

#6-164 

#6-167 

#6-171 

#6-174 

#6-177 

TRANS 

#6-183 
#4-124 

#6-186 
#6-151 

#6-193 
#6-152 

#6-154 

#6-155 

#6-158 

#6-159 

#6-161 

#6-162 

#6-165 

#6-166 

#6-168 

#6-169 

#6-172 

/'6-173 

#6-175 

#6-178 

#6-184 

#6-185 

#6-187 

#6-188 

#6-189 

SGTNMB 

#4-100 

SGTNUM 

#4-90 

8-257 

8-2'=9 

SGTR50 

#4-112 

8-255 

8-261 
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Table  of  contents 

4-  57  MACRO  DEFINITIONS 

5-  127  LOCAL  DATA 

6-  159  TRAPS  STATE  TABLES 

7-  245  STMDTE  -  BUILD  DTE  TEMPLATE 

8-  283  SETADR  -  SET  DTE  ADDRESS  IN  TEMPLATE 
8-  284  SETHSH  -  SET  HASH  TABLE  SIZE  IN  DTt 
8-  285  SETCT  -  SET  COUNTER  TIMER  VALUE 
8-  286  SETNET  -  SET  NETWORK  NAME  IN  DTE  TEMPLATE 
8-  319  SETSTA  -  SET  DTE  STATE  IN  TEMPLATE 
8-  333  SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 
8-  33A  SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 
8-  335  SETUNI  -  SET  UNIT  NUMBER  IN  LINE  ID 
8-  336  SETTRB  -  SET  TRIB  NUMBER  IN  LINE  ID 
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MACRO  CROSS  REFERENCE  CREf   04.00 


MACRO  NAME 

REFERENCES 

CALLS 

#4-124 

DBGTPS 

#6-164 

#6-197 

#6-200 

#6-216 

#6-228 

#6-229 

#6-234 

EPRINT 

#4-78 

ERRORS 

#4-67 

7-276 

ISTATS 

#4-124 

6-164 

MTRANS 

#6-164 

PRINT 
STATES 

#4-62 
#4-124 

6-169 

#6-171 

#6-173 

#6-177 

#6-179 

#6-183 

#6-185 

#6-189 

#6-191 

#6-195 

#6-198 

#6-202 

#6-204 

#6-206 

#6-212 

#6-214 

#6-220 

#6-222 

#6-224 

#6-226 

#6-230 

#6-232 

#6-235 

#6-240 

TRANS 

#4-124 

#6-170 

#6-172 

#6-174 

#6-178 

#6-180 

#6-184 

#6-186 

#6-190 

#6-192 

#6-196 

#6-197 

#6-199 

#6-200 

#6-203 

#6-205 

#6-207 

*6-2n 

#6-215 

#6-216 

#6-221 

#6-223 

#6-225 

#6-227 

#6-228 

#6-229 

#6-231 

#6-233 

#6-234 

#6-236 

SGTNHB 

#4-100 

SGTNUM 

#4-90 

8-310 

8-315 

8-350 

8-352 

8-354 

$GTR50 

#4-112 

8-298 

8-317 

8-348 

*'F1LE"1D«'TMPEVT 
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TMPEVT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:5« 
SYMBOL  CROSS  REFEREMCE 


SYMBOL  VALUE 


CS.EVT 

C.CLS 

C.EVT 

C.LEN 

C.SNK 

C.STS 

EVTKTB 

EVTSTB 

FF.ADD 

FF.CIR 

FF.CON 

FF.FIL 

FF.HST 

FF.LIN 

FF.MOD 

FF.MON 

FF.MSK 

FF.PRT 

FF.QUL 

FF.REM 

FINEVT 

F.ADD 

F.CEV 

F.CIR 

F.CLS 

F.EVT 

F.FLG 

F.LEN 

F.LENX 

F.LIN 

F.LNK 

F.MOD 

F.REM 

F.SEV 

LBRA 

MAXCLS 

RBRA 

SETCLS 

SETCON 

SETFIL 

SETMON 

SETMSK 

STRADD 

TEMP 

SALPHA 

$ANr 

SBLANK 

SBYTMN 

tDIGIT 

SDNUMB 

$EOS 

SERROR 


GX 


000004 
000006 
000020 
000016 

000000  RG 

000000  RG 

000020 

OOOOAO 

000001 

000002 

040000 

000010 

000100 

OOOOOA 

000077 

000200 

000370 

100000 

000122  R 

000016 

000030 

000024 

000002 

000004 

000014 

000016 


GX 


000020 

000000 

000022 

000026 

000004 

000074 

077700 

000076 

000166  R 

000310  R 

000324  R 

000316  R 

000240  R 

000002  R 

000000  R 

000022 

000020 

000006 

****** 

000024 
00C014 
000012 


GX 


GX 


GX 


REFERENCES 

7-163 
#5-92 
#5-93 
#5-96 
#5-94 
*7-163 
#6-107 
#6-107 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 

7-175 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 

7-177 
#4-72 
#4-72 
#4-72 
#4-72 
#4-72 
#5-80 
#5-82 
#5-81 
#9-221 
#11-283 
#11-291 
#11-287 
#10-249 
#5-84 
#5-83 
#6-107 
#6-107 
#6-107 
•7-177 
#6-107 
#6-107 
#6-107 
•7-173 


8-198 
8-200 
*7-164 
7-160 
8-202 
8-198 
7-169 
7-170 
4-72 
4-72 
11-283 
11-291 

4-72 
4-72 
11-287 

4-72 


#8-193 


9-223 


*9-228 
•7-162 
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CREF       04.00 


T^ 

A( 


8-200 
♦7-165 

8-202 


•9-225 
•7-166 

•11-294 


•7-167 


9-229 


10-253 


•9-229 
7-174 


10-254 
9-222 


10-256 
10-252 


•  10-257 
11-293 


L 
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Acf'on  routines 

11,7   000A76  000207  RETURN 

348 

3A9 


F  7 

TMPFIL  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05:34  Page  8 

Utility  subroutines        


TMPFEA 
SETDV2 


-  PARSE  FEATURES  DEFINIT  MACRO  V05.0?b  Saturday  29-Jun-85  05:35  Page  8 

-  SETUP  2ND  CHARACTER  OF  DEVICE  NAME 


Tf 

$1 


175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 


.SBTTL  SETDV2  -  SETUP  2ND  CHARACTER  OF  DEVICE  NAME 
'»*•  -  SETDV2  -  SETUP  2ND  CHARACTER  OF  DEVICE  NAME 
INPUT: 


OUTPUT 


'.PCHAR  =  THE  2ND  CHARACTER  OF  THE  DEVICE  NAME 
TEMP  =  TEMPLATE  ADDRESS 

C.DEVtl  =  2ND  CHARACTER  OF  THE  DEVICE  NAME 


000072 

000072  016700  177702 

000076  116760  OOOOOOG  000005 

0001 ui  000207 


SETDV2: 


MOV 

MOVB 

RETURN 


TEMP.RO        :  GET  START  OF  TEMPLATE 

. PCHAR, C.DEV+1(r6)  ;  STORE  2ND  CHARACTER  IN  TEMPLATE 
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TMPFEA 
SETWD1 
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TMPLLC  -  CFE  PARSE  LLC  PROCESS 
STMLLC  -  SETUP  LLC  TEMPLATE 


175 
174 
175 
176 
177 
178 
179 
180 
181 
182 
185 
184 
185 

186  000004 

187  000004  010546 

188  000006  005067 

189  000012  012701 

190  000016  004767 

191  000022  010067 

192  000026  012760 
195  000054  062700 

194  000040  005020 

195  000042  005020 

196  000044  005001 

197  000046  012702 

198  000052  012705 

199  000056  004767 

200  000062  105002 

201  000064  005267 

202  000070  012605 
205  000072  000207 
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.S8TTL 
»»*  -  STMLLC 
INPUT: 


STMLLC  -  SETUP  LLC  TEMPLATE 
-  SETUP  LLC  TEMPLATE 


R5-R5   -  TPARS  REGISTERS 


OUTPUT: 


STMLLC: 


177766 

000''?0 

OOOi-OOG 

177754 

0000006  OOOOOOG 

000014 


000000' 
000000' 
OOOOOOG 


OOOOOOG 


20$: 


C-8IT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  LLC  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


SAVE  R5 

CLEAR  THE  FLAGS  BYTE 
GET  LENGTH  OF  ALLOCATION 
TRY  TO  ALLOCATE  CORE  BLOC< 
,  STORE  TEMPLATE  ADDRESS 
STS(RO!  ;  INDICATE  THAT  THIS  IS  AN  LLCSDF  TEMPLATE 
f>OINT  TO  OPTIONAL  PARAMETERS 
CLEAR  OPTIONAL  PARAMETERS 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


MOV 

R5,-(SP) 

CLR 

FLAG 

MOV 

#CL.LEN,R1 

CALL 

STALOC 

MOV 

RO.TEMP 

MOV 

*CS.LLC,C. 

ADD 

#C.NLT,RO 

CLR 

(R0)  + 

CLR 

(RO)t 

CLR 

Rl 

MOV 

#LLCKTB,R2 

MOV 

*LLCSTB,R5 

CALL 

.TPARS 

BCC 

20S 

INC 

SERROR 

MOV 

(SP)+,R5 

RETURN 
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.TliLt   TMPNOD  -  CFE  PARSl 
.IDENT  /V05.00/ 


OEflHlUOU   IN  CETA8 


COPVRIGHT  (C)  1979,  1980,  19?\  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  I  I  CENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  *iADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  NODE  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

tDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-IIM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-HM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 
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TMPOBJ 

CREATED  BY 

MACRO  ON  2^ 

-JUN-85  AT 

05:37 

PAGE   1 

SYMBOL 

:R05S  REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

CS.OBJ 

-   ****** 

GX 

6-164 

7-198 

C.CPY 

000012 

»4-90 

*6-167 

•12-551 

C.FLG 

000005 

#4-88 

•10-279 

•11-304 

C.LEN 

=  000013 

#4-92 

6-161 

C.NAM 

000006 

#4-89 

•6-165 

•6-166 

•9-250 

C.STS 

r   ****** 

GX 

.6-164 

7-198 

C.TYP 

OOOOOA 

#4-87 

7-200 

7-200 

•8-221 

FINOBJ 

000116 

R 

6-175 

#7-193 

LA 

=  000074 

#4-77 

OBJKTB 

000000 

RG 

#5-101 

6-169 

OBJSTB 

000000 

RG 

#5-101 

6-170 

O.LENX 

=  ****** 

GX 

6-177 

RA 

=  000076 

#4-78 

SETCPY 

000566 

R 

#12-329 

SETFLG 

000322 

R 

#11-302 

SETN'AM 

000206 

R 

#9-245 

SETVFY 

000264 

R 

#10-277 

SETYPE 

000152 

R 

#8-219 

TEMP 

000000 

R 

#4-79 

•6-163 

6-174 

8-220 

SALPHA 

=  000022 

#5-101 

$ANY 

=  OOOO'O 

#5-101 

SBLANK 

=  000006 

#5-101 

SBVTMN 

r  ****** 

GX 

*6-1 77 

SCATS 

-  ****** 

GX 

9-248 

9-252 

SDIGIT 

=  000024 

#5-101 

tDNUMB 

=  000014 

#5-101 

$EDS 

=  000012 

#5-101 

SERROR 

-   ****** 

GX 

•6-173 

SEXIT 

=  000000 

#5-101 

$FAIL 

=   177777 

#5-101 

SGPRM 

=   ****** 

5-101 

SLAMDA 

=  000000 

#5-101 

SNUMBR 

=  000002 

#5-101 

SQINSN 

r  ****** 

GX 

6-176 

SRADSO 

=  000016 

#5-101 

SRONLY 

=   ****** 

5-101 

5-101 

5-101 

SSTRNG 

=  000004 

#5-101 

SSUBXP 

=  000010 

#5-101 

STMLST 

-  ****** 

GX 

7-194 

$TMOBJ 

000002 

RG 

#6-159 

STIALC 

-   ****** 

GX 

6-162 

$$$FLG 

=  177777 

#5-101 

$$$KEV 

=   177777 

#5-101 

.PNUMB 

-   ****** 

GX 

8-221 

8-224 

10-279 

10-282 

.PfJUMH 

r  ****** 

GX 

8-222 

10-280 

11-305 

12-33-' 

..  STCN 

-  ****** 

GX 

9-255 

.PSTPT 

=  ****** 

GX 

9-246 

.TPAR5 

=  ****** 

GX 

6-171 

r9-254 


9-249 


9-253 


10-278 


11-303 


12-350 


11-504 


11-307 


11-309 


12-551 


12-334 
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TMPPAR  - 
SPTFLG  - 

309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
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05:38 
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TMP 
SET 


.SBTTL     SETFLG  -   SETUP   THE   FLAGS  WORD 
•»♦   -   SETFLG  -   SETUP   THE    FLAGS  WORD 
INPUT: 


FLAG  -   THE    FLAGS  WORD 

TcMP  =  START  ADDRESS  OF    THE   TEMPLATE 


OUTPUT: 


000356 

000356  016700     177420 

000362  056760     177412     OOOOOOG 

000370  000207 


000001 


SETFLG: 


MOV  TEMP,RO 

BIS  FLAG,C.STS(RO) 

RETURN 


.END 


GET    START  Of    TEMPLATE 
STORE    THE   FLAGS   WORD 
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Symbol  table  


TMF 
Syn 


TMPPSN  - 
SETTLO  - 

2?1 
272 
273 
27A 
27S 
276 
277 
278 
279 
280 
281 
282 
283 
28A 
285 
236 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
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SET  TRANSPORT  LOW  ADDRESS  IN  TEMPLATE 


^5^^ 


000362 

000576  016700  OOOOOOG 

000'i02  005200 

OOO'iOA  006300 

O0OA06  062700  000003 

000^12  042700  000003 

000416  060067  OOOOOOG 
000422 

000442 

000470 

000516 

000001 


»♦  SETTLO 

INPUT; 

OUTPUT: 

SETNAM:  $GTR50 

SETPOR:  MOV 
INC 
ASL 
ADD 
BIC 
ADD 
SGTNUM 


SET  TRANSPORT  LOW  ADDRESS  IN  TEMPLATE 
.TPARS  CONVENTIONS 
VALUE  SET  IN  TEMPLATE 


SETfLG 
SETTHI 
SETTLO 


SGTNUM 
SGTNUM 
SGTNUM 
.END 


#C.NAM,#2 

.PNUMB.RO 

RO 

RO 

#3,R0 

#3,R0 

R0,S8YTMN 

#C.POR,#1,*256. 

#C.FLG,,,*CS.FLG 

#C.THI,,*9999.,#CS.THI 

#C.TL0,,*9999.,ACS.TL0 


SIZE  IF  PORT  TABLE 
OVERHEAD  OF  ONE 
CONVERT  TO  BYTE  VALUE 
ON  4  BYTE  BOUNDARY 

UPDATE  MINIMUM  ALLOCATION 


F  15 


TMPPSN  -  PARSE  PSN  IN  CETAB 
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2^6 
lU 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 

261  000354 

262  000354 

263  000356 

264  000362 

265  000366 

266  000372 

267  000374 

268  000400 

269  000404 

270  000410 

271  000414 

272  000420 

273  000426 

274  000430 

275  000434 

276  000440 

277  000444 

278  000446 

279  000452 

280  000454 

281  000462 

282  000466 

283  000474 

284  000476 

285  000504 

286  000510 

287  000512 

288  000516 

289  000524 

290  000530 

291  000532 
292 

293 
294 
295 
296 
297 
298 
299 
300 
301 
302 


.SoTTL  STMPVC  -  BUILD  PVC  TEMPLATE 

*••  -  STMPVC  -  BUILD  PVC  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BV  TPARS. 
INPUT; 


R3-R5 


TPARS  REGISTERS 


OUTPUT; 


C-8IT  =  SUCCESS/FAILURE 

THE  PVC  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
005067 
005067 
005067 
062767 
005001 
012702 
012705 
004767 
103417 
005767 
001426 
062767 
016701 
026127 
001415 
012767 
016700 
001405 

012767 
005267 
012605 
000207 


STMPVC: 


OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

0000006 

177734 

177732 

OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

177700 

OOOOOOG  OOOOOOG 
OOOOOOG 
OOOOOOG  015355 

000000'  OOOOOOG 
OOOOOOG       10$: 


177776  OOOOOOG 
OOOOOOG        15$; 
20$: 


MOV 

MOV 

CALL 

MOV 

TST 

CLR 

CLR 

CLR 

ADD 

CLR 

MOV 

MOV 

CALL 

BCS 

TST 

BEQ 

ADD 

MOV 

CMF 

BEQ 

MOV 

MOV 

BEQ 

ERRORS 

MOV 

INC 

MOV 

RETURN 

.SBTTL 
.S8TTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 


R5.-(SP) 
#P$VLEN,R1 
STALOC 
RO,.TEMP 

(r6)  + 

RO, .FLAGS 

#CS.PVC,(RO) 

.ERROR 

STA 

DLM 

#X$LENX,SBYTMN 

R1 

#PVCKTB,R2 

#PVCSTB,R5 

.TPARS 

10$ 

DLM 

20S 

#CSLENX,SBYTMN 

.TEMP.RI 

PSV0UN(R1),#*RDLM 

20$ 

*ERRNAM,. ERROR 

. ERROR, RO 

15$ 

RO 

#-',SERROR 

SEHROR 

(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  PVCSDF  TEMPLATE 

NO  ERROR  DETAIL  YET 

ASSUME  STATE=OFF 

ASSUME  NORMAL  PVC  NAME 

UPDATE  MINIMUM  BYTE  ALLOCATION 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

IF  cs,  erkor  in  parse 

WAS  IT  A  SPECIAL  DLM  NAME? 

IF  EQ,  NO  -  JUST  RETURN 

ADD  NAME  BLOCK  LENGTH  TO  MINIMUM 

POINT  TO  TEMPLATE 

;  ONLY  VALID  IF  OWNER=DLM 

BR  IF  VALID  OWNER 

ELSE  ILLEGAL  NAME 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


SETNAM  -  SET  PVC  NAME 
SETLCN  -  SET  LOGICAL  CHANNEL  NUMBER 
SEUT  -  SET  COUNTER  TIMER 
SETPSZ  -  SET  MAXIMUM  BLOCK  SIZE 
SETWSZ  -  SET  WINDOW  SIZE 
SETOWN  -  SET  OWNER  PROCESS 
SETFLG  -  SET  FLAGS  BYTE 
SETSTA  -  SET  PVC  STATE 


•»  SETNAM  -  SET  PVC  NAME 
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4- 

57 

MACRO  DEFINIT.'CivC 

s- 

127 

LOCAL  DATA 

(S- 

156 

TPARS  STATE  TABLES 

7- 

20A 

STMDST  -  BUILD  DST  TEMPLATE 

7- 

24? 

5ETTYP  -  SET  DESINATION  TYPE 

7- 

24^ 

SETMAM  -  SET  DST  NAME 

7- 

2iM 

SEIPRI  -  SET  PRIORITY 

7- 

245 

SETOBJ  -  SET  OBJECT  NUMBER 

;- 

246 

SETTSK  -  SET  TASK  MAME 

_J 


TMPDST  -  PARSE  DESTINATION  DESC  MACRO  V05.03b  Saturday  29-Jun-85 


35:33 


Page  3 


f  4 


TMPDTE  -  PA'SE  LOCAL  DTE  DESCRl  MACRO  V05.03b  Saturday  29-Jun-85  05:33  Page  3 


1 
2 
3 

i, 

5 

6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  TMPDTE  -  PARSE  LOCAL  DTE  DESCRIPTOR 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AN1  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  LOCAL  DTE  DESCRIPTOR 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-NOV-83 

DECNET-11M  V4.0 
DECNET-HM-PLUS   V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  V4.2 
DECnet-IIM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CREF       0^.00 


Tr 

U1 


SYMBOL 

VALUE 

REFERENCES 

SEXIT 

- 

000000 

#6-107 

$FAIL 

= 

177777 

#6-107 

SGPRM 

- 

****** 

6-107 

SLAMDA 

~ 

000000 

#6-107 

SNUMBR 

r 

000002 

#6-107 

SQINSN 

r 

****** 

GX 

7-176 

$RAD50 

3 

000016 

#6-107 

SRONL  Y 

= 

****** 

6-107 

6-107 

SSTRNG 

3 

00000'!. 

#6-107 

SSUBXP 

^ 

000010 

#6-107 

STMEVT 

000004 

RG 

#7-158 

STMLST 

- 

****** 

GX 

8-19A 

STIALC 

r 

****** 

GX 

7-161 

t$$FLG 

;: 

177777 

#6-107 

$$$KEY 

~ 

177777 

#6-107 

.PNUMB 

- 

****** 

GX 

9-223 

9-225 

.PNUMH 

= 

****** 

GX 

9-226 

10-250 

.TPARS 

= 

****** 

GX 

7-171 

6-107 


10-256 


TMPEVT 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363  000500 

36A  000500 

365  000504 

366  000510 

367  0005U 

368  000520 

369  000522 

370  000524 

371  000526 

372  000532 

373  000534 

374  000536 
375 

376 


.SBTTL  Utility  subroutines 
**  MOVSTR  -  moue  string 
Inputs: 


Output: 


.PSrCN  =  Length 

.PSTPT  =  string  address 

R2     =  target 

counted  string  moued  to  (R2). 

RO,  R1,  and  R2  are  clobbered. 


016700  OOOOOOG 

016701  OOOOOOG 
066701  OOOOOOG 
124127  000054 
001001 

005300 

110022 

016701  OOOOOOG 

112122 

077002 

000207 

000001 


MOVSTR: 


5$: 
10$: 


MOV 

MOV 

ADD 

CMPB 

BNE 

DEC 

MOVB 

MOV 

MOVB 

SOB 

RETURM 

.END 


.PSTCN.RO 

. PSTPT, Rl 

.PSTCN,R1 

-(R1),#', 

5$ 

RO 

R0,(R2)+ 

. PSTPT, Rl 

(R1)+,(R2)t 

RO.IOi 


Get  string  length 

Get  string  address 

Point  past  Last  character 

Is  last  char  a  comma? 

If  not,   skip 

Else,  don't   include  comma 

Stuff  Length 

reclaim  pointer  to  start 

MOVE... 

...IT 
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Tf 
Sf 


193 
19A 
195 
196 
197 
198 
199 
200 

?o- 

?02 
203 
204 
205 
206 
207 
208 

209  000106 

210  00010b 

211  000112 

212  000120 

213  000126 
2U  000132 

215  00013A 

216  OOOKO 


.SBTTL  SETUD1  -  SETUP  INITIAL  FEATURES  WORD 

'«♦*  -  SETWD1  -  SETUP  INITIAL  FEATURES  WORD 

THIS  ACTION  ROUTINE  SETS  UP  THE  INITIAL  FEATURES  WORD, 

INPUT: 

.PNUMB  =  THE  INITIAL  FEATURES  WORD 

.PNUMH  =  THE  INITIAL  FEATURES  WORD  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C.WD1,  SCNFIG  =  THE  INITIAL  FEATURES  WORD 


016700 
016760 
016767 
005767 
OOU02 
062716 
000207 


177666 

OOOOOOG  000006 
OOOOOOG  OOOOOOG 
OOOOOOG 

000002 


SETWD1: 


10$: 


MOV 

TEMP.RO 

MOV 

. PNUMB, C.WDURO) 

MOV 

.PNUMB, SCNFIG 

TST 

.PNUMH 

BEQ 

10$ 

ADD 

#2,(SP) 

RETURN 


GET  START  ADDRESS  OF  TEMPLATE 
;  STORE  THE  INITIAL  FEATURES  WORD 
STORE  IT  GLOBALLY,  TOO 
IS  THIS  A  WORD  VALUE  ? 
IF  EQ,  YES  ..  OKAY 
ELSE,  REJECT  THE  TRANSITION 


TMPFEA  -  PARSE  FEATURES  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85 
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205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 

220  00007A 

221  000074 

222  000100 

223  000102 

224  000106 

225  000112 

226  000116 

227  000124 

228  000126 

229  000132 


.SBTTL  SETNAH  -  SET  UP  PROCESS  NAME 

***  -  SETNAM  -  SETUP  PROCESS  NAME 

THIS  ACTION  ROUTINE  SETS  UP  THE  PROCESS  NAME. 

INPUT: 

.PSTPT  =  START  ADDRESS  Of  THE  PROCESS  NAME  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  PROCESS  NAME 

OUTPUT: 

C.NAM  =  RAD50  PROCESS  NAME 


SETNAM: 


016700  OOOOOOG 

010701 

004767  OOOOOOG 

016700  177670 

010160  000004 

022767  000003  OOOOOOG 

103002 

062716  000002 

000207  10$: 


MOV 

MOV 

CALL 

MOV 

MOV 

CMP 

BHIS 

ADD 

RETURN 


.PSTPT.RO 

PC,R1 

SCATS 

TEMP.RO 

R1,C.NAM(R0) 

«3, .PSTCN 

lOi 

#2,(SP) 


GET  ADDRESS  OF  ASCII  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PROCESS  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

STORE  PROCESS  NAME  IN  TEMPLATE 

IS  THE  PROCESS  NAME  TOO  BIG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 


TMPLLC  -  CFE  PARSE  LLC  PROCESS 
SETFLG  -  SETUP  THE  FLAGS  WORD 
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Table  of  contents 

4-  55    MACRO  DEFINITIONS 

5-  72    LOCAL  DATA 

6-  93    STATE  TABLE 

7-  113    STMLOG  -  SETUP  LOGGING  TEMPLATE 

8-  K1    SETSTA  -  SET  UP  LOGGING  STATE 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

Ik 

75 

76  000000 

77 

78 

79 

80  000000 


31 

82  000000 

83  000002 

84  OOOOOA 

85  000006 

86  000010 

87  000012 

88  000052 

89  000054 
90 

91  000002 
92 


000074 
000076 


000000 


000056 


■  **** 

;  LOCAL 

MACROS 

•  **** 

.MACRO 

PRINT   TEXT 

MOV 

TEXT.RO 

CALL 

SPRINT 

.ENDM 

PRINT 

;  *  ♦  *  * 

;  MACRO 

CALLS 

;  *  *  *  * 

.MCALL 

ISTATS, STATE 

•  *♦** 

;  LOCAL 

DATA 

;  *  *  *  * 

LA  =  •< 

RA  =  ■> 

TEMP: 

.BLKW 

1 

;•  DEFINE  NODE 

EMPLATE 

• 

.ASECT 

.=0 

.BLKW 

.BLKW 

C.NAM: 

.BLKW 
.BLKW 

C.NID: 

.BLKW 

.BLKB 

32. 

C.NUM: 

.BLKW 

CMOS: 

.BLKW 

C.LEN=. 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  BRACKET 
ADDRESS  OF  NODE  TEMPLATE 


C.LNK 
C.STS 
NODE  NAME  (RAD50) 

NODE  id" 
LENGTH  AND  STRING 
NODE  ADDRESS 
HOST  NODE  ADDRESS 


.PSECT 


6  11 


TMPNOD  -  CFE  PARSE  NODE  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:37  Page  5 


MPOBJ  - 

CFE 

PARSE  OBJ 

able  of 

contents 

A- 

■iS 

MACRO 

6- 

Uft 

STMOBJ 

7- 

1K1 

FINOBJ 

8- 

A)'. 

SETYPE 

9- 

^^4 

SETNAM 

10- 

,^60 

SETVFY 

11- 

^Hi' 

SETFLG 

12- 

i\i, 

SETCPy 

JECT  DEFIN  MACRO  V05.0?b  Saturday  ?9-Jun-85  05 


SETUP  OGJECT  TEMPIATE 

FIND  NEXT  OBJECT  IN  SORTED  LIST 

SETUP  OBJECT  TYPE 

SET  UP  OBJECT  NAME 

SETUP  OBJECT  VERIFICATION  LEVEL 

SETUP  THE  FLAGS  BYTE 

SETUP  THE  MAXIMUM  NUMBER  OF  COPIES  ALLOWED 


'--% 


M/ 
M/ 
DE 

i; 

M' 
PF 
S" 


G  12 
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TMPOdJ  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:37  PAGE   2 

MACRO   CROSS  REFERENCE  CRfF       04.00 


#5-134 


MACRO  NAME 

REFERENCES 

DBGTP$ 

#5-101 

#5-112 

ISTATS 

#4-71 

5-101 

MTRANt 

#5-101 

PRINT 

#4-6? 

STATES 

#4-71 

5-104 

#5-132 

#5-156 

TRANS 

#4-71 

#5-105 
#5-133 

#5-130 

#5-107    #5-110    #5-114    #5-117    #5-120    #5-123    #5-126    #5-129 

#5-108    #5-111     #5-112    #5-115    #5-118    #5-121     #5-124    #5-127 
#5-134    #5-137    #5-142 
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**FILE**10»*THPPAR 


F  U 

rWPPAR  -  [FE  PARSE  PARTITION  DE  MACRO  V05.03b  Saturday  29-Jun-85  05:?8 
Symbol  table 
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ALL 

000076R 

002 

FLAG 

OOOOOOR 

ALLC 

000066R 

002 

NEXT 

00001  OR 

CS.PAR  = 

»•»*••  GX 

PARKTS 

OOOOOORG 

CS.TOP= 

•««•••  GX 

PARSTB 

OOOOOORG 

CALL 

000016 

SBCHK 

000104R 

C.EXT 

OOOOU 

SETALL 

000272R 

C.LEN  = 

000020 

SETEXT 

000244R 

C.NAMO 

000004 

SETFLG 

000356R 

C.NAM1 

000010 

SETNMO 

000104R 

f.STS  = 

•**«**  GX 

SETNM1 

000164R 

EXIT 

0001 16R 

002 

.  ABS. 

000020 

000 

(RU,I, 

GBL.ABS.OVR) 

000372 

001 

(RW,I, 

.CL,REL,C0N) 

SSTATE 

000124 

002 

(RW,D, 

.CL.REL.CON) 

$KTAB 

000006 

003 

(RW.O, 

.CL.REL.CON) 

$».STR 

000020 

004 

(RW,D, 

.CL.REL.CON) 

Errors 

detected: 

0 

TEMP 

000002R 

$EOS  = 

000012 

STMPAR 

000004RG 

002 

TOP 

000C34R 

002 

$ERROR= 

****** 

GX 

$$$FLG= 

\77777 

no3 

UMRS 

000046R 

002 

SEXIT  = 

000000 

$$$KEY= 

000002 

00? 

$ALPHA= 

000022 
000020 

$FAIL  = 

■\17777 

$$$STA= 

000000 

00? 

$ANY  = 

$LAMDA= 

000000 

$$$TMP= 

00001 1R 

$8LANK= 

000006 

$NUMBR= 

000002 

. PNUM8= 

******  GX 

$BVTXT=: 

**•»»*  GX 

$RAD50= 

000016 

.PNUMH= 

******  GX 

SCATS  3 

*<[<,«•«  GX 

$STRNG= 

000004 

.PSTCN= 

******  GX 

$D1GIT= 

000024 

$SUBXP= 

000010 

.PSTPT= 

******  GX 

$DNUMB= 

000014 

$rALOC= 

****** 

GX 

.TPARS= 

**♦•♦*  GX 

004 


»»»   Assembler   statistics 


Work      file     reads:  0 

Work      file   writes:  0 

Size  of   work   file:  10422  Words      (   41   Pages) 

Size  of   core  pool:  14440  Words      (    55   Pages) 

Operating      system:  RSX-11M/PLUS 


SY?TMPPAr!v2![132,1343TMPPAR/CR/-SP=SY:C1,1]RSXMCM.SMI/Ml,[130,110]NETLI8/ML,[132,10]TMPPAR 


TMPPAR 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:38     PAGE  1 
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IMPPSN  -  PARSE  PSN 
Symbol  table 
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IN  CETAB    MACRO  V05.03b  Saturday  29-Jun-85  05:58  Page  1-2 


CS.FLG= 

•»»♦••  GX 

ERRPOR  000100R 

SETPOR 

000376R 

CS.PSN= 

•••♦••  GX 

ERRPSN  OOOOOOR 

SETTHI 

OOIAZOR 

CS.iH!= 

••••««  GX 

ERRTRN  0001 56R 

SETTLO 

O00M6R 

CS.TLO= 

•*•««•  GX 

EXSSEV:  OOOOOA 

$ALPHA= 

000022 

C.FLG 

000012 

PSNKTB  OOOOOORG 

OOi 

$ANY  = 

000020 

C.LEN  = 

000020 

PSNSTB  OOOOOORG 

002 

$8LANK= 

000006 

C.NAM 

OOOOOA 

PSN2    000036R 

002 

$BYTMN= 

♦**»*•  GX 

C.POR 

000010 

PSN3    000064R 

002 

$CfERR= 

»**»»«  GX 

C.THI 

000016 

PSN',    0001 12R 

0U2 

$CLERR= 

•♦»»*»  GX 

C.TLO 

OOOOU 

PSNb    OOOHOR 

002 

$DIGIT= 

00002^ 

ERRFLG 

0001 27R 

SETFLG  0004A2R 

$DNUM8= 

OOOOU 

ERRNAM 

0000A2R 

SETNAM  000362R 

.  ABS. 

000020 
0005'.^ 

000 
001 

(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 

SSTATE 

OOOU^ 

002 

(RW,D,LCL,REL,C0N) 

$KTAB 

000000 

0()< 

(RW,D,LCL,REL,C0N) 

$K5TR 

000000 

0(W 

(RW,D,LCL,REL,CDN) 

Errors 

detected: 

0 

»♦•  Ass 

embler  statistics 

Work   f 

ile  reads 

0 

Work   f 

ile  writes 

0 

$EOS  =  000012 

$ERROR=  **♦»*•  GX 

$EXIT  =  000000 

$FAiL  =  \nm 

$GTNUM=  *•*»•*  GX 

$GTR50=  •*•♦**  GX 

$LAMDA=  000000 

$NUMBR=  00000? 

$PSIPT=  *»**•*  GX 

$RAD50=  000016 

$STRNG=  000004 


$SUBXP= 

100010 

$TAL0C= 

..■♦**** 

GX 

STMPSN 

0002261 

0 

$$$FLG= 

Mim 

$$$KEY= 

177777 

$$$STA=: 

000000 

.ERROR= 

****** 

GX 

.FLAGS= 

****** 

GX 

.PNUMB= 

****** 

GX 

.TEMP  = 

****** 

GX 

.TPARS= 

****** 

GX 

Size  of  work  file:  11032  Words  (  A4  Pages) 
Size  of  core  pool:  K^AO  Words  (  55  Pages) 
Operating  system;  RSX-11M/PLUS 

S¥fTMPPSN!v2;[132,15A]TMPPSN/CR/-SP=Sy:[1,1]RSXMCM.SML/ML,L130,110]NETLlB/ML,t132,10]TMPPSN 


TMPPSN 
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TDcr    n/.  (\r\ 


TMPPVC  - 
SET5TA  - 

305 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3H 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32*; 
325 
326 
327 
328 
329 
330 
331 
332 
333 
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PARSE  PERMANFM  VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05:59  Page  7-1 
SE1  PVC  STATE 

••  SETLCN  -  SET  LOGICAL  CHANNEL  NUMBER 

•♦  SETCT  -  SET  COUNTER  TIMER 

*«  SETPSZ  -  SET  MAXIMUM  BLOCK  SIZE 

•»  SETWSZ  -  SET  WINDOW  SIZE 

••  SETOWN  -  SET  OWNER  PROCESS 

•*  SETFLG  -  SET  FLAGS  BYTE 

»»  SETSTA  -  SET  PVC  STATE 


000534 

000550 

000570 

000610 
0006U 
000622 

000624 

000652 

000700 

0007c2 


016702 
116762 
000207 


OOOOOOG 

177530  OOOOOOG 


INPUTS 
OUTPUT 

SETNAM: 
SETLCN: 
SETCT: 
SETSTA: 

SETPSZ: 
SETWSZ: 
SETOWN: 
SETFLG: 


.TPARS  VARIABLES. 
VALUE  SET  IN  TEMPLATE. 

$GTR50  #P$VNAM,#2 
SGTNUM  #P$VLCN,#1,*4095. 
SGTNUM  #P$VCT 


MOV 

M0V8 

RETURN 

SGTNUM 

SGTNUM 

SGTR50 

SGTNMB 


.TEMP,R2 
5TA,PSVSTA(R2) 


POINT  TO  TEMPLATE 
STUFF  SIATE 


#PSVPSZ,#16.,#1024.,*PVSPSZ 
#P$VWSZ,#1,#127.,*PVSWSZ 
#PSV0WN,#1.,#PV$0WN 
#PSVFLG,,,#CS.FLG 
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SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID  
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TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.03b  Saturday  29-Jun-85  05:32 
Table  of  contents 


ii- 

57 

MACRO  DEFINITIONS 

s- 

126 

LOCAL  DATA 

iS- 

138 

TPARS  STATE  TABLES 

7- 

186 

STMOSC  -  BUILD  DSC  TEMPLATE 

R- 

228 

SETMSK  -  SET  CALL  MASK 

8- 

229 

SETVAL  -  SET  CALL  VALUE 
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u- 


1 

2 
3 

4 
5 
6 
7 
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9 
10 
11 
12 
13 
14 
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16 
17 
18 
19 
20 
21 
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24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
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40 
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44 
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.TITLE  TMPDST  -  PARSE  DESTINATION  DESCRIPTOR 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  8Y 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOi-TWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  DESTINATION  DESCRIPTOR 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  C7-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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TMPDTE  -  PARSE  LOCAL 
MACRO  DEFINITIONS 

57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
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DTE  DESCRI  MACRO  V05.03b  Saturday  29-Jun-85  05:33  Page  4 

.S8TTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIr  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

;  PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 


PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SGTNUM  OFFS,LO=<#0>,HI=<#177777>.OPT 

MOV  0FFS,R2 

MOV  LO.RO 

MOV  HI.RI 

.IF  NB  <OPT> 

BIS  OPT. a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 

.MACRO  SGTNMB  OFFS,L0=<#0>.HI^<#377>.0PT 

MOV  0FFS,R2 

MOV  LO.RO 

MOV  HI.RI 

.IF  NB  <OPT> 

BIS  OPT. a. FLAGS 

.ENDC 

JMP  SGTNMB 

.ENDM 

GET  RAD50  WITH  FIELD  SIZE  CHECKING 

.MACRO  SGTR50  OFFS.LEN.OPT 

MOV  0FFS.R2 
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TMPEVT  -  CFE   PARSE   EVENT   DEFINl   MACRO  V05.03b  Saturday  29-Jun-85 

Table  ot  contents 

A-        55  MACRO   DEFINITIONS 

5-  75    LOCAL  DATA 

6-  100    STATE  TABLE 

7-  U5    STMEVT  -  SETUP  EVENT  TEMPLATE 

8-  181    FINEVT  -  FIND  NEXT  EVENT  IN  SORTED  LIST 

9-  206    SETCLS  -  SETUP  EVENT  CLASS 

10-  23A    SETMSK  -  SET  UP  EVENT  MASKS 

11-  262  SETMON  -  SETUP  MONITOR  LOGGING  SINK  TYPE 
11-  263  SETCON  -  SETUP  CONSOLE  LOGGING  SINK  TVPE 
11-  26^    SETFIL  -  SETUP  FILE  LOGGING  SINK  TVPE 


05:3'; 
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TNPEVT     CREATED  BY  MACRO  ON  29-JUM-85  AT  05:54 
MACRO  CROSS  REFERENCE 


G  6 

PAGE  3 

CREF   OA.OO 


MACRO  NAME 

REFERENCES 

OBGTPS 

#6-107 

#6-127 

#6-128 

#6-141 

FLTDFS 

#A-70 

4-72 

ISTATS 

#4-70 

6-107 

MTRAN$ 

#6-107 

PRINT 
STATES 

#4-61 

6-110 

#6-113 

#6-116 

#6-119 

#6-122 

#6-125 

#6-130 

#6-136 

#6-159 

TRANS 

#6-145 
#4-70 
#6--!  57 

#6-111 
#6-140 

#6-114 
#6-141 

#6-117 

#6-120 

#6-123 

#6-126 

#6-127 

#6-128 

#6-151 

•  *FILE*MD«*TMPFIL 
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TMPFIL  -  CFE  PARSE 

REMOTE  CHARA  MACRO  V05.03b  Saturday 

29-Jun-85  §5: 

Symbol  table 

CKFSP   00025^R 

F$DIA   000012 

MOVSTR 

000500R 

CKUIC   000310R 

FSDUM   000014 

MXFSP  = 

000036 

CLEFIL  000232R 

F$LD    000010 

REJ 

000274R 

COMMA  =  000054 

FSLEN  =  000016 

STFIL 

000336R 

CS.FIL=  ******  GX 

FSSEC   000004 

STRING 

000166R 

ERRFSP  000045R 

F$TER   000006 

S10 

000026R 

ERRUIC  000077R 

F.CNT   000002 

S20 

000054R 

EX$SEV=  OOOOOA 

F.DEV   000005 

S30 

000102R 

FD     000002R 

F.LEN  =  000043 

S40 

000130R 

FILE    OOOOOOR 

F.LNK   000000 

$ALPHA= 

000022 

FILKTB  OOOOOORG 

003 

GETUIC  000214R 

002 

$ANY  = 

000020 

FILS^'C  0001 5AR 

002 

GTRST   000200R 

002 

$BLANK= 

000006 

FILiTB  OOOOOORG 

002 

GTUIC   000224R 

002 

$BYTMN= 

******  GX 

.  ABS.  000043 

000 

(RW,I,GBL,ABS,0VR) 

000540 

001 

(RW,I,LCL,REL,CON) 

SSTATE  000240 

002 

(RW,D,LCL,REL,C0N) 

SKTAB   000000 

003 

(RW,D,LCL,REL,CON) 

SKSTR   000000 

004 

(RW,D,LCL,REL,C0N) 

Errors  detected: 

0 

*♦*  Assembler  statistics 

Work   file  reads 

0 

Work   file  writes 

0 

Size  of  work  file 

10840  Words   (  43  Pages 

Size  of  core  pool 

:  14440  Words   (  55  Pages 

) 

Operatino  system 

:  RSX- 

IIM/PLUS 

Elapsed  time:  00: 

D0:38. 

04 

SY:TMPFIL.V2,[132 

,134]TMPF1L/CR/-SP=SY:[1, 

nRSXMCM.SML/ML,[130,110JN 

Page  8-1 


$CFERR= 

$DIGIT= 

$DNUMB= 

$E0S  = 

002  $ERROR= 

002  $EXIT  = 

002  SFAIL  = 

002  SFILHD^ 

"  $LAMDA= 

$NUMBR= 

$RAD50= 

$SAVRG= 

$STRNG= 


002 


****** 
000024 
000014 
000012 

****** 

000000 
M7777 
****** 
000000 
000002 
000016 

****** 

000004 


GX 


GX 


GX 


GX 


$SUBXP= 

000010 

$TAL0C= 

*♦**♦♦  GX 

STMFIL 

000124RG 

$T1ALC= 

******  GX 

$$$FLG= 

■\77777 

$$$ICEY= 

\77777 

$$$STA= 

000224R 

.ERR0R= 

******  GX 

.FLAGS= 

******  GX 

.PSTCN= 

»****♦  GX 

.PSTPT= 

******  GX 

.TEMP  = 

******  GX 

.TPARS= 

******  GX 

002 


TMPFIL 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:35 
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PAGE  1 

fDcc  c\i.   fin 


TMPFEA  - 
SETWD2  - 

218 
219 
220 
221 
222 
223 
22A 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 


PARSE  FEATURES  DEFINIT  MACRO  V05.O3b  Saturday  29-Jun-85  05:: 
SETUP  THE  SETTABLE  STATES  WORD 
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.SBTTL 
***  -  SETWD2 
INPUT: 


SETUD2  -  SETUP  THE  SETTABLE  STATES  WORD 
-  SET  THE  SETTABLE  STATES  WORD 


.PNUMB  =  THf  SETTABLE  STATES  WORD 

.PNUMH  =  THE  SETTABLE  STATES  WORD  (HIGH  ORDER) 

TEMP  =  THE  TEMPLATE  ADDRESS 


OUTPUT: 


NUMBER  IS  STORED  IN  C.WD2  OF  TEMPLATE 


000U2 

0001A2  016700  177632 

000U6  016760  OOOOOOG  000010 

000154  005767  OOOOOOG 

000160  001402 

000162  062716  000002 

000166  000207 


SETWD2: 


MOV 

TEMP.RO 

MOV 

. PNUMB, C.WD2(R0) 

TST 

.PNUMH 

BEQ 

10$ 

ADD 

#2,(SP) 

POINT  RO  AT  TEMPLATE 
;  STORE  THE  THE  SETTABLE  STATES  WORD 
IS  IT  A  WORD  VALUE  ? 
IF  EQ,  YES  ..  OKAY 
ELSE,  REJECT  THE  TRANSITION 


10$: 


RETURN 
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TMPLLC  - 
SETFLG  - 

231 
232 
233 
23^ 
235 
236 
237 
238 
239 
240 
2A1 
242 
243 
244 
245 
246 
247 
248 
249 
250 
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.SBTTL   SETFLG  -  SETUP  THE  FLAGS  WORD 
***  -  SETFLG  -  SETUP  THE  FLAGS  WORD 
INPUT: 


FLAG  =  THE  FLAGS  WORD 

TEMP  =  START  ADDRESS  OF  THE  TEMPLATE 


OUTPUT: 


000134 
000134 
000140 
000146 
000154 
000156 
000162 


016700 
016760 
032767 
001002 
062716 
000207 


177642 
177634 


000006 


OOOOOOG   177624 
000002 


SETFLG: 


10$: 


THE  FLAGS  WORD  IS  MOVED  INTO  THE  TEMPLATE 


GET  START  OF  TEMPLATE 
STORE  THE  FLAGS  WORD 
ZF.LLC  MUST  BE  SET 
IF  NE,  IT  IS 
ELSE  REJECT  TRANSITION 


MOV 

TEMP,RO 

MOV 

FLAG,C.FLGCRO) 

BIT 

#ZF. LLC, FLAG 

BNE 

10$ 

ADD 

#2,(SP) 

RETURN 

TMPLLC 
SET  PR  I 


-  CFE  PARSE  LLC  PROCESS 

-  SET  THE  PRIORITY 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
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.TITLE 
.IDENT 


TMPLOG  -  CFE  PARSE  LOGGING  STATE  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  OBJECT  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-JUL-80 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

0ECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 
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05:3? 


9^ 

95 

96 

97 

98 

99  000002 
100 
101 

102  000002 

103  000002 
104 

105  000002 

106  000002 
107 

108  000002 

109  000002 
110 

111  000002 

112  000002 
113 

lU  000002 
115  000002 
116 

117  000002 

118  000002 
119 

120  000002 

121  000002 
122 

123  000002 

124  000002 
125 

126  000002 

127  000002 
128 

129  000002 

130  000002 
131 

132  000002 

133  000002 
13A 

135  000002 

136  000002 
137 

158  000002 

139  000002 

140 

K1  000002 

142  000002 

143 

144  000002 

145  000002 

146  000002 
147 

148  000002 


I  INITIALIZE  TABLE  GENERATION 


ISTATS  NODSTB.NODKTB 


STATES 
TRANS  LA 

STATES 
TRANS  SRAD50,,SETNAM 

STATES 
TRANS  RA 

STATES 
TRANS  <',> 

STATES 
TRANS  LA 

STATES 
TRANS   IID,,SETNID 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETNNA 

STATES  NN2 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETNNM 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,SETH0A 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,SEXIT,SETH0S 

STATES  ID 
TRANS  RA,SEXIT 
TRANS  SANV,ID 

STATES 
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26 
27 
28 
29 
30 
31 
32 
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3A 
35 
36 
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.TITLE 
.IDENT 


TMPOBJ  -  CFE  PARSE  OBJECT  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODUIE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  OBJECT  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-11M/.S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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IMPPAR  CRFATED  BY     MACRO     ON  29-JUN-85   AT   05:58 

SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


REFERENCES 


CS.PAR 

=    ****** 

GX 

6-178 

CALL 

000016 

#4-88 

C.EXT 

OOOOU 

#4-87 

C.LEN 

=  000020 

#4-89 

C.NAMO 

00000^ 

#4-83 

C.NAMl 

000010 

#4-85 

C.STS 

=    ****** 

GX 

*6-178 

FLAG 

000000 

R 

#4-7'. 

PARKTB 

000000 

RG 

#5-97 

PARSTB 

000000 

RG 

#5-97 

SETALL 

000272 

R 

#10-293 

SETEXT 

0002^4 

R 

#9-269 

SETFLG 

000356 

R 

#11-321 

SETNMO 

000 lOA 

R 

#7-205 

SETNM1 

0001 6A 

R 

#8-237 

TEMP 

000002 

R 

#4-75 

SALPHA 

=  000022 

#5-97 

$ANY 

=  000020 

#5-97 

tBLANK 

=  000006 

#5-97 

SBYTXT 

=   ****** 

GX 

*10-306 

$CAT5 

=  ****** 

GX 

7-208 

SOIGIT 

=  000024 

#5-97 

SDNUMB 

=  OOOOK 

#5-97 

$EOS 

=  000012 

#5-97 

SERROR 

=      ****** 

GX 

♦6-185 

$EXIT 

=  000000 

#5-97 

$FAIL 

=   177777 

#5-97 

SGPRM 

r     ****** 

5-97 

SLAMDA 

=  000000 

#5-97 

SNUMBR 

=  000002 

#5-97 

$RAD50 

=  000016 

#5-97 

SRONLY 

::     ****** 

5-97 

SSTRNG 

=  000004 

#5-97 

SSUBXP 

=  000010 

#5-97 

STALOC 

r     ****** 

GX 

6-170 

STMPAR 

000004 

RG 

#6-167 

$$$FLG 

=  Mim 

#5-97 

$$$KEY 

=  \nm 

#5-97 

.PNUMB 

=  ****** 

GX 

9-271 

.PNUMH 

-  ****** 

GX 

9-272 

.PSTCN 

=  ****** 

GX 

7-216 

.PSTPT 

~  ****** 

GX 

7-206 

.TPARS 

=  ****** 

GX 

6-183 

•6-179 

•9-271 

6-169 

6-173 

•8-242 

•11-323 

11-323 

6-181 

6-182 


•6-171 


7-213 


•10-295 


•7-210 
•8-247 
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10-302 


•7-215 


7-209 


8-240 


7-214 


8-245 


8-241 


8-246 


9-270 


10-294 


11-322 


5-97 


10-295 
10-296 
8-248 
8-238 


5-97 


10-298 
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H  U 


TDcc    (\i.    r\(\ 


TMPPSN  CREATED  BY     MACRO     ON  ?9-JUN-85   AT   05:38 

SYMBOL    CROSS   REFERENCE 
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PAGE    1 

CREF       OA.OO 


SYMBOL      VALUE 


CS.FLG 

CS.PSN 

CS.THI 

CS.TLO 

C.FLG 

C.LEN 

C.NAM 

C.POR 

C.THI 

C.TLO 

ERRFLG 

ERRNAM 

ERRPOR 

ERRPSN 

ERRTRN 

EXSSEV 

PSNKTB 

PSNSTB 

SETFLG 

SETNAM 

SETPOR 

SETTHl 

SETTLO 

SALF'HA 

$ANY 

$BLANK 

SBYTMN 

SCFERR 

SDIGIT 

SDNUMB 

$EOS 

SERROR 

SEXIT 

SFAIL 

SGPRM 

SGTNUM 

$GTR50 

SLAMDA 

SNUMBR 

SPSIPT 

$RAD50 

SRONLV 

SSTRNG 

SSUBXP 

STALOC 

STMPSN 

$$$FLG 

$$$KEY 

.ERROR 

.FLAGS 

.PNJMB 

.TEMP 


GX 
GX 
GX 
GX 


****** 
****** 
****** 

****** 

000012 
000020 
OOOOOA 
000010 
000016 
0000  H 
000127  R 
0000^2  R 
000100  R 
000000  R 
000156  R 
000004 
000000  RG 
000000  RG 
000A42  R 
000362  R 
000376  R 
000470  R 
000516  R 
000022 
000020 
000006 
******     (3 
******     G 
000024 
OOOOU 
000012 
****** 

000000 
\77777 

****** 
****** 

■  *♦*♦♦* 

000000 
000002 

:  ****** 

■  000016 

■  **♦«  *♦ 

:  000004 
■■  000010 

r   ****** 

000226  RG 
:  ]77777 
:   W7777 

:  *♦♦♦** 
****** 
****** 


GX 


GX 


GX 


REFERENCES 

7-289 

7-241 

7-291 

7-293 
*5-136 
#5-139 
#5-134 
#5-135 
#5-138 
#5-137 
#5-149 
#5-147 
#5-148 
#5-145 
#5-150 
#5-144 
#6-159 
#6-159 
#7-289 
#7-279 
#7-281 
#7-291 
#7-293 
#6-159 
#6-159 
#6-159 
•7-286 

7-250 
#6-159 
#6-159 
#6-159 
»7-251 
#6-159 
#6-159 

6-159 

7-287 

7-279 
#6-159 
#6-159 

7-232 
#6-159 

6-159 
#6-159 
#6-159 

7-236 
#7-231 
#6-159 
#6-159 
•7-242 
♦7-240 

7-281 
•7-23" 


7-289 
7-235 
7-279 
7-287 
7-291 
7-293 


7-256 

5-146 
7-244 
7-245 


7-256 

•7-252 

7-289 

•7-238 
6-159 


7-248 
7-289 


5-147 


5-148 


5-149 


5-150 


•7-257 


7-291 


6-159 


7-291 


7-293 


7-293 


TMPPSN 
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iMPPvr  - 

5ETDEV  - 

335 
336 
357 
338 
339 
3A0 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
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SET  DEVICE  NAME  IN  LINE  10 


.SSTTL   SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 
.S8TTL   SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 
.S8TTL  SETTRB  -  SET  TRIB  NUMBER  IN  LINE  ID 

•«  SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 

•'  SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 

»♦  SETTRB  -  SET  TRIB  NUMBER  IN  LINE  ID 


000750 
000764 
001004 


;  INPUTS: 

.TPARS  CONVENTIONS. 

•  OUTPUT: 

VALUE  SET  IN  TEMPLATE 

SETDEV:  $GTR50 

*P$VNAM,*1 

SETCON:  SGTNMB 

#P$VNAMt2 

SETTRB:  $GTNMB 

#P$VNAMt3 

000001 


.END 
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Symbol  table  
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Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  DATA 

TPARS  STATE  TABLES 

STMDSA  -  BUILD  DSA  TEMPLATE 

SETNUM  -  SET  REMOTE  DTE  NUMBER 

SETSLO  -  SET  SUBADDRESS  LOW  RANGE 

SETSHl  -  SET  SUBADDRESS  HIGH  RANGE 

SETCUG  -  SET  USER  GROUP  NAME 
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S- 
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f- 

1% 

«- 
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H- 
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H- 
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8- 
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.TITLE  TMPDSC  -  PARSE  DESTINATION  CALL  PARAMETERS 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  DESTINATION  CALL  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


OF   ITS 


1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI 


3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
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105 
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■INITIONS 


.SBTTL  MACRO  DEflNITlONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV     TEXT.RO 

.ENDC 

CALL    SCFERl 

.ENDM   EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SGTNUM  OFFS,LO=<#0>,HI=<#177777>,OPT 

MOV  0FFS,R2 

MOV  LO,R0 

MOV  HI,R1 

.IF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 


.MACRO 

SGTNMB 

OFFS 

,10= 

<#0> 

HI 

=<*377> 

OPT 

MOV 

0FFS,R2 

MOV 

LO,R0 

MOV 

HI.Rl 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNMB 

.ENDM 

;•  GET 

RAD50  WITH  FIELD 

SIZE 

CHECKING 

.MACRO 

SGTR50 

OFFS 

,IFN 

,OPT 

MOV 

0FFS,R2 
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MACRO  DEFINITIONS 

114  MOV  LEN,R1 

115  .IF  NB  <OPT> 

116  BIS  OPT, a. FLAGS 

117  .ENDC 

118  JMP  $GTR50 

119  .ENDM 
120 
121 

122  ;  MACRO  CALLS 

123  ; 

124  .MCALL   ISTATS, STATES, TRANS, CALLR 

125 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

:2 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


TMPEVT  -  CFE  PARSE  EVENT  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  UITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  OBJECT  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     02-JUL-80 

DECNET-HM/S  V3.0 
DECNET-11M-PLUS   VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Mkro/RSX  VI. 0 


OF   ITS 
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»*FILE»*1D'»TMPF1L 


TTTTTTTTTT 
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li 

mm 
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I 

m 
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I 

MM 
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MM 
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MM 
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MM 

MM 
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I 

MM 

MM 
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MM 
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LL 

SS 

-L 

ss 
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SS 

.L 
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CHEF       Oi^.OO 


SYMBOL 

VALUE 

REFERENCES 

CKFSP 

000254 

R 

#7-258 

CKUIC 

000310 

R 

#7-278 

CLEFIL 

000232 

R 

#7-242 

COMMA 

=  000054 

#5-130 

CS.FIL 

-   ***t ♦♦ 

GX 

6-217 

ERRFSP 

000045 

R 

#4-122 

7-264 

ERRUIC 

000077 

R 

#4-123 

7-281 

EXSSEV 

=  000004 

#4-121 

4-122 

4-123 

FD 

000002 

R 

#4-115 

7-244 

7-261 

7-309 

7-330 

7-337 

FILE 

000000 

R 

#4-114 

*7-243 

7-345 

FILKTB 

000000 

RG 

#5-132 

6-220 

FILSTB 

000000 

RG 

#5-132 

6-221 

F$D1A 

000012 

#4-92 

FSDUM 

000014 

#4-93 

F$LD 

000010 

#4-91 

FSLEN 

=  000016 

#4-94 

6-212 

FSSEC 

000004 

#4-89 

FSTER 

000006 

#4-90 

F.CNT 

000002 

#4-106 

•7-318 

F  .DEV 

000005 

#4-108 

7-261 

7-308 

7-309 

7-310 

7-329 

F.LEN 

=  000043 

#4-109 

4-115 

7-245 

7-310 

7-323 

7-329 

F.LNK 

000000 

#4-105 

MOVSTR 

000500 

R 

7-262 

#8-363 

HXFSP 

=  000036 

#4-101 

4-108 

7-259 

REJ 

000274 

R 

7-260 

#7-264 

STFIL 

000336 

R 

#7-299 

SALPHA 

=  000022 

#5-132 

$ANY 

=  000020 

#5-132 

BBLANK 

=  000006 

#5-132 

SBYTMN 

-   ****** 

GX 

•7-340 

SCFERR 

r  ****** 

GX 

6-226 

SDIGIT 

=  000024 

#5-132 

SDNUMB 

=  000014 

#5-132 

$EOS 

=  000012 

#5-132 

SERROR 

r  **■*♦*« 

GX 

*6-227 

♦6-228 

SEXIT 

=  000000 

#5-132 

SFAIL 

=   177777 

#5-132 

SFILHD 

=    ****** 

GX 

7-300 

SGPRM 

r  ****** 

5-132 

SLAMDA 

=  000000 

#5-132 

SNUMBR 

=  000002 

#5-132 

$RAD50 

=  000016 

#5-132 

SRONLY 

-   ****** 

5-132 

5-132 

5-132 

SSAVRG 

-   ****** 

GX 

7-299 

SSTRNG 

-  OOOOOA 

#5-132 

SSUBXP 

=   000010 

#5-132 

$TALOC 

=  ****** 

GX 

6-213 

STMFIL 

000124 

RG 

#6-210 

STIALC 

-  ****** 

GX 

7-324 

$$$FLG 

=  ]77777 

#5-132 

$$$KEY 

=   177777 

#5-132 

.ERROR 

-   ****** 

GX 

*6-218 

6-224 

•7-264 

•7-281 

7-330 


7-337 


TMPFIL 
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TMPFEA  - 
SETWD3  - 

240 
2M 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 

in 

258 
259 
260 
261 
262 
263 
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.SBTTL 
*«*  -  SETWD3 
INPUT: 


SETWD3  -  SETUP  THE  CURRENT  STATES  WORD 
-  SETUP  THE  CURRENT  STATES  WORD 


.PNUMB  =  THE  CURRENT  STATES  WORD 

.PNUMH  =  THE  CURRENT  STATES  WORD  (HIGH  ORDER) 

TEMP  =  THE  TEMPLATE  ADDRESS 


OUTPUT: 


C.WD3  =  THE  CURRENT  STATES  WORD 


000170 

000170  016700  177604 

000174  016760  OOOOOOG  000012 

000202  005767  OOOOOOG 

000206  001402 

000210  062716  000002 

000214  000207 


000001 


SETWD3: 


10$: 


MOV 

TEMP.RO 

MOV 

.PNUMB,C.WD3(R0) 

TST 

.PNUMH 

BEQ 

10$ 

ADD 

#2,(SP) 

RETURN 

POINT  AT  TEMPLATE 
;  STORE  THE  CURRENT  STATES 
IS  IT  A  WORD  VALUE  ? 
IF  EQ,  YES  ..  OKAY 
ELSE,  REJECT  THE  TRANSITION 


.END 
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TMPLLC  -  CFE  PARSE  LLC  PROCESS 
SETPR!  -  SET  THE  PRIORITY 


2S2 
255 
25A 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 


H 
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.SBTTL   SETPRJ  -  SET  THE  PRIORITY 

♦*♦  -  SETPRI  -  SET  THE  PROCESS  PRIORITY 

THIS  ACTION  ROUTINE  CHECKS  THE  LLC  PRIORITY  TO  MAKE  SURE  IT  IS  VALID 
AND  STORES  IT  IN  THE  TEMPLATE. 

INPUT: 

.PNUMB  =  PRIORITY 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 


OUTPUT: 


THE  PRIORITY  IS  STORED  IN  C.PRI  OF  THE  TEMPLATE. 


000164 

000164  016700  177612 

000170  116760  OOOOOOG  000010 

000176  005767  OOOOOOG 

000202  001406 

000204  026727  OOOOOOG  000003 

000212  001402 

000214  062716  000002 

000220  000207 


SETPRI: 


10$: 


MOV 

M0V8 

TST 

BEQ 

CMP 

BEQ 

ADD 

RETURN 


TEMP.RO  ;  GET  START  OF  TEMPLATE 

.PNUMB,C.PRI(RO)  ;  STORE  THE  PRIORITY  IN  THE  TEMPLATE 

.PNUMB  ;  CHECK  THE  PRIORITY 

10$  ;  IF  EQ,  OKAY  FOR  RSX-IIM/"" 

.PNUMB, #3  ;  RSX-i  ID/IAS  PRIORITY? 

10$  ;  IF  EG,  YES  -  OKAY 

#2,(SP)  ;  ELSE,  REJECT  THE  TRANSITION 


TMPLLC  -  CFE  PARSE  LLC  PROCESS 
SETLIN  -  SET  LINE  NUMBER 
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MACRO  CEflNlTlONS 

55  .S8TTL  MACRO  DEFINITIONS 

56  ;**** 

57  ;  LOCAL  MACROS 

58  ;♦*♦* 
59 

60  .MACRO  PRINT   TEXT 

61  MOV  TEXT,RO        ;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 

62  CALL  SPRINT         ;  PRINT  MESSAGE 

63  .ENDM  PRINT 
6'i 

65  ;•♦** 

66  ;  MACRO  CALLS 

67  ;♦*♦♦ 

69  .MCALL   ISTATS, STATES, TRANS 

70 
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150 

151 

152 

153 

15^ 

155 

156 

157 

158 

159 

160 

161 

162 

163  000002 

16A  000002 

165  OOOOOA 

166  000010 

167  OOOOU 

168  000020 

169  000026 

170  000034 

171  000042 

172  000050 

173  000052 

174  000056 

175  000062 

176  000066 

177  000070 

178  000074 

179  000076 


.SBTTL  STMNOD  -  SETUP  NODE  TEMPLATE 
I- 
**♦  -  STMNOD  -  SETUP  NODE  TEMPLATE 

INPUT: 

R3-R5   -  TPARS  REGISTERS 

OUTPUT: 

C-81T  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  NODE  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


010546 
012701 
004767 
010067 
012767 
012760 
012760 
012760 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


STMNOD: 


000056 

OOOOOOG 

177760 

002000  OOOOOOG 

002000  000052 

002000  000054 

OOOOOOG  0000006 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


20$: 


MOV  R5,-(SP) 

MOV  *C.LEN,R1 

CALL  STALOC 

MOV  RO.TEMP 

MOV  *1*1024., 

MOV  #1*1024., 

MOV  #1*1024 

MOV  #CS.NOD,C.STS(R0) 

CLR  R1 

MOV  #N0DKTB,R2 

MOV  #N0DSTB,R5 

CALL  .TPARS 

BCC  20$ 

INC  SERROR 

MOV  (SP)+,R5 

RETURN 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 
$NTADD  :  INITIALIZE  NODE 
C.NUM(RO)  ;    ADDRESSES 
C.HOS(RO)  ; 

;  INDICATE  THAT  THIS  IS  A  NOD$DF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

11 

78 

79  000000 

80 

81 

82 

83  000000 

84 

85  000000 

86  000002 

87  000004 

88  000005 

89  000006 

90  000012 
91 

92 

93  000002 

94 


.SBTTL  MACRO  DEFINITIONS 


000074 
000076 


000000 


000013 


■  LOCAL 

;  •  *  *  * 

MACROS 

.MACRO 
MOV 
CALL 
.ENDM 

PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 

;•  MACRO 

;  *  *  *  * 

CALLS 

.MCALL 

ISTATS, STATE 

•  **** 

;  LOCAL 

DATA 

LA  =  '< 
RA  =  •> 

TEMP: 

.BLKW 

1 

•  DEFINE  NODL 

EMPLATE 

C.TYP: 
C.FLG: 
C.NAM: 
C.CPY: 

.ASECT 

.=0 

.8LKW 

.8LKW 

.BLK8 

.BLK8 

.8LKW 

.8LKB 

1 
1 
1 
1 
2 
1 

C.LEN=. 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  BRACKET 
ADDRESS  OF  NODE  TEMPLATE 


C.LNK 

C.STS 

OBJECT  TYPE 

OBJECT  FLAGS  BYTE 

OBJECT  TASK  NAME  (RAD50) 

MAXIMUM  NUMBER  OF   °IES  OF  A  TASK  TO  SPAWN 

LIMIT  IS  63. 


.PSECT 


I  12- 
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TMPPAR  .  cFf  PARSE  PARTITION  DE  MACRO  V05.03b  Saturday  29-Jun-85  05:' 
Table  ot  contents 

SETUP  PARTITION  TEMPLATE 
SET  UP  PARTITION  NAME  0 
SET  UP  PARTITION  NAME  T 
CHECK  THE  EXTENSION 
SET  THE  BYTE-AREA  EXTENSION 
SETUP  THE  FLAGS  WORD 


f,- 

TSA 

$TMPAR 

7- 

189 

SETNMO 

a- 

2?1 

SETNM1 

g- 

253 

SETEXT 

0- 

277 

SETALL 

1- 

509 

SETFLG 
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PAGE  2 

CREf       04.00 


MACRO  NAME 

REFERENCES 

DBGTPt 

#5-97 

#5-101 

#5-117 

#5-121 

#5-125 

#5-129 

#5-150 

#5-154 

#5-141 

ISTATS 

#4-68 

5-97 

*ITRAN$ 

#5-97 

PRINT 
STATES 

#4-59 
#4-68 

5-99 

#5-105 

#5-106 

#5-109 

#5-112 

#5-115 

#5-119 

#5-125 

#5-127 

#5-152 

#5-156 

#5-159 

#5-145 

#5-149 

#5-152 

TRANS 

#4-68 

#5-100 

#5-101 

#5-104 

#5-107 

#5-110 

#5-113 

#5-116 

#5-117 

#5-120 

#5-121 

#5-124 

#5-125 

#5-128 

#5-129 

#5-150 

#5-135 

#5-154 

#5-157 

#5-140 

#5-141 

#5-144 

#5-150 

TM 
SY! 
SYI 

T 


L 


•»F1LE'*1D*»TMPPSN 


I  14 


Tf 
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SYMBOL    CROSS  REFERENCE  CREF        OA.OO 

SYMBOL      VALUE  REFERENCES 

TPARS      =    ......      GX  7-2A6 
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IRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05:39 


CS.FLG= 

••«•••  GX 

PVCO    000026R 

002 
002 

P$VSTA= 

.«»»»*  GX 

CS.PVC  = 

««•«»»  GX 

PVCl    000110R 

P$VWSZ= 

«.«.»»  GX 

r$lENX  = 

......  GX 

PVC2    000142R 

002 

SETCON 

000764R 
000570R 
000750R 

DLM 

000352R 

PVC3    000170R 

002 

SETCr 

DLMPVC 

000244R 

002 

PVC4    000216R 

002 

SETDEV 

ERRCT 

000100R 

PV$OWN=  ♦«*•**  GX 

SETFLG 

000722R 

ERRFLG 

0O0273R 

PV$PS2=  ...»*»  GX 

SETLCN 

000550R 

ERRLCN 

000031 R 

PV$WSZ=  »»•*♦•  GX 

SETNAM 

000534R 

ERRNAM 

OOOOOOR 

PSVCT  =  »..»»»  GX 

SETOWN 

000700R 

ERROWN 

000255R 

P$VFLG=  ♦*•***  GX 

SETPS2 

000624R 

ERRPSZ 

000137R 

P$VLCN=  *.*•*•  GX 

SETSTA 

000610R 

ERRSTA 

000322R 

P$VLEN=  •»»«•♦  GX 

SETTRB 

00100AR 

ERRWSZ 

000201 R 

P$VNAM=  .***♦•  GX 

SEIWSZ 

000652R 

EX$SEV= 

OOOOOA 

PSVOWN=  ♦»««»*  GX 

STA 

OO0350R 

oyCK,Tq 

OOOOOORG 

003 

PtVPSZ=  *•♦•••  GX 

X$LENX=: 

**»*».  GX 

P7CSTB 

OOOOOORG 

002 

.  ABS. 

000000 
001 02A 

000 
001 

(RW,1,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 

SSTATE 

000266 

002 

(RW,D,LCL,REL,C0N) 

SKTAB 

000006 

003 

(RW,D,LCL,REL,CON) 

SKSTR 

000013 

004 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

»♦•  Assembler  statistics 

Work   f 

ile  reads 

:  0 

Work   1 

i 1 e  writes 

:  0 

Size  ol 

work  file 

:  11048  Words  (  4-1  Pages) 

Size  of 

core  pool 

:  K440  Words   (  55  Pages) 

Page  8-1 

$ALPHA= 
$ANV  = 
$BLANK= 
$BYrMN= 
$CFERR= 
$CLERR= 
$DIG]T= 
$DNUMB= 
$EOS  = 
$ERROR= 
$EX]T  = 
$FA1L  = 
$GTNMB= 
$GrNUM= 
$GTR50= 


000022 
000020 
000006 

*♦**♦* 
****** 
****** 
000024 
000014 
000C12 

****** 

000000 
M7777 

****** 
****** 
****** 


GX 
GX 
GX 


GX 


GX 
GX 
GX 


Operating     system:    RSX-llM/PLUS 
SY'fTMPPVc!v2J132,154]TMPPVC/CR/-SP=Sy:[1,l]RSXMCM.5ML/ML,[130,110]NETLlB/ML,[132,10]TMPPVC 


$LAHDA= 

$NUMBR= 

$RAD50= 

$SrRNG= 

$SUBXP= 

$TAL0C= 

SIMPVC 

$$$FLG= 

$$$KEy= 

$$$STA= 

$$$TMP= 

.ERR0R=^ 

.FLAGS= 

.TEMP  = 

.TPARS= 


000000 

000002 

000016 

000004 

000010 

******   GX 

000354RG 

177777 

000002 

000000 

000007R 

**♦*«♦  GX 

******  GX 

******  GX 

******  GX 


004 


TMPPVC 


CREATED  BY     MACRO     ON  29-JUN-85  AT   05:39 
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1 
2 
3 

A 
5 

6 

7 
8 
9 

10 

11 

12 

13 

lA 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


.TITLE  TMPDSA  - 
.IDENT  /V05.00/ 
.ENABL  LC 


PARSE  DESTINATION  A.IRESS 


COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  DESTINATION  ADDRESS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  Vl .1 

3.00  16-APR-82 

DECNET-lIM  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
OECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl .0 
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MACRO  DEFINITIONS 


u 


57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

7C 

71 

72 

73 

7A 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 


.SBTTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT    lEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIE  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DJF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SGTNUM  OFFS,LO=<#0>,HI=<#177777>,OPT 
MOV     0FFS,R2 
MOV     LO.RO 
MOV     HI,R1 
.IF  NB  <OPT> 


BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNUM 

.ENDM 

.MACRO 

SGTNMB  OFFS,LO=<*0>,HI=<#377>,OPT 

MOV 

0FFS,R2 
LO.RO 

MOV 

MOV 

HI,R1 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNMB 

.ENDM 

;  GET  RAD50  WITH  FIELD  SIZE  CHECKING 

.MACRO 

SGTR50  OFFS,LEN,OPT 

MOV 

0FFS,R2 

TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.03b  Saturday  29-Jun-85  05:32  Page  4-1 
MACRO  DEFINITIONS 
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MACRO  DEFINITIONS 


y. 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


MOV     LEN,R1 

.IF  N8  <OPT> 

BIS     OPT, a. FLAGS 

.ENDC 

JHP     $GTR50 

.ENDM 


MACRO  CALLS 

.MCALL   ISTATS, STATES, TRANS, CALLR 


TMPDST  -  PARSE  DESTINATION  DESC  MACRO  V05.O3b  Saturday  29-Jun-85 
LOCAL  DATA 


!55:? 


3  Page  5 
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LOCAL  DATA 


127 

128 

129 

130 

131  000000 

132 

133  000000 

13A  000002 

135  OOOOOA 

136  000016 

137  000020 
158  000026 
139  000030 
1A0  000032 
1A1  000034 
U2 

U3  000000 

U4 

145 

U6 

147 

148 

149  000000 

150  000034 

151  000065 

152  000125 

153  000171 

154  000223 
155 

156 

157  000262 


.S8TTL  LOCAL  DATA 
DEFINE  THE  LOCAL  DTE  PARAMETER  BLOCK 


000000 


000040 


000004 
004 
004 
004 
004 
004 
004 


C.ADR: 
C.LIN: 

C.STA: 

C.HSH: 

C.CT: 

C.NET: 

C.LEN=, 


.ASECT 

.=0 

.8LKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 


1 

1 

5. 

1 

3 

1 

1 

1 

2 


.PSECT 
.NLIST  BEX 


SYNTAX  ERROR  DETAIL  STRINGS 


103 
103 
103 
103 
103 
103 


EXSSEV 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 


106  ERRADR: 

106  ERRLIN: 

106  ERRHSH: 

106  ERRCT: 

106  ERRSTA:  .ASCIZ 

106  ERRNET:  .ASCIZ 
.EVEN 
.LIST 
STA:    .QLKW 


=  4 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

BEX 
1 


C.LNK 

C.STS 

RAD50  STRING  OF  1.-15.  DECIMAL  DIGITS 

LINE  ID:  RAD50  PROCESS  NAME 

CONTROLLER,  UNIT,  TRIB  NUMBERS 
=0  — >  OFF,  >0  — >  ON 
HASH  TABLE  SIZE  (32.-512.  ENTRIES) 
COUNTER  TIMER  VALUE  (0.-65535.) 
RAD50  NETWORK  NAME 


Invalid  DTE  address/ 
Error  in  line  id/ 
Invalid  hash  table  size/ 
Invalid  counter  tinier  value/ 
Invalid  DTE  state/ 
Error  in  network  name/ 


STATE  VALUE 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

68 

69 

70 

71 

72  000000 

73 


05:34  Page  4 
.SBTTL  MACRO  DEFINITIONS 


♦  ♦** 
LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


MACRO  CALLS 


.MCALL   I  STATS,  STATES, TRANS, FLTDFI 

FLTDFS  ;  DEFINE  FILTER  BLOCK  OFFSETS 


TMPEVT  -  CFE  PARSE  EVENT  DEFINI  MACRO  V05.05b  Saturday  29-Jun-85  05:«  Page  5 
LOCAL  DATA 


TMPFIL  -  CfE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85 
Table  of  contents 

MACRO  DEFINITIONS 

Macro  calls  and  local  data 

State  tables 

STMSER  -  Setup  remote  characteristics  template 

Action  routines 

Utility  subroutines 


U^ 


4- 

46 

A- 

m 

S- 

78 

fi- 

]■■)/■ 

/- 

?-,', 

8- 

5V> 
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:i 


I  7 

TMPFIL     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:35     PAGE  2 

SYMBOL  CROSS  REFERENCE  CREf   0^.00 

SYMBOL  VALUE  REFERENCES 

.FLAGS  =  *.*«««  GX  •6-216  ,  ^,„      „  ,^,      „  ,^^ 

.PSTCN  =  .«♦***  GX  7-259  7-278     8-36A     8-366 

.PSTPT  =  *♦».♦*  GX  8-365  8-371 

.TEMP  =  »*♦♦♦«  GX  t6-2U  7-344 

.TPARS  =  *♦♦•♦*  GX  6-222 
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THPFEA  -  PARSE   FEATURES  DEFINIT   MACRO  V05.03b   Saturday  29-Jun-85 
Symbol   table 


Is:'- 


CS.rEA=  ♦»*••♦  GX 


C.DEV 
C.LEN 
C.STS 
C.UD1 
C.WD2 
C.WD3 
EXIT 


OOOOOA 
=  OOOOH 
=  »♦♦»»*  GX 

000006 

000010 

000012 

000032R 


FEAKTB 
FEASTB 
SETDVl 
SETDV2 
SETUDl 
SETWD2 
SETWD3 
002  TEMP 


OOOOOORG 

OOOOOORG 

O00056R 

000072R 

000106R 

0OOU2R 

0001 70R 

OOOOOOR 


003  $ALPHA=  000022 
002  $ANY  =  000020 
$BLANK=  000006 
$CNFIG=  ******  GX 
$DIGU=  000024 
$DNUMB=  00001 4 
$EOS  =  000012 
$ERROR=  ******  GX 
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SEXIT  =  000000 
$FAIL  =  ^77777 
$LAMDA=  000000 
$NUM8R=  000002 
$RAD50^  000016 
$STRNG=  000004 
$SUBXP=  000010 
$TALOC=:   ******  GX 


STMFEA     000002RG 
$$$FLG=  177777 
$$$KEY=   ]77777 
$$$STA=  000000 
.PCHAR=  ******   GX 
.PNUMB=  ******  GX 
.PNUMH=  ******  GX 
.TPARS=   ******   GX 


.  ABS.  000014 
000216 
SSTATE  000036 
$KTAB  000000 
SKSTR  000000 
Errors   detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 


**♦   Assembler  statistics 

Work      file     reads:  0 

Work      file   writes:  0 

Size  of  work    file:  10406  Words      (   41   Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 

SyfTMPFEA!v2;[132,134]tMPFEA/CR/-SP=SY:Cl,i:RSXMCM.SML/ML,C130,110]NETLIB/ML,[132,10]TMPFEA 


TMPFEA           CREATED  BY     MACRO     ON  29-JUN-85   AT  05:35 
cvMDni     roncc    DCrccDPMfP 
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CRFF        04.00 


TMPLLC  - 
SETLIN  - 

278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 


CFE  PARSE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:35  Page  10 
SET  LINE  NUMBER 

.SBTTL  SETLIN  -  SET  LINE  NUMBER 
*»  -  SETLIN  -  SETUP  LINE  NUMBER 


THIS  ACTION  ROUTINE  CHECKS  THE  LLC  LINE  NUMBER  TO  MAKE  SURE  IT  IS 
VALID. 


INPUT: 


.PNUMB  =  LINE  NUMBER 

.PNUMH  =  LINE  NUMBER  (HIGH  ORDER) 


OUTPUT: 


THE  LINE  NUMBER  IS  STORED  IN  C.LIN  OF  THE  TEMPLATE. 


000222 
000222 
000226 
000234 
000240 
000246 
000252 
000254 
000260 
000262 
000266 


016700 
016767 
005267 
116760 
005767 
001003 
105767 
001402 
062716 
000207 


177554 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG  000011 

OOOOOOG 

000001 G 


SETLIN: 


000002 


10$: 
20S: 


MOV 

MOV 

INC 

MOVB 

TST 

BNE 

TSTB 

BEQ 

ADD 

RETURN 


TEMP.RO 

.  PNUMB, $NLN 

$NLN 

. PNUMB, C.LIN(RO) 

.PNUMH 

10$ 

. PNUMB +1 

20$ 

*2,(SP) 


GET  START  OF  TEMPLATE 

STORE  THE  NUMBER  OF  NSP  CHANNELS 

;  STOREMhE  NUMBER  OF  LINES  ON  THIS  LLC 

IS  IT  ONLY  ONE  WORD  ? 

IF  NE,  NO  -  REJECT 

IS  IT  A  BYTE  VALUE  ? 

IF  EO,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 
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LOCAL  DATA 


72 

73 

7A 

75 

76 

77 

78 

79 

80  000000 

81 

82 

83 

84  000000 

85 

86  000000 

87  000002 

88  OOOOOA 
89 

90  000005 

91  000002 


000007 
000074 
000076 


000000 


.SBTTL 
**** 
LOCAL  DATA 
♦  *** 

MAXSTA  =  7 
LA  =  '< 
RA  =  '> 
TEMP:    .BLKW 


LOCAL  DATA 


1 


DEFINE  LOGGING  STATE  TEMPLATE 

.ASECT 
.=0 

.BLKU  1 
.8LKW  1 
.BLKB   1 


C.STA: 
C.LEN: 


MAXIUM  VALUE  FOR  LOGGING  STATE 
LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  BRACKET 
ADDRESS  OF  NODE  TEMPLATE 


C.LNK 
C.STS 
LOGGING  STATE 


.PSECT 
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STATE  TABLE 
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SETNAM  -  SET  UP  NODE  NAME 


I  11 

05:37 
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181 

182 

183 

18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19A 

195 

196 

197 

198  000100 

199  000100 

016700 

OOOOOOG 

200  00010A 

010701 

201  000106 

00A767 

OOOOOOG 

202  000112 

016702 

177662 

203  000116 

010162 

000004 

20A  000122 

010167 

OOOOOOG 

205  000126 

010701 

206  000130 

004767 

OOOOOOG 

207  0001 3A 

016702 

177640 

208  OOOKO 

010162 

000006 

209  OOOKA 

010167 

000002G 

210  000150 

022767 

000006     OOOOOOG 

211   000156 

103002 

212  000160 

062716 

000002 

213  00016A 

000207 

.S8TTL  SEINAM  -  SET  UP  NODE  NAME 

***  -  SETNAM  -  SETUP  NODE  NAME 

THIS  ACTION  ROUTINE  SETS  UP  THE  NODE  NAME. 

INPUT: 

.PSTPT  =  START  ADDRESS  OF  THE  NODE  NAME  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  NODE  NAME 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

C.NAM  =  RAD50  NODE  NAME  (2  WORDS) 
SNTNAM  =  NODE  NAME 


SETNAM: 


10$: 


MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

CMP 

BHIS 

ADD 

RETURN 


. PSTPT, RO 

PC,R1 

$CAT5 

TEMP,R2 

R1,C.NAM(R2) 

R1,$NTNAM 

PC.RI 

SCATS 

TEMP,R2 

R1,C.NAM+2(R2) 

R1,$NTNAM+2 

#6, .PSTCN 

loi 

#2,(SP) 


GET  ADDRESS  OF  ASCII  NODE  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  NODE  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

STORE  NODE  NAME  IN  TEMPLATE 

..TWICE 

PERIODS  ARE  ACCEPTABLE 

CONVERT  THE  REST  OF  THE  NODE  NAME 

GET  START  OF  TEMPLATE 

STORE  THE  SECOND  WORD 

..TWICE 

IS  THE  NODE  NAME  TOO  3IG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 
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96 

97 

98 

99 
100 

101  000002 
102 
103 

10A  000002 
105  000002 
106 

107  000002 

108  000002 
109 

no  000002 

111  000002 
'   000002 


000002 
000002 


112 
113 
lU 
115 
116 

117  000002 

118  000002 
119 

120  000002 

121  000002 
122 

123  000002 

124  000002 
125 

126  000002 

127  C00002 
128 

129  000002 

130  000002 
131 

132  000002 

133  000002 
13-;  000002 
135 

136  000002 

137  000002 
138 

139 

UO 

U1   000002 

142  000002 

U3 

Hi.  000002 


•    INITIALIZE    TA8LE   GENERATION 


ISTATS     08JSTB,0BJ<TB 


STATES 
TRANS     SNUM8R,,SETYPE 

STATES 
TRANS     <',> 

STATES 
TRANS     <',>,0BJ0 
TRANS     LA 

STATES 
TRANS     SRAD50,,SETNAM 

STATES 
TRANS     RA 

STATES 
TRANS     <',> 

STATES     08J0 
TRANS     SNUMBR,,SETVFY 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,SETFL6 

STATES 
TRANS  SEOS.SEXIT 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETCPY 

EXIT  STATE 

STATES  EXIT 
TRANS  SEOS.SEXIT 

STATES 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 

51 

52 

53 
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.TITLE   TMPPAR  -  CFE  PARSE  PARTITION  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1984,  1985  Br 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  'HE  PARTITION  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

0ECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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1 
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NN      NN 

TM 

MA 

MA 

CA 
DB 
EP 
ER 

IS 
MT 
PR 
ST 

TR 


$G 
$G 
$G 


LL 

ssssssss 

TTTTl 

TTTTT 
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TMPPSN     CREATED  BY  MACRO  ON  29-JUN-85  AI  05:58     PAGE  3 

MACRO  CROSS  REFERENCE  CREf   04.00 


MACRO  NAME 

REFERENCES 

CALLR 
DBGTPS 

#4-124 
#6-159 

#6-174 

#6-178 

#6-184 

#6-188 

#6-194 

#6-198 

#6-204 

EPRINI 

#4-78 

ERRORS 

#4-67 

7-250 

7-256 

ISTATS 

#4-124 

6-159 

MTRANlt 

#6-159 

PRINT 
STATES 

#4-62 
#4-124 

6-165 

#6-165 

#6-167 

#6-170 

#6-172 

#6-176 

#6-180 

#6-182 

#6-186 

#6-190 

#6-192 

#6-196 

#6-200 

#6-202 

#6-206 

#6-211 

TRANS 

#4-124 

#6-164 

#6-166 

#6-168 

#6-171 

#6-173 

#6-174 

#6-177 

#6-178 

#6-181 

#6-185 

#6-184 

#6-187 

#6-188 

#6-191 

#6-195 

#6-194 

#6-197 

#6-198 

#6-201 

#6-205 

#6-204 

#6-207 

SGTNMB 

#4-100 

SGTNUM 

#4-90 

7-287 

7-289 

7-291 

7-293 

SGTR50 

#4-112 

7-279 

>«FILE**1D'»TMPPVC 
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PAGE  1 

CREf   OA.OO 


SYMBOL   VALUE 


CS.FLG 

CS.PVC 

CtLENX 

DLM 

ERRCT 

ERRFLG 

ERRLCN 

ERRNAM 

ERROWN 

ERftPSZ 

ERRSTA 

ERRWSZ 

EXSSEV 

PVCKTB 

PVCSTB 

PVSOWN 

PVSPSZ 

PVSWSZ 

PSVCT 

PSVFLG 

PSVLCN 

PSVLEN 

PSVNAM 

PSVOWN 

PSVPSZ 

PtVSTA 

PSVWSZ 

SET  CON 

SETCT 

SETDEV 

SETFLG 

SETLCN 

SETNAM 

SETOWN 

SETPSZ 

SETSTA 

SETTRB 

SETWSZ 

STA 

XSLENX 

SALPHA 

$ANY 

SSLANK 

SBYTMN 

SCFERR 

SOIGIT 

SDNUMB 

$EOS 

SERROR 

SEXIT 

SFAIL 

SGPRM 


GX 
GX 
GX 


****** 

****** 

000352 

000100 

000273 

000031 

000000 

00023'; 

00013^ 

000322 

000201 

000004 

000000  RG 

000000  RG 

*•*»♦*  GX 

***•«»  GX 

**»«««  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

00076A 

000570  R 

000750  R 

000722  R 

000550  R 

000534  R 

000700  R 

000624  R 

000610  R 

001004  R 

000652  R 

000350  R 

:  »*.*.♦    GX 

^  000022 
^  000020 
■   000006 

:  ****** 
****** 

■-  000024 
^  000014 
=  000012 

:  ****** 

^  000000 
:  177777 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 


GX 


REFERENCES 

7-332 

7-268 

7-280 
#5-147 
#5-137 
#5-141 
#5-136 
#5-135 
#5-140 
#5-138 
#5-142 
#5-139 
#5-134 
#6-154 
#6-154 

7-330 

7-326 

7-328 

7-320 

7-332 

7-318 

7-263 

7-316 

7-282 

7-326 
*7-323 

7-328 
#8-350 
#7-320 
#8-348 
#7-332 
#7-318 
#7-316 
#7-330 
#7-326 
#7-322 
#8-352 
#7-328 
#5-146 

7-272 
#6-154 
#6-154 
#6-154 
•7-272 

7-287 
#6-154 
#6-154 
#6-154 
•7-288 
#6-154 
#6-154 

6-154 


•7-271 


7-284 


5-135 
7-274 
7-275 


8-348 
7-330 


7-278 


5-136 


5-137 


5-138 


5-139 


5-140 


5-141 


5-142 


8-350 


8-352 


•7-270 


•7-280 


•7-289 


7-323 


TMPPVC 
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TMPDSA  - 
MACRO  DE 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

11 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91 

92 

93 

95 

96 

97 

98 

99 

100 

101 

102 

103 

;04 

105 

106 

107 

108 

109 

110 

111 

112 

113 
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PARSE  DESTIMATION  ADDR  MACRO  V05.03b  Saturday  29-Jun-85  05:32  Page  k 
FINITIONS 

.S8TTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BVTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIE  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCfERI 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 

.MACRO  SGTNUM  OFFS,LO^<#0>,I- 

HOV  0FFS,R2 

MOV  LCfiO 

MOV  Hl.fil 

.IF  NB  <OPT> 

BIS 

.ENDC 

JMP 

.ENDM 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


<#1 77777>, OPT 


OPT, a. FLAGS 
IGTNUM 


.MACRO 

SGTNMB 

OFFS 

,10= 

<#0>,HI 

=<#377> 

OPT 

MOV 

0FFS.R2 

MOV 

LO.RO 

MOV 

HI.Rl 

.IF  NB 

<0PT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNMB 

.ENDM 

;  GET 

RAD50  WITH  FIELD 

SIZE 

CHECKING 

.MACRO 

SGTR50 

OFFS 

,IFN 

,0PT 

MOV 

0FFS,R2 
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MACRO  DEFINITIONS 
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TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.03b  Saturday  29-Jun-85  05:32  Page  4-1 
MACRO  DEFINITIONS 

1U 
115 
116 
117 
118 
119 
120 
121 
122 
125 
124  .MCALL  ISTATS, STATES, TRANS, CALLR 


MOV 

.IF  N8 

BIS 

.ENDC 

JMP 

.ENDM 

LEN.RI 
<OPT> 
OPT, a. FLAGS 

SGTR50 

;  MACRO  CALLS 

K  2 

■k32 


TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.05b  Saturday  29-Jun-85  05:32  Page  5 
LOCAL  DATA 


TMPDST  -  PARSE  DESTINATION  DESC  MACRO  V05.0?b  Saturday  29-Jun-85 

LOCAL  DATA 


35:33  Page  5 


127 

128 

129 

130 

131  000000 

132 

133  000000 

134  000002 

135  000004 

136  000006 

137  000012 

138  000013 

139  000014 
140 

141  000000 

142 

143 

144 

145 

146 

147 

148  000000 

149  000041 

150  000102 

151  000133 

152  000171 
153 

154 


.SBTTL  LOCAL  DATA 
DEFINE  THE  DST  PARAMETER  BLOCK 


000000 


000020 


000004 
004 
004 
004 
004 
004 


103 
103 
103 
103 
103 


C.TVP 
C.NAM 
C.PRI 
C.OBJ 
C.TSK 
C.LEN= 


106  ERRTYP 

106  ERRNAM 

106  ERRPRI 

106  ERROBJ 

106  ERRTSK 


.ASECT 
.=0 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.8LKB 
.BLKW 

.PSECT 
.NLIST 

BEX 

ERROR 

DETAIL  STRING 

.NLJST 
EXSSEV 
.ASCTZ 
.ASCJZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

BEX 

=  4 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

;  C.LNK 

;  C.STS 

;  RAD50  "X25"  OR  "X29" 

;  RAD50  DESTINATION  NAME 

;  LIST  INSERTION  PRIORITY 

;  OBJECT  NUMBER 

;  RAD50  TASK  NAME 


.EVEN 
.LIST 


JUegal  destination  type/ 

Illegal,  destination  name/ 

Illegal  priority/ 

Illegal  object  number/ 

Illegal  task  name/ 


BEX 


TMPDST  -  PARSE  DESTINATION  DESC  MACRO  VO5.03b  Saturday  29-Jun-85  05:33 
TPARS  STATE  TABLES 


Page  6 


TMPDTf  - 

PARSE  LOCAL 

TP(\RS  STATE  TABLES 

159 

160 

161 

162 

163 

164 

000264 

165 

166 

167 

168 

169 

000264 

170 

000264 

171 

000264 

172 

000264 

173 

000264 

174 

000264 

175 

176 

177 

000264 

178 

000264 

179 

000264 

180 

000264 

181 

182 

183 

000264 

184 

000264 

185 

000264 

186 

000264 

187 

188 

189 

000264 

190 

000264 

191 

000264 

192 

000264 

193 

194 

195 

000264 

196 

000264 

197 

000264 

198 

000264 

199 

000264 

200 

000264 

201 

202 

000264 

203 

000264 

204 

000264 

205 

000264 

206 

000264 

207 

000264 

208 

209 

210 

211 

212 

000264 

213 

000264 

214 

000264 

215 

000264 

J  4 

DTE  DESCRl  MACRO  V05.03b  Saturday  29-Jun-85  05:33  Page  6 

.SBTTL  TPARS  STATE  TABLES 
INITIALIZE  TABLES 


ISTATS  DTESTB,  DTEKTB 
PROCESS  "DTE$DF" 


STATES  ;  DTE  ADDRESS 

TRANS  SL AMDA , , SCLERR , ERRADR , . ERROR 

STATES 
TRANS   IADRSTR,,SETADR 

STATES 
TRANS  <•,>,, SCLERR, ERRLIN,. ERROR 


STATES  ;  LINE  ID 

TRANS   ILINID 
STATES 

TRANS  <',>,, SCLERR, ERRHSH,. ERROR 


STATES 

TRANS  SNUM8R,,SETHSH 
STATES 

TRANS  <',>,, SCLERR, ERRCT,. ERROR 


;  HASH  TABLE  SI7E 


STATES 

TRANS  $NUM8R,,SETCT 
STATES 

TRANS  <',>,, SCLERR, ERRSTA,. ERROR 


COUNTER  TIMER  VALUE 


STATE 


STATES 

TRANS  %0NX,DTE1,,1,STA 

TRANS  5(0fF!!;,DTE1 

STATES  DTE1 

TRANS  SEOS,SEXIT,SETSTA 

TRANS  <',>,, SETSTA 

STATES  ;  NETWORK  NAME 

TRANS  SLAMDA,,  SCLERR, ERRNET,. ERROR 

STATES 

TRANS  SSTRNCSETNET 

STATES 

TRANS  SE0S,SEXIT 


SUBEXPRESSION  TO  PARSE  DTE  ADDRESS  STRING 

STATES  ADRSTR 

TRANS  SDIGIT 

STATES  ADR1 

TRANS  SDIGIT, ADR1 


K  4 


TMPDTE  -  PARSE  LOCAL  DTE  DESCRl  MACRO  V05.03b  Saturday  29-Jun-85  05:33  Page  6-1 
TPARS  STATE  TABLES 


TMPEVT   -  CFE   PARSE   EVENT   DEFINI   MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL   DATA 

75 
76 
77 
78 
79 

80  00007A 

81  000076 

82  077700 

83  000000 

84  0000C2 
85 


)5:3A  Page  5 


87 

88  000040 

89 

90  000000 

91  000002 

92  000004 

93  000006 

94  000016 
95 

96 

97  000004 

98 


000000 


000020 


.SBTTL 
■  **** 
;  LOCAL  DATA 

;  *  *  *  * 

LOCAL  DATA 

LBRA  =  '< 
R8RA  =  •> 
MAXCLS  =  511.* 
TEMP:   .BLKW 
STRADD:  .BLKW 

00 

1 
1 

':    DEFINE  EVENT 

TEMPLATE 

.ASECT 

.=0 

.BLKW 

.BLKW 

C.CLS:   .BLKU 

C.EVT:   .BLKW 

C.SNK:   .BLKW 

1 
1 
1 
4 
1 

LEFT  ANGLE  BRACKET 

RIGHT  ANGLE  BRACKET 

MAXIMUM  EVENT  CLASS  VALUE 

ADDRESS  OF  NODE  TEMPLATE 

ADDRESS  OF  NEXT  EVENT  MASK  TO  STORE 


C.LNK 
C.STS 

EVENT  CLASS 
EVENT  MASKS 
SINK  TVPE 


C.LEN=. 


.PSECT 
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TMPEVT  -  CFE  PARSE  EVENT  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:34 
STATE  TABLE 
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.i 


1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 


.TITLE   TMPFIL  -  CFE  PARSE  REMOTE  CHARACTERISTICS  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (c)  1983,  1984,  1985  by 

Digital  Equipment  Corporation,  Maynard,  Mass. 

This  software  is  furnished  under  a  license  and  may  be  used  and  copied 
only  in  accordance  with  the  terms  of  such  license  and  with  the 
inclusion  of  the  above  copyright  notice.  This  software  or  any  other 
copies  thereof  may  not  be  provided  or  otherwise  made  available  to  any 
otrer  person.  No  title  to  and  ownership  of  the  software  is  hereby 
transferred. 

The  information  in  this  software  is  subject  to  change  without  notice 
and  should  not  be  construed  as  a  commitment  by  Digital  Equipment 
Corporation. 

Digital  assumes  no  responsibility  for  the  use  or  reliability  of  its 
software  on  equipment  which  is  not  supplied  by  Digital. 

Module  description: 

State  table  to  parse  the  remote  characteristics 

Distributed  Systems  Software  Enginee-ing 

Ident  history: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


TMPFIL  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05 
MACRO  DEFINITIONS 
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MACRO  CROSS  REFERENCE  CREF       OA.OO 


MACRO  NAME 

REFERENCES 

DBGTPS 

#5-132 

#5-158 

#5-139 

#5-145 

#5-146 

#5-152 

#5-153 

#5-159 

#5-160 

#5-166 

#5-173 

#5-179 

#5-183 

#5-184 

#5-188 

#5-192 

#5-193 

EPRINT 

#'!.-67 

ERRORS 

#4-56 

6-226 

ISTATS 

#4-80 

5-1 32 

MTRANS 

#5-132 

PRINT 

#4-51 

RESRG 

#4-80 

SAVRG 
STATES 

#4-80 
#4-80 

5-134 

#5-136 

#5-141 

#5-143 

#5-148 

#5-150 

#5-155 

#5-157 

#5-162 

#5-164 

#5-171 

#5-177 

#5-181 

#5-186 

#5-190 

#5-195 

TRANS 

#4-80 

#5-135 

#5-137 

#5-138 

#5-139 

#5-142 

#5-144 

#5-145 

#5-146 

#5-149 

#5-151 

#5-152 

#5-153 

#5-156 

#5-158 

#5-159 

#5-160 

#5-163 

#5-165 

#5-166 

#5-172 

#5-173 

#5-178 

#5-179 

#5-182 

#5-183 

#5-184 

#5-187 

#5-188 

#5-191 

#5-192 

#5-193 
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TMPFEA     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:35 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 

CS.FEA 
C.DEV 
C.LEN 
C.STS 
C.WD1 
C.UD2 
C.WD3 
FEAKTB 
FEASTB 
SETDVl 
SETDV2 
SETWD1 
SETWD2 
SETWD3 
TEMP 
SALPHA 
$ANY 
SBLANK 
SCNFIG 
SDIGIT 
SDNUMB 
$EDS 
SERROR 
SEXIT 
SFAIL 
SGPRM 
SLAMDA 
SNUMBR 
$RAD50 
SRONLY 
SSTRNG 
SSUBXP 
STALOC 
STMFEA 
$$$FLG 
$$$KEY 
.PCHAR 
. PNUMB 
.PNUMH 
TPARS 
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PAGE  1 

CREF   04.00 


LUE 

REFERENCES 

****** 

GX 

6-147 

ooooo; 

#4-82 

♦7-172 

♦8-190 

OOOOK 

#4-86 

6-144 

****** 

GX 

•6-147 

000006 

#4-83 

♦9-211 

000010 

#4-84 

♦10-234 

000012 

#4-85 

♦11-256 

000000 

RG 

#5-95 

6-149 

000000 

RG 

#5-95 

6-150 

000056 

R 

#7-170 

000072 

R 

#8-188 

000106 

R 

#9-209 

000U2 

R 

#10-232 

000170 

R 

#11-254 

000000 

R 

#4-74 

♦6-146 

7-171 

OO0G22 

#5-95 

0C0020 

#5-95 

000006 

#5-95 

****** 

GX 

*9-212 

000024 

#5-95 

000014 

#5-95 

000012 

#5-95 

****** 

GX 

♦6-153 

000000 

#5-95 

\mn 

#5-95 

****** 

5-95 

000000 

#5-95 

000002 

#5-95 

000016 

#5-95 

****** 

5-95 

5-95 

5-95 

000004 

#5-95 

0000^'^' 

#5-95 

♦♦♦*** 

GX 

6-145 

000002 

RG 

#6-142 

177777 

#5-95 

Mini 

#5-95 

****** 

GX 

7-172 

8-190 

****** 

GX 

9-211 

9-212 

10-234 

****** 

GX 

9-213 

10-235 

11-257 

****** 

GX 

6-151 

8-189 


9-210 


10-233 


11-255 


11-256 


TMPFEA 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:35 
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TMPLLC  -  CfE  PARSE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85 
SETDEV  -  STORE  THE  PSEUDO  DEVICE  NAME 


u 
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306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 


.SBTTL  SETDEV  -  STORE  THE  PSEUDO  DEVICE  NAME 
*♦♦  -  SETDEV  -  STORE  THE  PSEUDO  DEVICE  NAME 
INPUT: 


.PSTPT  =  START  OF  THE  ASCII  DEVICE  NAME 
.PSTCN  =  COUNT  OF  THE  CHARS  IN  THE  DEVICE  NAME 


OUTPUT; 


C-BIT   =  SUCCESS/FAILURE 

THE   DEVICE   NAME    IS   STORED    IN   THE    TMPLATE   AT   C.DEV 


000270 
000270 
000274 
000302 
000310 
000316 
000320 
000324 


016700 
116760 
116760 
022767 
103002 
062716 
000207 


177506 

OOOOOOG  000012 
000001 G  000013 
000002  OOOOOOG 

000002 


SETDEV: 


10$: 


MOV 

MOVB 

MOVB 

CMP 

BHIS 

ADD 

RETURN 


TEMP,RO        ;  GET  START  OF  TEMPLATE 

. PSTPT, C.DEV(RO)  ;  STORE  THE  DEVICE  NAME 

.PSrPTt1,C.DEV+1(R0)  ;   ... 

#2,. PSTCN       ;  IS  THE  DEVICE  NAME  TOO  BIG  ? 

10$  ;  IF  HIS,  NO  -  OKAY 

#2,(SP)        ;  ELSE,  REJECT  THE  TRANSITION  (SETS  C-BIT) 


K  9 
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SETNLT  -  SET  NUMBER  Of  LINE  TABLES  TO  ALLOCATE  SPACE  FOR 
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TMPLOG  -  CFE  PARSE  LOGGING  STAT  MACRO  705. 03b  Saturday  29-Jun-85  05:36  Page  6 
STATE  TABLE 

93  .SBTTL  STATE  TABLE 

95  ;  INITIALIZE  TABLE  GENERATION 

9^  •**** 

97 
98 

99  000002  ISTATS  LOGSTB.LOGKTB 

100 

102  000002  STATES 

103  000002  TRANS  SNUM8R, , SETSTA 
lO'i 
105 

106  ;  EXIT  STATE 

107 

108  000002  STATES  EXIT 

109  000002  TRANS  SEOS.SEXIT 
110 
111  000002  STATES 


K  10 

TMPLOG  -  CFE  PARSE  LOGGING  STAT  MACRO  V05.03b  Saturday  29-Jun-85  05:36  Page  7 
STMLOG  -  SETUP  LOGGING  TEMPLATE 
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SETNID  -  SET  UP  NODE  ID 


i5:i'i 


215 
216 
217 
218 
219 
220 
221 
222 
223 
22A 
225 
226 
227 
228 
229 
230 

231  000166 

232  000166 

233  000172 
23A  000176 

235  000202 

236  000206 

237  000210 

238  000212 

239  0002U 

240  000220 
2A1  000226 

242  000230 

243  000234 


.SBTTL  SETNID  -  SET  UP  NODE  ID 

••*  -  SETNID  -  SETUP  NODE  ID 

THIS  ACTION  ROUTINE  SETS  UP  THE  NODE  ID. 

INPUT: 

.PSTPT  =  START  ADDRESS  OF  THE  NODE  ID 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  NODE  ID 
TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C.NID  =  LENGTH  OF  NODE  ID  FOLLOWED  BY  THE  NODE  ID. 


SETNID: 


016700  177606 
062700  000010 

016701  OOOOOOG 

016702  OOOOOOG 
005302 

010220 

001402 

004767  OOOOOOG 

022767  000041  OOOOOOG  10$: 

103002 

062716  000002 

000207  20$: 


MOV 

ADD 

MOV 

MOV 

DEC 

MOV 

BEQ 

CALL 

CMP 

BHIS 

ADD 

RETURN 


TEMP.RO 

#C.NID,RO 

. PSTPT, Rl 

. PSTCN, R2 

R2 

R2,(R0)t 

10$ 

$MVASC 

#33., .PSTCN 

20$ 

#2,(SP) 


GET  START  ADDRESS  OF  WHERE  TO  STORE  ID 

GET  START  OF  INPUT  STRING 

AND  LENGTH  OF  STRING 

SKIP  THE  '> 

STORE  THE  NODE  ID  LENGTH 

IF  EQ,  ZERO  LENGTH  STRING 

MOVE  THE  NODE  ID  INTO  THE  TEMPLATE 

IS  THE  NODE  ID  TOO  BIG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 


K  11 

TMPNOD  -  CFE  PARSE  NODE  DEFINIT  MACRO  V05.05b  Saturday  29-Jun-85  05:37  Page  9 
SETNID  -  SET  UP  NODE  ID 


TMPOBJ  - 

CFE  PA 

!SE  OBJE 

;t  defin  macro  v05 

STMOBJ  - 

SETUP 

OBJECT  TEMPLATE 

K6 

U7 

U8 

1A9 

150 

151 

152 

153 

15^ 

155 

156 

157 

158 

159 

000002 

! 

160 

000002 

010546 

161 

000004 

012701 

000013 

162 

000010 

004767 

OOOOOOG 

163 

OOOOU 

010067 

177760 

164 

000020 

012760 

OOOOOOG  OOOOOOG 

165 

000026 

005060 

000006 

166 

000032 

005060 

000010 

167 

000036 

112760 

000001  000012 

168 

000044 

005001 

169 

000046 

012702 

000000' 

170 

000052 

012705 

000000- 

171 

000056 

004767 

OOOOOOG 

172 

000062 

103002 

173 

000064 

005267 

OOOOOOG 

17A 

000070 

016700 

177704 

175 

000074 

004767 

000016 

176 

000100 

004767 

OOOOOOG 

177 

000104 

062767 

OOOOOOG  OOOOOOG 

178 

000112 

012605 

179 

000114 

000207 

h]l7 
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.SBTTL  $TM08J  -  SETUP  OBJECT  TEMPLATE 

'*♦*  -  $TM08J  -  SETUP  OBJECT  TEMPLATE 

INPUT; 

R3-R5   -  TPARS  REGISTERS 

OUTPUT; 

C-BIT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  OBJECT  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


ITMOBJ; 


20$; 


MOV  R5,-(SP) 

MOV  #C.LEN,R1 

CALL  STIALC 

MOV  RO.TEMP        , 

MOV  *CS.OBJ,C.STS(RO) 

CLR  C.NAM(RO) 

CLR  C.NAM+2(R0) 

MOVB  *1,C.CPY(R0) 

CLR  Rl 

MOV  #0BJKTB,R2 

MOV  *0BJSTB,R5 

CALL  .TPARS 

BCC  20$ 

INC  $ERROR 

MOV  TEMP,RO 

CALL  FINOBJ 

CALL  $QINSN 

ADD  *O.LENX,$BVTMN 

MOV  (SP)t,R5 

RETURN 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  AN  OBJ$DF  TEMPLATE 

ASSUME  OBJECT  TYPE  ZERO  -  NO  NAME 

ASSUME  COPIES  FIELD  IS  ABSENT 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RETRIEVE  TEMPLATE  ADDRESS 

FIND  PLACE  FOR  THE  OBJECT  DEFINITION 

INSERT  ENTRY  INTO  QUEUE 

UPDATE  MINIMUM  POOL  BYTE  EXTENSION 

RESTORE  R5 
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TMPOBJ  -  CFE  PARSE  OBJECT  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05;37 
FINOBJ  -  FIND  NEXT  OBJECT  IN  SORTED  LIST 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

6'!. 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A  000000 

75  000002 

76 

77 

78 

79  000000 

80  000000 

81  000000 

82  000002 

83  000004 

84  000006 

85  000010 

86  000012 

87  OOOOK 

88  000016 
89 
90  OOOOOA 


^51^ 
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000020 


91 


•  «  *  •  « 

;  LOCAL 

MACROS 

;  ♦  *  *  * 

.MACRO 

PRINT   TEXT 

MOV 

TEXT.RO 

CALL 

SPRINT 

.ENDM 

PRINT 

■  **** 

;  MACRO 

CALLS 

;  ♦»«» 

.MCALL 

ISTATt, STATE 

•  **** 

;  LOCAL 

DATA 

;  *  *  *  * 

FLAG: 

.BLKW 

1 

TEMP: 

.BLKW 

1 

';    DEFINE  PARTITION  TEMPLATE 

' 

.ASECT 

.=0 

.BLKW 

.BLKW 

C.NAMO: 

.BLKW 
.BLKW 

C..MAM1: 

.BLKW 
.BLKW 

C.EXT: 

.BLKW 

CALL: 

.BLKW 

C.LEN=. 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.PSECT 


FLAGS  WORD 

ADDRESS  OF  DLC  TEMPLATE 


C.LNK 
C.STS 
POOL  PARTITION  NAME  (RAD50) 


DYNAMIC  PARTITION  TO  CREATE  POOL  FROM 

(2  WORDS  -  RAD50) 
POOL  EXTENSION  SIZE 
NUMBER  OF  BLOCKS  TO  ALLOCATE  FOR  SINGLE  WORD  STORAGE 
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TMPPSN  -  PARSE   PSN   IN  CETAB 
Table  ot  contents 


MACRO  V05.05b   Saturday   29-Jun-85 


i   1* 

05:3 


38 


4-  57  MACRO  DEFINITIONS 

5-  126  LOCAL  DATA 

6-  15-;  TPARS  STATE  TABLES 

7-  2U  STMPSN  -  BUILD  PSN  TEMPLATE 

7-  261  SETNAM  -  SET  PSN  NAME  IN  TEMPLATE 

7-  262  SETPOR  -  SET  NUMBER  OF  PORTS  IN  TEMPLATE 

7-  265  SETFLG  -  SET  FLAGS  IN  TEMPLATE 

7-  26A  SETTHl  -  SET  TRANSPORT  HIGH  ADDRESS  IN  TEMPLATE 

7-  265  SETT^O  -  SET  TRANSPORT  LOU  ADDRESS  IN  TEMPLATE 


LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
L 
L 
Li 
L, 
L 
L 
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TMPPV.  -  PARSE  PERMANENT  VIRTUA  MACRO  V05.05b  Saturday  29-Jun-85 
Table  ot  contents 
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TMPPVC     CREATED  Bv  MACRO  ON  29-JUN-85  AI  05:39 

SYMBOL  CROSS  REFERENCE 

SYMBOL 

SGTNMB 

$GTNUM 

$GTR50 

SLAMDA 

tNUMBR 

$RAD50 

SRONLY 

SSTRNG 

tSUBXP 

STALOC 

STMPVC 

$$$FLG 

$$$KEY 

.ERROR 

.FLAGS 

.TEMP 

.TPARS 


J  16 


VALUE 

REFERENCES 

r     ****** 

r,x 

7-332 

8-350 

8-352 

.-.     **»»•♦ 

GX 

7-320 

7-326 

r     ****** 

GX 

7-316 

7-330 

8-348 

=  000000 

#6-154 

=  000002 

#6-154 

=  000016 

#6-154 

r     ****** 

6-154 

6-154 

6-154 

=  OOOOOA 

#6-154 

=  000010 

#6-154 

r      ****** 

GX 

7-264 

00035A 

RG 

#7-261 

=    177777 

#6-   54 

=   Mllll 

#6-54 

-   ****** 

GX 

•7-269 

•7-284 

7-285 

r     ****** 

GX 

•7-267 

7-326 

7-328 

~     ****** 

GX 

♦7-265 

7-281 

7-322 

-     ****** 

GX 

7-276 
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CREF   04.00 

7-328 


7-3J0 


7-332 
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MACRO  DEFINITIONS 
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1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 


K  1 

Saturday  29-Jun-85  05:32 

MOV  LEN.RI 

.IF  N8  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  $GTR50 

.ENDM 


MACRO  CALLS 

.MCALL   ISTAT$, STATES, TRAN$,CALLR 


L  1 

TMPDSA  -  PARSE  DESTINATION  AL^DR  MACRO  V05.03b  Saturday  29-Jun-85  05:32 
LOCAL  DATA 
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TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.03b  Saturday  29-Jun-85  05 
LOCAL  DATA 


-.1 
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126 
127 
128 
129 
130 

131  000004 

132  000000    004 

133  000032    004 

134  000065     004 
135 

136 


.SBTTL  LOCAL  DATA 
.NLIST  BEX 

SYNTAX  ERROR  DETAIL  STRINGS 


103 
103 
103 


106 
106 
106 


ERRMSK 
ERRVAL 
ERRLEN 


EXSSEV 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 


<EX$SEV>/CFE  —  Illegal  call  mask/ 

<EX$SEV>/CFE  —  Illegal  call  value/ 

<EX$SE\/>/CFE  —  Call  mask  and  call  walue  are  different  lengths/ 

BEX 


TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.0?b  Saturday  29-Jun-85  05:32 
TPARS  STATE  TABLES 
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TMPDST  -  PARSE  DESTINATION  DESC 
TPARS  STATE  TABLES 

156 

157 

158 

159 

160 

161  00022^ 

162 

163 

16^ 

165  00022A 

166  000224 

167  00022A 

168  000224 

169  000224 

170  000224 

171  000224 
172 
171 

174  000224 

175  000224 

176  000224 

177  000224 
178 
179 

180  000224 

181  000224 

182  000224 

183  000224 
184 
185 

186  000224 

187  000224 

188  000224 

189  000224 

190  000224 
191 
192 

193  000224 

194  000224 

195  000224 

196  000224 
197 
198 
199 
200 

201  000224 
202 


MACRO  V05.03b  Saturday  29-Jun-85  05:33  Page  6 

.SBTTL  TPARS  STATE  TABLES 
INITIALIZE  TABLES 


ISTATS  DSTSTB,  DSTKTB 
PROCESS  "DSTSDF" 

STATES  ;  TYPE 

TRANS  SLAMDA, ,SCLERR,ERRTYP, .ERROR 
STATES 

TRANS  XX25i!,DST1,SETTYP 

TRANS  J1X29!(,DST1,SETTYP 

STATES  DST1 

TRANS  <',>,,SCLERR,ERRNAM,. ERROR 


STATES  ;  NAME 

TRANS  SSTRNCSETNAM 
STATES 

TRANS  <',>,,SCLERR,ERRPRI,. ERROR 


STATES  ;  PRIORITY 

TRANS  $NUM8R,,SETPRI 
STATES 

TRANS  <',>,,SCLERR,ERROBJ,. ERROR 


STATES  ;  OBJECT 

TRANS  SNUM8R,,SET0BJ 
STATES 

TRANS  SEOS.SEXIT 

TRANS  <',>,,$CLERR,ERRTSK,. ERROR 


STATES 

TRANS  $RAD50,,SETTSK 
STATES 

TRANS  SEOS.SEXIT 


OPTIONAL  TASKNAME 


FINAL  STATE 
STATES 


TMPDST  -  PARSE  DESTINATION  DESC  MACRO  V05.03b  Saturday  29-Jun-85 
STMDST  -  BUILD  DST  TEMPLATE 


^5:- 
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TMPDTE  -  PARSE  LOCAL  DTE  DESCRI  MACRO  V05.03b  Saturday  29-Jun-85  05:33  Page  6-1 
TPARS  STATE  TABLES 

216  00026^ 

217 

218 

219 

220  000264 

221  000264 

222  000264 

223  000264 

224  000264 

225  000264 

226  000264 

227  000264 

228  000264 

229  000264 

230  000264 

231  000264 
252  000264 

233  000264 

234  000264 

235  000264 

236  000264 
237 
238 
239 

2A0  000264 
241 


TRANS 

SLAMDA.SEXIT 

SUBEXPRESSION 

TO  PARSE  LINE  ID 

STATES 

LINID 

TRANS 

SSTRNCSETDEV 

STATES 

LIN1 

TRANS 

<•-> 

STATES 

TRANS 

SDNUM8,,SETC0N 

STATES 

TRANS 

<'->,LIN3 

TRANS 

<'.>,LIN4 

TRANS 

SLAMDA.SEXIT 

STATES 

LIN3 

TRANS 

$DNUflB,,SETUNI 

STATES 

TRANS 

<'.>,LIN4 

TRANS 

SLAMDA,$EXIT 

STATES 

LIN4 

TRANS 

$DNUMB,SEXIT,SETTRB 

FINAL  STATE 

STATES 

.■DEVICE   NAME 


; CONTROLLER  NUMBER 


.-OPTIONAL   UNIT     NUMBER 


.-OPTIONAL   TRIBUTARY  NUMBER 


TMPDTE   -  PARSE   LOCAL  DTE   DESCRI   MACRO  V05.03b   Saturday  29-Jun-85 
STMDTE    -  BUILD   DTE    TEMPLATE 
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TMPEVT  -  CFE  PARSE  EVENT  DEFIN 

STATE  TABLE 

100 

101 

102 

103 

104 

105 

106 

107  OOOOOA 

108 

109 

110  000004 

ni  000004 

112 

113  000004 

114  000004 

115 

116  000004 

117  000004 

118 

119  000004 

120  000004 

121 

122  000004 

123  000004 

124 

125  000004 

126  000004 

127  000004 

128  000004 

129 

130  000004 

131  000004 

132 

133 

134 

135 

136  000004 

137  000004 

138 

139  000004 

140  000004 

141  000004 

142 

143  000004 

K  5 

MACRO  V05.03b  Saturday  29-Jun-85  05:34  Page  6 

.SBTTL  STATE  TABLE 


INITIALIZE  TABLE  GENERATION 


ISTATS  EVTSTB.EVTKTB 


STATES 
TRANS  $NJM8R,,SETCLS 

STATES 
TRANS  <',> 

STATES 
TRANS  L8RA 

STATES 
TRANS   lEVTMSK 

STATES 
TRANS  <',> 

STATES 

TRANS  "CONSOLE  , EXIT, SETCON 

TRANS  "FILE", EXIT, SETFIL 

TRANS  "MONITOR",,SETMON 

STATES  EXIT 
TRANS  SEOS.SEXIT 


EVENT  MASK  SUB-EXPRESSION 

STATES  EVTMSK 

TRANS  $NUMBR,,SETMSK 

STATES 

TRANS  RBRA.SEXIT 

TRANS  <•,>, EVTMSK 

STATES 


TMPEVT  -  CFE  PARSE  EVENT  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:34 
STMEVT  -  SETUP  EVENT  TEMPLATE 
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TMPFIL  -  CFE  PARSE  REMOTE 
MACRO  DEFINITIONS 

47 

A8 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

n 

78 
79 
80 
81 
82 
83 
84 

85  000000 

86  000000 

87  000000 

88  000002 

89  000004 

90  000006 

91  000010 

92  000012 

93  000014 

94  000016 

95  000000 
96 
97 
98 
99 

100 

101        000036 

102 


K  6 
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.S8TTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV     TEXT.RO 

.ENDC 

CALL    SCFER1 

.ENDM   EPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.SBTTL  Macro  caUs  and  local  data 
.MCALL   I  STATS, STATES, TRANS, SAVRG.RESRG 

Define  FILSDF  template 

.ASECT 

.  =  0 

.8LKW 

.8LKU 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 


FSSEC: 

FSTER: 

FSLD: 

FSDIA: 

FSDUM: 

F$LEN= 


Link 

Flags 

Secondary  loader  file  name 

Tertiary  loader  file  name 

Load  file  name 

Diagnostics  f i le  name 

Dump  f i le  name 


.PSECT 


Define  file  descriptor  offsets 

MXFSP   -■  30.  ;  Filespec  string  length 


TMPFIL  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85 
Macro  calls  and  local  data 
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MACRO  CROSS   REFERENCE  CREF       OA.OO 


5-95 


MACRO  NAME 

REFERENCES 

DBGTP$ 

#5-95 

ISTATS 

#A-68 

MTRANS 

#5-95 

PRIMT 

#4-59 

STATES 

#4-68 

#5-127 

TRANS 

#4-68 

5-98     #5-101    #5-104    #5-107    #5-110    #5-113    #5-116    #5-119    #5-124 
/,5-99     #5-102     #5-105     #5-108     #5-111     #5-114     #5-117     #5-120     #5-125 


L  8 

**F!LE**1D««TMPLLC 


TMPLLC  - 
SETNLT  - 

329 
330 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
340 
341 
342 
343 
544 
345 
346 
347 
348 
349 


K  9 

CFE  PARSE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:35 
SET  NUMBER  OF  LINE  TABLES  TO  ALLOCATE  SPACE  FOR 
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.SBTTL  SETNLT  -  SET  NUMBER  OF  LINE  TABLES  TO  ALLOCATE  SPACE  FOR 

*♦*  -  SETNLT  -  NUMBER  OF  LINE  TABLE  TO  ALLOCATE  SPACE 

INPUTS: 

.PNUMB  =  NUMBER  OF  LINE  TABLES  TO  ALLOCATE  SPACE 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUTS: 

NUMBER  IS  STORE  IN  C.NLT  OF  THE  TEMPLATE 
TRANSITION  IS  ACCEPTED/REJECTED 


000326 

000326  016700  177450 

000332  116760  OOOOOOG  000014 

000340  026727  OOOOOOG  OOOOOOG 

000346  101402 

000350  062716  000002 

000354  000207 


SETNLT: 


10$: 


MOV 

TEMP,RO 

M0V8 

. PNUMB, C.NLT(RO) 

CMP 

.  PNUMB, #$MXNLT 

BLOS 

10$ 

ADD 

*2,(SP) 

RETURN 

GET  THE  TEMPLATE  ADDRESS 
;  STORE  THE  NUMBER  OF  LINE  TABLES 
IS  THE  NUMBER  IN  RANGE  ? 
IF  LOS,  YES  ..  OKAY 
ELSE,  REJECT 


L  9 
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113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 

126  000002 

127  000002 

128  000004 

129  000010 

130  OOOOU 

131  000020 

132  000026 

133  000032 

134  000036 

135  000040 

136  000044 

137  000046 

138  000052 

139  000054 


010546 
012701 
004767 
010067 
012760 
012702 
012705 
005001 
004767 
103002 
005267 
012605 
000207 


.S8TTL  STMLOG  -  SETUP  LOGGING  TEMPLATE 
•*»  -  STMLOG  -  SETUP  LOGGING  TEMPLATE 
INPUT; 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


STMLOG: 


000005 

OOOOOOG 

177760 

OOOOOOG 

000000' 

000000' 

OOOOOOG 

OOOOOOG 


OOOOOOG 


20S: 


C-aiT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  OBJECT  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 
,  STORE  TEMPLATE  ADDRESS 
C.STS(R05  ;  INDICATE  THAT  THIS  IS  A  LOGSST  TEMPLATE 
R2     ;  KEYWORD  TABLE 
R5      ;  STATE  TABLE 

IGNORE  B'-ANKS 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


MOV 

R5,-(SP) 

MOV 

#C.LEN,R 

CALL 

STALOC 

MOV 

RO.TEMP 

MOV 

#CS.LOG, 

MOV 

#LOGKTB, 

MOV 

#LOGSTB, 

CLR 

Rl 

CALL 

.TPARS 

BCC 

20S 

INC 

SERROR 

MOV 

(SP)t,R5 

RETURN 


TMPLOG 
SETSTA 


CFE  PARSE  LOGGING  STAT  MACRO  V05.03b  Saturday  29-Jun-85  05:36  Page  8 


SET  UP  LOGGING  STATE 
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245 

+ 

246 

***  - 

SETNNA 

-  SET  NODE  NUMBER 

AREA 

247 

248 

INPUT 

249 

■.PNUM8 

=  NODE  NUMBER 

250 

.PNUMH 

=  NODE  NUMBER  (HIGH  ORDER) 

l\\ 

OUTPUT: 

253 

NUMBER 

IS  STORED  IN  C.NUM  OF  TEMPLATE 

254 

255 
256 
257  000236 

~ 

5ETNNA: 

258  000236 

016700 

177536 

MOV 

lEMP.RO 

POINT  RO  AT  TEMPLATE 

259  000242 

016701 

OOOOOOG 

MOV 

.PNUMB.RI 

PICK  UP  AREA  NUMBER 

260  000246 

001416 

BED 

5$ 

BR  IF  TOO  LOW 

261  000250 

020127 

000077 

CMP 

R1,#63. 

TOO  HIGH  ? 

262  000254 

101013 

BHI 

5$ 

IF  HI,  ERROR 

263  000256 

000301 

SWAB 

R1 

DIDDLE  WITH  FORMAT 

264  000260 

006301 

ASL 

R1 

265  000262 

006301 

ASL 

R1 

266  000264 

010160 

000052 

MOV 

R1,C.NUM(R0) 

STORE  THE  NODE  NUMBER 

267  000270 

010167 

OOOOOOG 

MOV 

R1,$NTADD 
#NO$EXA,C.STS(R0 

...  TWICE 

268  000274 

052760 

OOOOOOG  OOOOOOG 

BIS 

;  REMEMBER  WE  SAW  AN  AREA 

269  000302 

000402 

BR 

10$ 

270  000304 

062716 

000002 

5$: 

ADD 

#2,(SP) 

ELSE,  REJECT  THE  TRANSITION 

271  000310 

000207 

10$: 

RETURN 

272 

L  11 
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SETNID  -  SET  UP  NODE  ID 
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TMPOBJ  - 

CFE  PAR 

FINOSJ  - 

FIND  NE 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

000116 

19A 

000116 

195 

000122 

196 

000 12A 

197 

000126 

198 

000130 

199 

000136 

200 

OOOUO 

201 

000K6 

202 

000150 

K  1< 
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.S8TTL  flNOBJ  -  FIND  NEXT  OBJECT  IN  SORTED  LIST 

'»♦*  -  FINOSJ  -  FIND  NEXT  OBJECT  IN  SORTED  LIST 

INPUTS: 

RO  =  TEMPLATE  TO  BE  INSERTED 

OUTPUTS: 

Rl  =  ADDRESS  OF  TEMPLATE  TO  PRECEED  CURRENT  TEMPLATE 


012702 
010201 
011202 
OOUIO 
122762 
001371 
126062 
103365 
000207 


OOOOOOG 


FlNOBJ: 
lOS: 


OOOOOOG  OOOOOOG 
000004  000004 


20$: 


MOV  *$TMLST,R2 

MOV  R2,R1 

MOV  (R2),R2 

BED  20$ 

CMP8  #CS.0BJ,C.STS(R2) 

BNE  10$ 

CMPB  C.TVP(R0),C.TYP(R2) 

BHIS  10$ 

RETURN 


GET  START  ADDRESS  OF  TEMPLATES 
SAVE  ADDRESS  OF  PREVIOUS 
GET  NEXT  TEMPLATE  IN  LIST 
IF  EQ,  END  OF  LIST 
IS  THIS  A  OBJECT  TEMPLATE  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
ELSE,  DOES  TEMPLATE  60  HERE  ? 
IF  HIS,  NO  ..  KEEP  LOOKING 
ELSE,  OKAY 
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SETVPE  -  SETUP  OBJECT  TYPE 
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95 
94 
95 
96 

97  000004 

98 

99  000004 

100  000004 

101  000004 
102 

103  000004 

104  000004 
105 

106  000004 

107  000004 
108 

109  000004 

110  000004 


111 
112 
113 
114 
115 


000004 
000004 


000004 

116  000004 

117  000004 
118 

119  000004 

120  000004 

121  000004 
122 

123  000004 

124  000004 

125  000004 
126 

127  000004 

128  000004 

129  000004 

130  000004 
131 

132  000004 

133  000004 
"     000004 


134 
135 
136 
137 
138 

139  000004 

140  000004 

141  000004 
142 
143 
144 
145 
146 
147 

148 

149  000004 


000004 
000004 


000004 
000004 


•  INITIALIZE  TABLE  GENERATION 


ISTATS 

PARSTB.PARKTB 

STATES 
TRANS 
TRANS 

SRAD50,NEXr,SETNM0 
SLAMDA 

STATES 
TRANS 

NEXT 

STATES 
TRANS 

$RAD50,,SETNM1 

STATES 
TRANS 

<',> 

STATES 
TRANS 

$NUMBR,,SETEXT 

STATES 
TRANS 
TRANS 

<',>,TOP 
TLAMDA.EXIT 

STATES 
TRANS 
TRANS 

TOP 

"T0P",UMRS,,CS. TOP, FLAG 

SLAMDA 

STATES 
TRANS 
TRANS 

UMRS 

SEOS.EXIT 
<'  ,> 

STATES 
TRANS 
TRANS 
TRANS 

SNUMBR,ALLC 
"NONE",ALLC 
SLAMDA 

STATES 
TRANS 
TRANS 

ALLC 
<',>,ALL 

SLAMDA, EXIT 

STATES 
TRANS 

ALL 
SNUMBR,5BCHK,SETALL 

STATES 
TRANS 
TRANS 

S8CHK 
SEOS.EXIT 
<'  .> 

STATES 
TRANS 

"S8P00L",EXIT 

EXIT  STATE 

STATES 

EXIT 

TMPPAR  -  CFE  PARSE  PARTITION  DE  MACRO  V05.03b  Saturday  29-Jun-85  05:38  Page  5-1 
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1 
2 
3 

A 
5 
6 
7 
8 
9 

10 

11 

:2 

13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
1,0 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE   TMPPSN  -  PARSE  PSN  INI  CETAB 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION; 

STATE  TABLE  TO  PARSE  THE  PSN  DEFINITION 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI .1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


TMPPSN  -  PAR'E  PSN  IN  CETAB 
MACRO  DEFINI ; IONS 
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IMPPVf    -  PARSE   PERMANENI    VlRIUA  MACRO  V05.0?b   Saturday  ?9-Jun-85 
lable   ot   contents 


IS. 


A- 

57 

MACRO  DEFINIIIONS 

S- 

1?8 

LOCAl  PATA 

«=,- 

U9 

TPARS  STATE  TABLES 

7- 

246 

$TMPVC  -  BUILD  PVC  TEMPLATE 

f- 

29^ 

SETNAM  -  SET  PVC  NAME 

f- 

29A 

SETLCN  -  SET  LOGICAL  CHANNEL  NUMBER 

Z- 

295 

SETCT  -  SET  COUNTER  TIMER 

7- 

296 

SETPSZ  -  SET  MAXIMUM  BLOCK  SIZE 

7- 

297 

SETWS2  -  SET  WINDOW  SIZE 

7- 

298 

SETOWN  -  SET  OWNER  PROCESS 

7- 

299 

SETFLG  -  SET  FLAGS  BYTE 

7- 

500 

SET5TA  -  SET  PVC  STATE 

a- 

535 

SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 

R- 

556 

SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 

8- 

557 

SETTRB  -  SET  TR18  NUMBER  IN  LINE  ID 

L  15 
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THPPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:59     PAGE  5 

MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

CALLR 
DBGTPI 

#4-124 
#6-154 

#6-162 

#6-184 

#6-187 

#6-r3 

#6-197 

#6-203 

#6-207 

#6-213 

#6-217 

EPRINT 

#4-78 

ERRORt 

#4-67 

7-287 

ISTAT$ 

#4-124 

6-154 

MTRAN$ 

#6-154 

PRINT 
STATES 

#4-62 
#4-124 

6-158 

#6-160 

#6-163 

#6-166 

#6-168 

#6-170 

#6-173 

#6-175 

#6-177 

#6-180 

#6-182 

#6-185 

#6-189 

#6-191 

#6-195 

#6-199 

#6-201 

#6-205 

#6-209 

#6-211 

#6-215 

#6-219 

#6-221 

#6-225 

#6-229 

#6-231 

#6-233 

#6-235 

#6-237 

TRAN$ 

#6-24  5 
#4-124 

#6-159 

#6-161 

#6-162 

#6-164 

#6-167 

#6-169 

#6-171 

#6-174 

#6-176 

#6-178 

#6-181 

#6-183 

#6-184 

#6-186 

#6-187 

#6-190 

#6-192 

#6-193 

#6-196 

#6-197 

#6-200 

#6-202 

#6-203 

#6-206 

#6-207 

#6-210 

#6-212 

#6-213 

#6-216 

#6-217 

#6-220 

#6-222 

#6-224 

#6-230 

#6-232 

#6-234 

#6-236 

#6-238 

SGTNMB 

#4-100 

7-352 

8-550 

8-352 

SGTNUM 

#4-90 

7-318 

7-320 

7-326 

7-328 

$GTR50 

#4-112 

7-316 

7-330 

8-348 

♦*F!LE«»1D»«TMPRDT 
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126 

127  000000 

128 

129 

130 

131 

152 

133  000000 

13A  00004'^ 

135  0001 n 

136  000157 
137 

158 


OOOOOi 
OOA 
OOA 
004 
C04 


.SBTTL  LOCAL  DATA 

.PSECT 

.NLIST  BEX 

SYNTAX  ERROR  DETAIL  STRINGS 


105 
103 
103 
103 


106  ERRNUM 

106  ERRSLO 

106  ERRSHI 

106  ERRCUG 


EXSSEV  =  A  .         , 

.ASCIZ  <EX$SEV>/CFE  —  Illegal  destination  address/ 

.ASCIZ  <EX$SE""  ^FE  ~  Illegal  subaddress  low  range/ 

.ASCIZ  <EX$SEV>/CFE  —  Illegal  subaddress  high  range/ 

.ASCIZ  <EX$SEV>/CFE  —  Illegal  CUG  name/ 
.EVEN 

.LIST  BEX 


M  1 

TMPDift  -  OARSE  DESTINATION  ADDR  MACRO  V05.03b  Saturday  29-Jun-85  05:32  Page  6 
tpa;)S  STATE  TABLES 
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TPARS  STATE  TABLES 


138 

139 

UO 

HI 

K2 

K3  000154 

K4 

U5 

U6 

U7 

U8  000154 

149  000154 

150  000154 

151  000154 

152  000154 

153  000154 

154  000154 
155 

156  000154 

157  000154 

158  000154 

159  000154 

160  000154 

161  000154 

162  000154 
163 

164 
165 

166  000154 

167  000154 

168  000154 

169  000154 

170  000154 
171 

172  000154 

173  000154 

174  000154 

175  000154 

176  000154 

177  000154 

178  000154 

179  000154 
180 

IS'' 

182 

183  000''54 

184 


.SBTTL 

TPARS  STATE  TABLES 

;  INITIALIZE  TABLES 

ISTATS 

DSCSTB,  DSCKTB 

;■  PROCESS  "DSCSDF" 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

SLAMDA,,       SCLERR, 

SEOS,   SEXIT 

ICALL,,         SETMSK 

<  ,> 

;  CALL 
ERRMSK 

MASK 
.ERR 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

DSCl 

SLAMDA,, SCLERR.  ERRVAL, 

SEOS,   SEXIT 

ICALL,,         SETVAL 

SEOS,    SEXIT 

;  CALl 
.ERROR 

VALUE 

;  SUBEXPRESSION 

TO  PARSE  CALL  STRING 

STATES  CALL 

TRANS  IHEXDIG 

STATES  CALLI 

TRANS  IHEXDIG, CALLI 

TRANS  SLAMDA,  SEXIT 


STATES 

HEXDIG 

TRANS 

SDIGIT, 

SEXIT 

TRANS 

<'A>, 

SEXIT 

TRANS 

<'8>, 

SEXIT 

TRANS 

<'C>, 

SEXIT 

TRANS 

<'D>, 

SEXIT 

TRANS 

<'E>, 

SEXIT 

TRANS 

<'F>, 

SEXIT 

;  FINAL  STATE 

STATES 


TMPDSf  -  BARSE  DESTINATION  CALL  MACRO  VO5.03b  Saturday  29-Jun-85  05 
STMDSC  -  BUILD  DSC  TEMPLATE 
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STMDST   -  BUILD   DST    TEMPLATE 
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204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 

219  00022A 

220  00022A 

221  000226 

222  000232 

223  000236 

224  000242 

225  000244 

226  000250 

227  000254 

228  000262 

229  000266 

230  000270 

231  000274 

232  000300 

233  000304 

234  000306 

235  000312 

236  000314 

237  000320 

238  000326 

239  000332 

240  000334 
241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259  000336 

260 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
062767 
005067 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SSTTL  STMDST  -  BUILD  DST  TEMPLATE 

♦*♦  -  STMDST  -  BUJLD  DST  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TFARS. 

INPUT: 

R3-R5   -  TPARS  REGISTERS 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

THE  DST  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


STMDST: 


000020 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


MOV 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

ADD 

CLR 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERROR$ 

MOV 

INC 

MOV 

RETURN 

.SBTTL 
.SBTTL 
.S8TTL 
.SBTTL 
.SBTTL 


R5,-(SP) 

#C.LEN,R1 

$TALOC 

RO,.TEMP 

(R0)  + 

RO, .FLAGS 

#CS.DST,(RO) 

#D$FLNX,$BYTMN 

.ERROR 

R1 

#DSTKTB,R2 

#DSTSTB,R5 

.TPARS 

20$ 

. ERROR, RO 

15$ 

RO 

#-2,$ERR0R 

SERROR 

(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  DST$DF  TEMPLATE 

UPDATE  MINIMUM  ALLOCATION 

NO  ERROR  DETAIL  YET 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


SETTYP  -  SET  DESINATION  TYPE 

SETNAM  -  SET  DST  NAME 

SETPRI  -  SET  PRIORITY 

SETOBJ  -  SET  OBJECT  NUMBER 

SETTSK  -  SET  TASK  NAME 


**  SETTYP  -  SET  DESINATION  TYPE 

**  SETNAM  -  SET  DST  NAME 

♦♦  SETPRI  -  SET  PRIORITY 

*♦  SETOBJ  -  SET  OBJECT  NUMBER 

♦♦  SETTSK  -  SET  TASK  NAME 

INPUTS        .TPARS  VARIABLES. 

OUTPUT       VALUE  SET  IN  TEMPLATE. 

SETTYP:  $GTR50  #C.TYP,*1 


IMPOST  -  PARSE  DESTINATION  DESC  MACRO  V05.03b  Saturday  29-Jun-85  05 
SETTSK  -  SET  TASK  NAME 


:] 
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TMPDTE 
STMDTE 


PARSE  LOCAL  DTE  DESCRl  MACRO  V05.03b  Saturday  29-Jun-85 
BUILD  DTE  TEMPLATE 
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2A3 
24^ 
2^5 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 

258  000264 

259  000264 

260  000266 

261  000272 

262  000276 

263  000302 

264  000304 

265  000310 

266  000314 

267  000320 

268  000324 

269  000332 

270  000334 

271  000340 

272  000344 

273  000350 

274  000352 

275  000356 

276  000360 

277  000364 

278  000372 

279  000376 

280  000400 
281 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
005067 
005067 
062767 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SBTTL  STMDTE  -  BUILD  DTE  TEMPLATE 

•**  -  STMDTE  -  BUILD  DTE  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BV  TPARS. 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


C-8IT  =  SUCCESS/FAILURE 

THE  CHANNEL  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


STMDTE:: 


000040 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

177736 

OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


MOV 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

CLR 

CLR 

ADD 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERRORS 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

#C.LEN,R1 

STALOC 

RO,.TEMP 

(R0)  + 

RO, .FLAGS 

#CS.DTE,(RO) 

.ERROR 

STA 

#L$LENX,$3YTMN 

R1 

#DTEKTB,R2 

#DTESTB,R5 

.TPARS 

20$ 

. ERROR, RO 

15$ 

RO 

*-2,$ERR0R 

SERROR 

(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  DTESDF  TEMPLATE 

NO  ERROR  DETAIL  YET 

ASSUME  STATE  =  OFF 

UPDATE  MINIMUM  ALLOCATION 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


n  4 
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STMEVT  -  SETUP  EVENT  TEMPLATE 
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U5 

K6 

K7 

U8 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158  000004 

$ 

159  000004 

010546 

160  000006 

012701 

000020 

161  000012 

004767 

OOOOOOG 

162  000016 

010067 

177756 

163  000022 

012760 

OOOOOOG  OOOOOOG 

164  000030 

005060 

000006 

165  000034 

005060 

000010 

166  000040 

005060 

000012 

167  000044 

005060 

000014 

168  000050 

005001 

169  000052 

012702 

000000' 

170  000056 

012705 

000000' 

171  000062 

004767 

OOOOOOG 

172  000066 

103002 

173  000070 

005267 

OOOOOOG 

174  000074 

016700 

177700        2 

175  000100 

004767 

000016 

176  000104 

004767 

OOOOOOG 

177  000110 

062767 

OOOOOOG  OOOOOOG 

178  000116 

012605 

179  000120 

000207 

.SBTTL  STMEVT  -  SETUP  EVENT  TEMPLATE 
*»*  -  STMEVT  -  SETUP  EVENT  TEMPLATE 
INPUT: 


R3-fi5 


TPARS  REGISTERS 


OUTPUT: 


C-aiT  --  SUCCESS/FAILURE 

IF  SUCCESS,  THE  OBJECT  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


STMEVT: 


20$: 


MOV  R5,-(SP) 

MOV  #C.LEN,R1 

CALL  ST1ALC 

MOV  RO.TEMP        , 

MOV  #CS.EVT,C.STS(RO) 

CLR  C.EVT+0{RO) 

CLR  C.EVT+2(R0) 

CLR  C.EVT+4(R0) 

CLR  C.EVT+6(R0) 

CLR  R1 

MOV  #EVTKTB,R2 

MOV  #EVTSTB,R5 

CALL  .TPARS 

BCC  20$ 

INC  $ERROR 

MOV  TEMP.RO 

CALL  FINEVT 

CALL  $OINSN 

ADD  #F.LENX,$BYTMN 

MOV  (SP)+,R5 

RETURN 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  AN  OBJ$DF  TEMPLATE 

INITIALIZE  EVENT  MASKS 


IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RETRIEVE  TEMPLATE  ADDRESS 

FIND  PLACE  FOR  THE  OBJECT  DEFINITION 

INSERT  ENTRY  INTO  QUEUE 

ADJUST  MINIMUM  EXTENSION 

RESTORE  R5 


M  5 
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Macro  calls  and  local  data 


!55:i 


103  000016 

.ASECT 

104 

000000 

.  =  0 

105  000000 

F.LNK: 

.BLKW 

1 

106  000002 

f.CNT: 

.BLKW 

107  OOOOOA 

.SLKB 

1 

108  000005 

F.DEV: 

.BLKB 

MXFSP 

109 

000043 

F.LEN 

=  , 

110  000000 

.PSECT 

111 

112 

;  Local 

data 

113 

• 

114  000000 

OOOCOO 

FILE: 

.WORD 

0 

115  000002 

FD: 

.BLKB 

F.LEN 

116 

117 

■ 

118 

;  SYNTAX  ERROR 

DETAIL  STRINGS 

119 

120 

.NLIST 

BEX 

121 

00C004 

EXSSEV 

:  4 

122  000045 

004 

103 

06 

ERRF5P: 

.ASCI2 

<EX$SEV>/CFE  - 

123  000077 

004 

103 

06 

ERRUIC: 

.ASCIZ 

<EX$SEV>/CFE  - 

124 

.EVEN 

125 

.LIST 

BEX 

126 

Page  4-1 


Link  word 

Use  count 

FUespec  string  length 

Fitespec  strinc  (ASCII) 


Offset  of  current  file  in  template 
Prototype  file  descriptor 


Error  in  filespec/ 
Error  in  UIC/ 
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TMPFEA  -  PARSE  FEATURES  DEFINIT  MACRO  V05.03b   Saturday  29-Jun-85 

Table  ot  contents 

6-  129  STMFEA  -  SETUP  FEATURES  TEMPLATE 

7-  157  SETUVl  -  SETUP  1ST  CHARACTER  OF  DEVICE  NAME 

8-  175  SETDV2  -  SETUP  2ND  CHARACTER  Of  DEVICE  NAME 

9-  193  SETWD1  -  SETUP  INITIAL  FEATURES  UORD 

10-  218  SETWD2  -  SETUP  THE  SETTA8LE  STATES  WORD 

11-  2A0  SETWD3  -  SETUP  THE  CURRENT  STATES  WORD 
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•  ♦FILE"!D«'TMPLLC 
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TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

CCCCCCCC 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

CCCCCCCC 

MMMf 

MMMM 

pp      PP 

CC 

MMM^ 

MMMM 

PP      PP 

CC 

MM 

•IM  MM 

PP      PP 

E£ 

MM 

*IM  MM 

PP      PP 

CC 

MM 

MM 

PPPPPPPP 

n 

MM 

MM 

PPPPPPPP 

MM 

MM 

PP 

^s 

MM 

MM 

PP 

CC 
CC 

MM 

MM 

PP 

MM 

MM 

PP 

CC 

MM 

MM 

PP 

LLLLLLLLLL 

LLLLLLLLLL 

CCCCCCCC 

MM 

MM 

PP 

LLLLLLLLLL 

LLLLLLLLLL 

CCCCCCCC 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

ss 

SS 

ss 

SS55SS 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

ssssssss 
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Table  ot  contents 


THPLLC  - 

CFE  P/ 

SETEXl  - 

SETUP 

351 

352 

353 

35'. 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

000356 

366 

000356 

367 

000362 

368 

000370 

369 

000376 

370 

000400 

371 

000404 

^5:?- 


CFE  PARSE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:35  Page  13 
SETUP  THE  LLC  PROCESS  EXTENSION 

.SBTTL  SETEXT  -  SETUP  THE  LLC  PROCESS  EXTENSION 

***«  -  SETEXT  -  SETUP  THE  LLC  PROCESS  EXTENSION 

INPUTS: 

TEMP  =  THE  TEMPLATE  ADDRESS 

.PNUMB  =  THE  SIZE  OF  THE  PROCESS  EXTENSION  IN  BLOCKS 

THE  PROCESS  EXTENSION  FIELD  IS  MOVED  INTO  C.EXT  OF  THE  TEMPLATE 
TRANSITION  IS  ACCEPTED/REJECTED 


016700 
116760 
026727 
103402 
062716 
000207 


177420 

OOOOOOG  000015 
000000(j  000200 

000002 


SETEXT: 


10$: 


■lOV 

MOVB 

CMP 

BLO 

ADD 

RETURN 


TEMP,RO 

. PNUMB, C.EXT(RO) 

. PNUMB. *128. 

10$ 

#2,(SP) 


GET  THE  TEMPLATE  ADDRESS 
;  STORE  THE  PROCESS  EXTENSION 
IS  THE  SIZE  IN  RANGE  ? 
IF  LO,  YES  ..  OKAY 
ELSE,  REJECT  TRANSITION 


TMPLLC  -  CFE  PARSE  LLC  PROCESS 
SETCTM  -  COUNTER  TIMER 
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;1NG  STATE 

.SBTTL  SETSTA  -  SET  UP  LOGGING  STATE 


***  -  SETSTA  -  SET  UP  LOGGING  STATE 

THIS  ACTION  ROUTINE  SETS  THE  LOGGING  STATE. 

INPUTS: 

.PNUMB  -  LOGGING  STATE 


TMPLOG   - 

CfE   PAR 

SETSTA  - 

SET   UP 

HI 

U2 

K3 

K^ 

U5 

H6 

K7 

U8 

U9 

150 

151 

152 

153 

154 

155 

000056 

156 

000062 

157 

000066 

158 

000070 

159 

000074 

160 

000076 

161 

000102 

162 

000104 

163 

000110 

164 

000112 

165 

000116 

166 

000120 

167 

000124 

168 

169 

;    OUTPUTS: 

C.STA  - 

LOGGING    STATE 

016700 

177716 

SETSTA: 

MOV 

TEMP.RO 

005767 

OOOOOOG 

TST 

.PNUMH 

001014 

BNE 

10$                                       ; 

105767 

000001 G 

TSTB 

.  PNUMB +  1 

001011 

BNE 

10$ 

116701 

OOOOOOG 

M0V8 

. PNUMB, R1 

002406 

BLT 

10$ 

020127 

000007 

CMP 

R1,#MAXSTA 

loi 

101003 

BHI 

110160 

000004 

MOVB 

RI.C.STACRO) 
20i 

000402 

BR 

062716 

000002 

10$: 

ADD 

#2,(SP) 

000207 

20$: 

RETURN 

RETRIEVE  POINTER  TO  TEMPLATE 
MUST  BE  BYTE  VALUE 
BR  IF  NOT  BYTE  VALUE 

BR'IF  NOT  BYTE  VALUE 

GET  LOGGING  STATE 

BR  IF  INVALID  LOGGING  STATE 

VALID  LOGGING  STATE? 

BR  IF  NO 

STORE  LOGGING  STATE 

FINISH  UP 

REJECT  THE  TRANSITION 


000001 


.END 


n  10 
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05:3; 


2T, 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 

286  000312 

287  000312 

288  000316 

289  000322 

290  0O032A 

291  000330 

292  000332 

293  000336 
29A  0003A2 

295  000344 

296  000350 


*♦*  -  SETNNM  -  SET  NODE  NUMBER 

INPUT: 

.PNUMB  =  NODE  NUMBER 

.PNUMH  =  NODE  NUMBER  (HIGH  ORDER) 

OUTPUT: 

NUMBER  IS  STORED  IN  C.NUM  OF  TEMPLATE 


016700  177462 

016701  OOOOOOG 
001410 

020127  001777 

101005 

050160  000052 

050167  OOOOOOG 

000402 

062716  000002 

000207 


SETNNM: 


5$: 
10$: 


MOV 

MOV 

BEQ 

CMP 

BHI 

BIS 

BIS 

BR 

ADD 

RETURN 


TEMP,RO 

. PNUMB, R1 

5$ 

R1,#1023. 

5$ 

R1,C.NUM(R0) 

Rl.SNTADD 

10$ 

#2,(SP) 


POINT  RO  AT  TEMPLATE 

PICK  UP  PARSED  VALUE 

IF  EQ,  ILLEGAL  NODE  NUMBER 

IS  THE  NODE  NUMBER  IN  RANGE 

IF  HI,  OUT  OF  RANGE 

STORE  THE  NODE  NUMBER 

..TWICE 

OK 

ELSE,  REJECT  THE  TRANSITION 
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SETYPE    -   SETuP   OBJECT    TYPE 


W^7 


20A 
205 
206 
207 
208 
209 
210 
211 
212 
215 
2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 


.SBTTL     SETYPE   -   SETUP  OBJECT   TYPE 

'*♦«  -  SETYPE   -  SETUP  OBJECT   TYPE 

INPUT: 

.PNUMB  =   THE   OBJECT  NUMBER 

.PNUMH   =   THE    OBJECT  NUMBER    (HIGH  ORDER) 

TEMP  =   TEMPLATE   ADDRESS 


OUTPUT; 


000152 

000152  016700     177622 

000156  116760     OOOOOOG  000004 

00016A  005767     OOOOOOG 

000170  001003 

000172  105767     000001G 

000176  00H02 

000200  062716     000002 

000204  000207 


SETYPE: 


10$: 
20$: 


THE  OBJECT  NUMBER  IS  MOVED  INTO  C.TYP  Of  THE  TEMPLATE 
C-BIT  -   SUCCESS/FAILURE 


POINT  AT  TEMPLATE 
;  STORE  THE  OBJECT  TYPE 
IS  THIS  A  WORD  VALUE  ? 
IF  NE,  NO  ..  REJECT 
IS  THIS  A  BYTE  VALUE  ? 
IF  EQ,  YES  LEAVE 
ELSE,  REJECT  TRANSITION 


MOV 

TEMP.RO 

Move 

. PNUMB, C.TYP(RO) 

TST 

.PNUMH 

BNE 

10$ 

TST8 

. PNUMB +1 

BEQ 

20$ 

ADD 

#2,CSP) 

RETURN 


M  12 


TMPOBJ   -  CFE   PARSE   OBJECT  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:37     Page  9 
SETNAM  -   SET   UP  OBJECT   NAME 
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TMPPAR  .  (FE  PARSf  PAPTITION  DF  MACRO  V05,05b  Saturday  ?9-Jun-85  05:58  Page  5-1 

150  00000-;  TRANS  $EOS,$BX  I T  ,SETf  LG 

151 

152  000004  STATES 
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$TMPAR  -  SETUP  PARTITION  TEMPLATE 


TMPPSN  -  PARSE  PSN  IN  CETAB 
MACRO  DEFINITIONS 

57 
58 
59 
60 
61 
62 
63 
6^. 
65 
66 
67 
68 
69 
70 
71 
72 
75 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
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.SBTTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BVTE  Of  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 

.MACRO  SGTNUM  OFFS,L 

MOV     0FfS.R2 

MOV     LO.fiO 

MOV     HI.Rl 

.IF  NB  <OPT> 

BIS 

.ENDC 

JMP 


GET  ADDRESS  Of  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


'•#0>,HI=<#177777>,0PT 


OPT, a. FLAGS 
SGTNUM 


.ENDM 

.MACRO  SGTNMB  Of f S,L0=<*0>,HI=<*377>,0PT 

MOV  OffS,R2 

MOV  LO.RO 

MOV  HI,R1 

.IF  NB  <0PT> 

BIS  OPT.S.fLAGS 

.ENDC 

JMP  SGTNMB 

.ENDM 

GET  RAD50  WITH  flELD  SIZE  CHECKING 

.MmlRO  $GTR50  OfFS.LEN.OPT 

MOV  OffS,R2 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
1,0 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE   TMPPVC  -  PARSE  PERMANENT  VIRTUAL  CIRCUIT  MACRO 
.IDENT  /V05.00/ 
.ENA8L  LC 

'•OPVRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WTH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  PERMANENT  VIRTUAL  CIRCUIT  DESCRIPTOR 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00     14-AUG-81 

DECNET-llM/S   V3.1 
DECNET-11M-PLUS    VLI 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS    Vl.1 

4.00     07-NOV-83 

DECNET-11M  V4.0 
DECNEI-11M-PLUS    V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Pius   V3.C 
DECnet-Mkro/RSX    Vl.O 
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•  •f  Ue-MD'MMPRDI 


L  16 


TTTTnniT 

MM 

MM 

PPPPPPPP 

RRRRRRRR 

DDDDDDDD 

TTTTT 

rTTTT 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

RRRRRRRR 

DDDDDDDD 

TTTTT 

1  1  1  II 

MMM^ 

MMMM 

PP      PP 

RR      RR 

DD 

DD 

MMM^ 

MMMM 

PP      PP 

RR      RR 

DD 

DD 

MM 

1M  MM 

PP      PP 

RR      RR 

DD 

DD 

MM 

^M  MM 

PP      PP 

RR      RR 

DD 

DD 

MM 

MM 

PPPPPPPP 

RRRRRRRR 

DD 

DD 

MM 

MM 

PPPPPPPP 

RRRRRRRR 

DD 

DD 

MM 

MM 

PP 

RR  RR 

DD 

DD 

MM 

MM 

PP 

RR  RR 

DD 

DD 

MM 

MM 

PP 

RR    RR 

DD 

DD 

MM 

MM 

PP 

RR    RR 

DD 

DD 

MM 

MM 

PP 

RR      RR 

DDDDDDDD 

MM 

MM 

PP 

RR     RR 

DDDDDDDD 

SSSSSSSS 

TTTTT 

TTTTT 

SSSSSSSS 

TTTTT 

Mill 

SS 

ss 

SS 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLU 

SSSSSSSS 

n  16 
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TMPDift  -  oAi^sE   DESTINATION  ADDR  MACRO  V05.&3b   Saturday  29-Jun-85  05:32     Page  6 
rPARS   STATE    TABLES 


UO 

ui 

142 
U3 
U4 

H5  000210 

U7 
1A8 
H9 

150  000210 

151  000210 

152  000210 

153  000210 

154  000210 

155  000210 
156 

157  000210 

158  000210 

159  000210 

160  000210 

161  000210 

162  000210 
163 

164  000210 

165  000210 

166  0002^0 

167  000210 

168  0002^0 

169  000210 
170 

171  000210 

172  000210 

173  000210 

174  000210 

175  000210 
176 

177  000210 

178  000210 
179 

180 
181 
182 

183  000210 

184  C00210 

185  000210 

186  000210 

187  000210 

188  000210 

189  000210 
190 

191 

192 

193  000210 

194 


.SBTTL   TPARS  STATE  TABLES 
INITIALIZE  TABLES 


ISTATS 

DSASTB,  DSAKTB 

PROCESS  "DSASDF" 

STATES 

TRANS 

SEOS.SEXIT 

TRANS 

SLAMDA,, 

STATES 

TRANS 

IDTE, 

TRANS 

SLAMDA 

STATES 

DSA1 

TRANS 

SEOS.SEXIT 

TRANS 

<',>,. 

STATES 

TRANS 

SNUMBR,DSA2,SE 

TRANS 

SLAMDA 

STATES 

DSA2 

TRANS 

SEOS.SEXIT 

TRANS 

<'.>., 

STATES 

TRANS 

SNUMBR,  DSA3, 

TRANS 

SLAMDA 

ALL  PARAMETERS  OPTIONAL 
REMOTE  DTE  NUMBER 


SCLERR, 
DSA1, 


ERRNUM, 
SETNUM 


.ERROR 


;  SUBADDRESS  LOW  RANGE 
SCLERR,  ERRSLO,  .ERROR 


STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


DSA3 
SEOS.SEXIT 

SSTRNG., 


SEOS.   SEXIT 


SCLERR, 
SETSHI 

SCLERR, 
SE^CUG 


;  SUBADDRESS  HI  RANGE 
ERRSHI.  .ERROR 

;  USER  GROUP 
ERRCUG,  .ERROR 


SUBEXPRESSION  TO  PARSE  DTE  ADDRESS  STRING 
ADR1 


STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 

FINAL  STATE 

STATES 


DTE 

SDIGIT, 

<■*> 

ADR1 
SDIGIT, 

SLAMDA, 


ADR1 
ADR1 
SEXIT 


N     1 
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186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 

201  000154 

202  000154 

203  000156 

204  000162 

205  000166 

206  000172 

207  000174 

208  000200 

209  000204 

210  000210 

211  000212 

212  000216 

213  000222 

214  000226 

215  000230 

216  000234 
2V  000242 

218  000244 

219  000252 

220  000254 

221  000260 

222  000262 

223  000266 

224  000274 

225  000300 
2?6  000302 


.SBTTL  STMDSC  -  BUILD  DSC  TEMPLATE 

*«*  -  STMDSC  -  BUILD  DSC  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
005067 
005001 
012702 
012705 
004767 
103412 
016701 
126161 
001416 
012767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


STMDSC: 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

000065'  OOOOOOG 

0000006       10$: 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


C-BIT  =  SUCCESS/FAILURE 

THE  DSC  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


MOV 

MOV 

CALL 

MOV 

TST 

MOV .  -   -   -   - 

MOV     #CS.DSC.(RO)    ;  INDICATE  THAT  THIS  IS  A  DSCSDF  TEMPLATE 

CLR 

CLfi 

MOV 

MOV 

CALL 

BCS 

MOV 

CMPB 

BEQ 

MOV 

BCC 

MOV 

BEQ 

ERRORS 

MOV 

INC 

MOV 

RETURN 


R5.-(SP) 

SAVE  R5 

#D$CLEN,R1 

GET  LENGTH  OF  NEEDED  ALLOCATION 

STALOC 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

RO..TEMP 

SAVE  TEMPLATE  ADDRESS 

(R0>  + 

POINT  TO  C.STS 

RO,. FLAGS 

SAVE  FOR  OPTION  SETTING 

#CS.DSC,(RO) 

INDICATE  THAT  THIS  IS  A  DSCSDF 

.ERROR 

NO  ERROR  DETAIL  YET 

R1 

IGNORE  BLANKS 

#DSCKTS,R2 

KEYWORD  TABLE 

*DSCSTB,R5 

STATE  TABLE 

.TPARS 

PARSE  THE  REST  OF  THE  LINE 

10$ 

IF  CS,  ERROR  DURING  PARSE 

.TEMP.RI 

POINT  TO  TEMPLATE 

D$CVLN(R1),DSCMLN(R1)  ;  COMPARE  LENGTHS 

20$ 

IF  EQ,  OK 

#ERRLEN,. ERROR 

ELSE  LENGTH  ERROR 

20$ 

■  NORMAL  RETURN  IF  NO  ERROR 

. ERROR, RO 

CHECK  FOR  ERROR  DETAIL  TEXT 

15$ 

•  IF  EQ,  NO  DETAIL  TEXT 

RO 

•  PRINT  ACTION  ROUTINE  ERROR 

*-2,$ERR0R 

•  SUPPRESS  SYNTAX  MESSAGE 

SERROR 

•  INDICATE  SYNTAX  ERROR 

(^'■^  +  ,R5 

•  RESTORE  R5 

TMPDSC  -  PARSE  DESTINATION  CALL  MACRO  V05.03b  Saturday  29-Jun-85 
SETMSK  -  SET  CALL  MASK 
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TNiPDST  -  PARSE  DESTINATION  DESC  MACRO  V05.03b  Saturday  29-Jun-85  05:55  Page  7-1 
'  "^SK  -  SET  TASK  NAME 

261  0C0352 

262 

263  000366 

26^ 

265  OOOA06 

266 

267  000426 

268 

269        000001 


SETNAH 

$GTR50 

#C 

NAM 

#2 

SETPRI 

SGTNMB 

#C 

PR  I 

,#255. 

SETOBJ 

iGTNMB 

#C 

OBJ 

,*255. 

SETTSK 

$GTR50 
.END 

#C 

TSK 

#2,#C5.TSK 

N  3 
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283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298  000402 

299 

300  000416 

301  000422 

302  000424 

303  000430 

304  000432 

305  000434 

306  000436 

307  000440 

308  000444 

309  000450 

310  000454 
311 

312  000474 

313  000500 
314 

315  000502 

316 

317  000522 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329  000544 

330  000550 

331  000556 
332 

333 
334 
335 
336 
337 
338 
339 


012700  000020 

006300 

020067  OOOOOOG 

002774 

003020 

006300 

006300 

062700  000003 

042700  000003 

060067  OOOOOOG 


062716  000002 
000207 


.SBTTL  SETADR  -  SET  DTE  ADDRESS  IN  TFi-lPLATE 

.S8TTL  SETHSH  -  SET  HASH  TABLE  SIZE  »N  DTE 

.SBTTL  SETCT  -  SET  COUNTER  TIMER  VALUE 

.SBTTL  SETNET  -  SET  NETWORK  NAME  IN  DTE  TEMPLATE 

**  SETADR  -  SET  DTE  ADDRESS  IN  TEMPLATE 

**  SETHSH  -  SET  HASH  TABLE  SIZE  IN  DTE 

**  SETCT  -  SET  COUNTER  TIMER  VALUE 

**  SETNET  -  SET  NETWORK  NAME  IN  DTE  TEMPLATE 


INPUTS: 
OUTPUT: 

SETADR:  $GTR50 


.TPARS  CONVENTIONS. 
VALUE  SET  IN  TEMPLATE. 


SETHSH: 
10$: 


REJECT: 


MOV 
ASL 
CMP 

i|l 
ASL 
ASL 
ADD 

BIC 
ADD 
SGTNUM 

ADD 
RETURN 


#C.ADR,#5 

#16.,R0 

RO 

RO,.PNUMB 

loi 

REJECT 

RO 

RO 

#3,R0 

#3,R0 

R0,$8YTMN 

#C.HSH,#32.,#512 

#2,(SP) 


TEST  FOR  POWER  OF  TWO 

X  2 

CHECK  PARSED  NUMBER 

IF  LT,  CONTINUE 

IF  GT,  REJECT  TRANSITION 

X  4 

IN  BYTES 

ROUND  UP 

UPDATE  MINIMUM  ALLOCATION 
REJECT  TRANSITION 


SETCT:   SGTNUM  #C.CT,#0,*-1 
SETNET:  $GTR50  #C.NET,#2,*CS.NET 

.SBTTL  SETSTA  -  SET  DTE  STATE  IN  TEMPLATE 

»*  SETSTA  -  SET  DTE  STATE  IN  TEMPLATE 

INPUTS:       .TPARS  CONVENTIONS. 

OUTPUT:       DTE  STATE  SET  IN  DTE  TEMPLATE. 


016700  OOOOOOG 
016760  177506  000026 
000207 


SETSTA:  MOV 
MOV 
RETURN 

.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 


.TEMP.RO 
STA,C.STA(RO) 


POINT  TO  TEMPLATE 

LOAD  STATE  INTO  TEMPLATE 


SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 

SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 

SETUNI  -  SET  UNIT  NUMBER  IN  LINE  ID 

SETTR8  -  SET  TRIB  NUMBER  IN  LINE  ID 


•»  SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 

»•  SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 


TMPDIE  -  PARSE  LOCAL  DTE  DESCRI  MACRO  V05.03b  Saturday  29-Jun-85  05: 
SETTRB  -  SET  TRIB  NUMBER  IN  LINE  ID 
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181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 

193  000122 

194  000122 

195  000126 

196  000130 

197  000132 

198  000134 

199  000142 

200  000144 

201  00015? 

202  000154 

203  000162 

204  000164 


.S8TTL  FINFVT  -  FIND  NEXT  EVENT  IN  SORTED  LIST 

♦**  -  FINEVT  -  FIND  NEXT  EVENT  IN  SORTED  LIST 

INPUTS: 

RO  =  TEMPLATE  TO  BE  INSERTED 

OUTPUTS: 

R1  =  ADDRESS  OF  TEMPLATE  TO  PRECEED  CURRENT  TEMPLATE 


FINEVT: 
10$: 


012702  OOOOOOG 

010201 

011202 

001414 

022762  OOOOOOG  OOOOOOG 

001371 

026062     000004     000004 

101365 

026062  000016  000016 

101361 

000207  20$: 


MOV 
MOV 
MOV 
BED 
CMP 
BNE 
CMP 
BHI 
CMP 
BHI 
RETURN 


#$TMLST,R2 

R2,fi1 

(rJ),R2 

20$ 

#CS.EVT,C.STS(R2) 

10$ 

C.CLS(R0),C.CLS(R2) 

10$ 

C.SNK(R0),C.SNK(R2) 

10$ 


GET  START  ADDRESS  OF  TEMPLATES 
SAVE  ADDRESS  OF  PREVIOUS 
GET  NEXT  TEMPLATE  IN  LIST 
IF  EQ,  END  OF  LIST 
IS  THIS  AN  EVENT  TEMPLATE? 


IF  NE, 
ELSE, 
IF  HI, 
ELSE, 
IF  HI, 
ELSE, 


NO 


KEEP  LOOKING 


DOES  TEMPLATE  GO  HERE? 


NO 


KEEP  LOOKING 


DOES  TEMPLATE  GO  HERE? 


NO 
OKAY 


KEEP  LOOKING 


TMPEVT  -  CFE  PARSE  EVENT  DEFINI  MACRO  V05.03b  Saturday  29  Jun-85  0. 
SETCLS  -  SETUP  EVENT  CLASS 
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TMPFIL  - 

CfE  PARSE  REMOTE 

State  tables 

128 

129 

130 

000054 

131 

132 

000124 

133 

13A 

000124 

135 

000124 

136 

000124 

137 

000124 

,38 

000124 

139 

000124 

UO 

HI 

000124 

1A2 

000124 

K3 

000124 

UA 

000124 

U5 

000124 

U6 

000124 

U7 

1A8 

000124 

U9 

000124 

150 

000124 

151 

000124 

152 

000124 

153 

000124 

154 

155 

000124 

156 

000124 

157 

000124 

158 

000124 

159 

000124 

160 

000124 

161 

162 

000124 

163 

000124 

164 

000124 

165 

000124 

166 

000124 

1t,7 

168 

169 

170 

171 

000124 

172 

000124 

173 

000124 

174 

175 

176 

177 

000124 

178 

000124 

179 

000124 

180 

181 

000124 

182 

000124 

183 

000124 

184 

000124 

M  6 
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.SBTTL  State  tables 
COMMA   =  <',> 
ISTAT$  FILSTB,FILKTB 


STATES 

TRANS  SLAMDA,, 

STATES 

TRANS  SEOS,   SEXIT 

TRANS  COMMA,   310 

TRANS  IFILSPC, 

STATES  SIO 

TRANS  SLAMDA,, 

STATES 

TRANS  SEOS,   SEXIT 

TRANS  COMMA,   S20 

TRANS  IFILSPC, 

STATES  S20 

TRANS  SLAMDA,, 

STATES 

TRANS  SEOS,   SEXIT 

TRANS  COMMA,   S30 

TRANS  IFILSPC, 

STATES  S30 

TRANS  SLAMDA,, 

STATES 

TRANS  SEOS,   SEXIT 

TRANS  COMMA,   S40 

TRANS  IFILSPC, 

STATES  S40 

TRANS  SLAMDA,, 

STATES 

TRANS  SEOS,   SEXIT 

TRANS  IFILSPCSEXIT, 


;  Optional  secondary  loader  file  name 
CLEFIL,  FSSEC  FILE 


STFIL 

;  Optional  tertiary  loader  file  name 
CLEFIL,  FSTER,   FILE 


STFIL 

;  Load  file  name 
CLEFIL,  FSLD,   FILE 


STFIL 

;  Diagnostics  file  name 
CLEFIL,  FSDIA,   FILE 


STFIL 

;  Dump  file  name 
CLEFIL,  FSDUM,  FILE 


STFIL 


Subexpression  to  parse  filespec 

CKFSP 
Subexpression  to  collect  string  of  any  type  of  characters 

CKUIC 


STATES  FILSPC 
TRANS   ISTRING, SEXIT, 
TRANS  SEXIT 


STATES  STRING 

TRANS  IGETUICGTRST, 

TRANS  SEXIT 

STATES  GTRST 

TRANS  COMMA,   SEXIT 

TRANS  SEOS,   SEXIT 

TRANS  SANr,    STRING 


.^4 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
M 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
23 
29 
30 
31 
32 
33 

3^; 

35 
36 
37 
38 
39 
40 
41 
A2 
43 
4A 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


TMPFEA  -  PARSE  FEATURES  DEFINITION  IN  fETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  'S  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  FEATURES  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

0ECNET-11M/S  V3.0 
0ECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 


N  7 
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Table  ot  contents 


ft- 

173 

S1MLLC 

1- 

205 

SETNAM 

8- 

231 

SETFLG 

y- 

252 

SETPRI 

10- 

278 

SETLIN 

11- 

306 

SETDEV 

1/ 

329 

SETNLT 

t;- 

351 

SETEXT 

K- 

373 

SETCTM 

SETUP  LLC  TEMPLATE 

SET  UP  PROCESS  NAME 

SETUP  THE  FLAGS  WORD 

SET  THE  PRIORITY 

SET  LINE  NUMBER 

STORE  THE  PSEUDO  DEVICE  NAME 

SET  NUMBER  Of  LINE  TABLES  TO  ALLOCATE  SPACE  FOR 

SETUP  THE  LLC  PROCESS  EXTENSION 

COUNTER  TIMER 
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TMPLLC  - 
SETCTM  - 

373 
37A 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
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.S8TTL  SETCTM  -  COUNTER  TIMER 

*♦♦  -  SETCTM  -  SETUP  COUNTER  TIMER 

THIS  ACTION  ROUTINE  SETS  UP  THE  COUNTER  TIMER  FOR  THIS  PROCESS 

INPUT: 

.PNUMB  =  COUNTER  TIMER 
.PNUMH  =  (HIGH  ORDER) 

OUTPUT: 

THE  COUNTER  TIMER  IS  STORED  IN  C.CTM  OF  THE  TEMPLATE 


000406 
000406 
000412 
000420 
000424 
000426 
000432 
000434 
000440 


016700 
016760 
005767 
001003 
105767 
001402 
062716 
000207 

000001 


177370 

OOOOOOG  O0C016 
OOOOOOG 

000001 G 

000002 


SETCTM: 


10$: 
20$: 


MOV 

MOV 

TST 

BNE 

TST8 

BEQ 

ADD 

RETURN 

.END 


TEMP,RO 

. PNUMB, C.CTM(RO) 

.PNUMH 

10$ 

. PNUMB +1 

20$ 

#2,(SP)  ;  ELSE, 


GET  START  OF  TEMPLATE 

STOP'  THE  COUNTER  TIMER 
IS  r  ONLV  A  WORD  VALUE  ? 
IF  Nt  NO  -  REJECT 
IS  IT  A  BYTE  VALUE  ? 
IF  EQ,  YES  -  OKAY 
REJECT  TRANSITION 
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TMPLOG  -  CFE  PARSE  LOGGING  STAT  MACRO  V05.03b  Saturday  29-Jun-85  05:36 
Symbol  table 

002  $BLANK=  000006 
$D1GIT=  00002A 
$DNUMB=  00001 A 
$E0S  =  000012 
$ERR0R=  »♦*♦•♦  GX 
$EX]T  =  OOOOOO 
$FA1L  =  Mim 


CS.LOG=  ••«»♦•  GX 
C.LEN   000005 
C.STA   000004 
C.STS  =  ••♦•••  GX 
EXIT    000004R 
LA    -  00007A 
LOGKTB  OOOOOORG 

LOGSTB  OOOOOORG 
l«AXSTA=  000007 
RA    =  000076 
SETSTA  000056R 

002  TEMP    OOOOOOR 
$ALPHA=  000022 

003  $ANY  =  000020 

.  ABS.  000005 
000126 
SSTATE  000010 
$KTAB   OOOOOO 
SKSTR   OOOOOO 
Errors  detected: 

000  (RW,I,GBL,ABS,OVR) 

001  (RW,I,LCL,REL,CON) 

002  (RW,D,LCL,REL,C0N) 

003  (RW,D,LCL,REL,C0N) 
OOA   (RU,D,LCL,REL,C0N) 
0 

**♦  Assembler  statistics 

Work  file  reads 
Work  f i le  writes 
Size  of  work  f i le 
Size  of  core  pool 
Operating  system 

0 
0 

10406  Words  (  41  Pages) 
14440  Words  (  55  Pages) 
•  RSX-11M/PLUS 

Page  8-1 


$LAMDA=  OOOOOO 
$NUM8R=  000002 
$RAD50=  000016 
$STRNG=  000004 
$SU8XP=  000010 
$TALOC=  **♦*«•  GX 
STMLOG  000002RG 


$$$FLG=  Mmi 

$$$<EY=  ymii 

$$$STA=  oooooo 
.PNUMB=   ♦*♦**♦   GX 
.PNUMH=   ******   GX 
.TPARS=   ******   GX 


SY?TMPLOG!v2!c°3^??34]TMPLOG/CR/-SP=SV:[1,nRSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]TMPL0G 


N  10 


TMPLOG     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:36     PAGE  1 
SYMRfll  CROSS  REFERENCE    CREf    04.00 
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TMPNOD  -   CFE   PARSE   NODE   DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:37 
SETMD   -   SET  UP  NODE    ID 


Page  11 


?98 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 

310  000352 

311  000352 

312  000356 

313  000562 
3U  00036A 

315  000370 

316  000372 

317  000374 

318  000376 

319  000400 

320  000404 

321  000412 

322  000414 

323  000420 


**♦  -  SETHOA  -  SET  HOST  AREA 
INPUT: 


.PNUM8  =  NODE  NUMBER 

.PNUMH  =  NODE  NUMBER  (HIGH  ORDER) 


OUTPUT: 


NUMBER   IS   STORED    IN  C.HOS   OF    TEMPLATE 


016700 
016701 
001414 
020127 
101011 
000301 
006301 
006301 
010160 
052760 
000402 
062716 
000207 


177422 
OOOOOOG 

000077 


000054 
OOOOOOG 

000002 


SETHOA: 


OOOOOOG 


5$: 
10$: 


MOV 

TEMP.RO 

MOV 

.PNUM8,R1      ; 

BED 

5$            ; 

CMP 

R1,*63. 

BHI 

5$ 

SUA8 

R1 

ASL 

R1 

ASL 

R1 

MOV 

R1,C.HO5(R0)    , 

BIS 

#N0$H0A,C.STS(R0) 

BR 

10$ 

ADD 

#2,(SP) 

RETURN 


POINT  RO  AT  TEMPLATE 
PICK  UP  AREA  NUMBER 
BR  IF  TOO  LOW 
TOO  HIGH  ? 
IF  HI,  ERROR 
DIDDLE  WITH  FORMAT 


STORE  THE  NODE  NUMBER 

;  REMEMBER  WE  SAW  AN  AREA 

ELSE,  REJECT  THE  TRANSITION 


TMPNOD  -  CFE  PARSE  NODE  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:37  Page  12 
SETNID  -  SET  UP  NODE  ID 


TMPOBJ  -  CFE  PARSE  OBJECT  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05 
SETNAM  -  SEI  UP  OBJECT  NAME 


'-'^7 


Page  9 


229 
230 
231 
232 
233 
23i 
235 
236 
237 
238 
239 
2A0 
241 
242 
243 
244 

245  000206 

246  000206 

247  000212 

248  000214 

249  000220 

250  000224 

251  000230 

252  000232 

253  000236 

254  000242 

255  000246 

256  000254 

257  000256 

258  000262 


.S8TTL  SETNAM  -  SET  UP  OBJECT  NAME 

'♦*•  -  SETNAM  -  SETUP  OBJECT  NAME 

THIS  ACTION  ROUTINE  SETS  UP  THE  OBJEll  NAME. 

INPUT: 

.PSTPT  =  START  ADDRESS  OF  THE  OBJECT  NAME  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  OBJECT  NAME 
TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C.NAM  =  RAD50  OBJECT  NAME  (2  WORDS) 


016700 
010701 
004767 
016702 
010162 
010701 
004767 
016702 
010162 
022767 
103002 
062716 
000207 


OOOOOOG 

OOOOOOG 

177554 

000006 

OOOOOOG 
177536 
000010 
000006 

000002 


SETNAM: 


OOOOOOG 


10$: 


MOV 

. PSTPT, RO 

MOV 

PCRl 

CALL 

SCATS 

MOV 

TEMP,R2 

MOV 

R1,C.NAH(R2) 

MOV 

PCRl 

CALL 

SCATS 

MOV 

TEMP,R2 

MOV 

R1,C.NAMt2(R2) 

CMP 

#6, .PSTCN 

BHIS 

10S 

ADD 

#2,(SP) 

RETURN 


GET  ADDRESS  OF  ASCII  OBJECT  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  OBJECT  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

STORE  OBJECT  NAME  IN  TEMPLATE 

PERIODS  ARE  ACCEPTABLE 

CONVERT  THE  REST  OF  THE  OBJECT  NAME 

GET  START  OF  TEMPLATE  ..  AGAIN  I! 

STORE  THE  SECOND  WORD 

IS  THE  OBJECT  NAME  TOO  BIG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 


N  12 

TMPOBJ  -  CFE  PARSE  OBJECT  DEFIN  MACRO  VO5.03b  Saturday  29-Jun-85  05:37 
SETVFv  -  SETUP  OBJECT  VERIFICATION  LEVEL 


Page  10 


M  V. 

TMPPAR  -  CFE  PARSE  PARTITION  DE  MACRO  V05.03b  Saturday  29-Jun-85  05:! 
STMPAR  -  SETUP  PARTITION  TEMPLATE 


)8  Page  6 


15^ 

155 

156 

157 

158 

159 

160 

161 

162 

16? 

16A 

165 

166 

167  00000^ 

168  00000^ 

010546 

169  0C0006 

012701 

000020 

170  000012 

004767 

OOOOOOG 

171  000016 

010067 

177760 

17?  000022 

010001 

■  00002A 

062701 

000004 

■^0030 

012702 

000004 

}7b   .,u0034 

005021 

V6  000036 

005302 

177  000040 

003575 

178  000042 

012760 

OOOOOOG  OOOOOOG 

179  000050 

005060 

000016 

180  000054 

005001 

181  000056 

012702 

000000' 

182  000062 

012705 

000000' 

183  000066 

004767 

OOOOOOG 

184  000072 

103002 

185  000074 

005267 

OOOOOOG 

186  000100 

012605 

187  000102 

000207 

.S8TTL  STMPAR  -  SETUP  PARTITION  TEMPLATE 
»*»  -  STMPAR  -  SETUP  PARTITION  TEMPLATE 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-eiT  =  SUClESS/FAILURE 

IF  SUCCESS,  THE  PARTITION  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


STMPAR: 


10$: 


20$: 


MOV 

MOV 

CALL 

MOV 

MOV 

ADD 

MOV 

CLR 

DEC 

BGT 

MOV 

CLR 

CLR 

MOV 

MOV 

CALL 

sec 

INC 
MOV 
RETURN 


R5,-(SP) 

*C.LEN,R1 

STALOC 

RO,TEMP 

R0,R1 

#C.NAM0,R1 

*4,R2 

R2 

10$ 

#CS.PAR,C. 

C.ALL(RO) 

R1 

#PARKTB,R2 

#PARSTB,R5 

.TPARS 

20$ 

$ERfiOR 

(SP)t,R5 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

..TWICE 

POINT  AT  PARTITION  NAMES 

REPEAT  COUNT 

CLEAR  OUT  2  PARTITION  NAMES 


STSCROS  ;  INDICATE  THAT  THIS  IS  A  PAR$DF  TEMPLATE 

ASSUME  POOL  BVTE-AREA  EXTENSION  NOT  PRESENT 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


N  13 

TMPPAR  -  CFE  PARSE  PARTITION  DE  MACRO  V05.03b  Saturday  29-Jun-85  05:38 
SETNMO  -  SET  UP  PARTITION  NAME  0 


Page  7 


MPPSN  -  PARSE  PSN  IN  CETAB 
MACRO  DEMMilONS 

lU 
115 
116 
117 
118 
119 
120 
121 
122 
12? 
124 


n  H 

MACRO  V05.0?b  Saturday  2'?-.)un-85  05:38  Page  4-1 


MOV     LEN.RI 

.IF  N8  <OPr> 

SIS     OPT, a. FLAGS 

.ENDC 

JMP     tGTRSO 

.ENDM 


MACRO  CALLS 

.MCALL   ISTATS, STATES, TRANS, CALLR 


TMPPSN  -  PARSE  PSN  lU   CETAB 
LOCAL  DATA 


N  U 

MACRO  VO5.03b  Saturday  29-Jun-85  05:38  Page  5 


IMPP.;f  -  PAUSE  PERMANEM 
NIAiRO  Dlf  1MT10N5 

S? 
58 
59 
60 
61 
62 
6B 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
7Z 
It, 
75 
76 
77 
78 
79 
80 
81 
82 
8? 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 
112 
113 


H  15 

VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05:59  Page  A 

.SBTIL  MACRO  OEflNITlONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BVTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SGTNUM  OFFS,LO=<#0>,H1=:<#177777>,OPT 

MOV  0FFS,R2 

MOV  LO.RO 

MOV  HI.RI 

.IF  N6  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 


.MACRO 

SGTNMB 

OFFS 

,10= 

'«0>, 

HI 

=<#377> 

OPT 

MOV 

0FFS.R2 
LO.RO 

MOV 

MOV 

HI.RI 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNM8 

.ENDM 

;  GET 

RAD50  WITH  FIELD 

SI7E 

CHECKING 

.MACRO 

SGTR50 

OFFS 

,1FN 

.OPT 

MOV 

OfFS,R2 

N  IS 


TMPPvC  -  PARSE  PERMANENT  VIRTUA  MACRO  V05.03b  Saturday  29-Jun-85  05:39  Page  4-1 
MACRO  DEFINITIONS 


M  16 

IMPRDT  -  PARSE  REMOTE  DTE  !N  CE  MACRO  V05.03b  Saturday  29-Jun-85  05:40 
Table  ot  contents 


4- 

57 

MACRO  DEFINITIONS 

s- 

127 

LOCAL  DATA 

r,- 

1?8 

TPARS  STATE  TABLES 

7. 

174 

$TMRDT  -  BJlLD  RDT  TEMPLATE 

ft- 

?1? 

SETNAM  -  SET  NAME 

s- 

21? 

SETAOR  -  SET  ADDRESS 

B  1               J  5  E  10  TMPLOG         H  U 

?   1     kr   ■;     F  10  N  1A 


N     1 

TWPOSA  -  OARSE   DESTINATION  ADDR  MACRO  V05.03b   Saturday  29-Jun-85   05:32     Page  7 

l^MDSA   -  BUILD   DSA    TEMPLATE 


1% 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 

211  000210 

212  000210 

213  000212 
2K  000216 

215  000222 

216  000226 

217  000230 

218  000234 

219  0002A0 

220  000244 

221  000246 

222  000252 

223  000256 

224  000262 

225  000264 

226  000270 

227  000272 

228  000276 

229  000304 

230  000310 

231  000312 


010546 
012701 
004767 
01006/ 
005720 
010067 
012710 
005067 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SBTTL  STMDSA  -  BUILD  DSA  TEMPLATE 

•»•  -  STMDSA  -  BUILD  DSA  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-8IT  =  SUCCESS/FAILURE 

THE  DSA  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


STMDSA: 


OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


MOV 

t  i. 
r*  .' 

TijT 

MOV 

MOV 

CLR 

CLf! 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERROR$ 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

#D$ALEN,R1 

$TALOC 

RO,.TEMP 

(fiO)  + 

RO, .FLAGS 

#CS.DSA,(RO) 

.ERROR 

R1 

#DSAKTB,R2 

#DSASTB,R5 

.TPARS 

20$ 

. ERROR, RO 

15$ 

RO 

#-2,$ERR0R 

$ERROR 

(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  DSA$DF  TEMPLATE 

NO  ERROR  DETAIL  YET 

IGNORE  BLANKS 

f.EYUORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EO,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


TMPDSC  - 

PARSE 

DESTINATION  CALL  MACRO  VO' 

.03b  Saturday 

29-Jun-85  05:32  Page  8 

SETMSK  - 

SET  CALL  MASK 

228 

.SBTTL 

SETMSK  -  SET  CALL  MASK 

229 

.S8TTL 

SETVAL  -  SET  CALL  VALUE 

230 

+ 

231 

♦*  SETMSK  -  SET  CALL  MASK 

232 
233 
23^ 

n7C 

*»  SETVAL  -  SET  CALL  VALUE 

INPUTS 

.TPARS  VARIABLES 

235 
236 

OUTPUT 

VALUE  SET  IN  TEMPLATE. 

237 
258 
239 

- 

000304 

016700 

OOOOOOG 

JETVAL: 

MOV 

.PSTCN.RO 

GET  PARSED  LENGTH 

240 

000510 

020027 

^■00040 

CMP 

R0,#32. 

CHECK  FOR  LENGTH  =  33. 

241 

000314 

003045 

BGT 

REJECT 

IF  GT,  REJECT  TRANSITION 

242 

000316 

016702 

OOOOOOG 

MOV 

.TEMP,R2 

POINT  TO  TEMPLATE 

243 

000522 

110062 

OOOOOOG 

MOVB 

R0,D$CVLN(R2) 

STORE  LENGTH 

244 

000326 

062700 

000003 

ADD 

#3,R0 

ROUND  UP 

245 

000532 

0427^0 

000003 

SIC 

*3,R0 

246 

000336 

0600^ "" 

OOOOOOG 

;,DD 

RO.SBYTMN 
#D$CVAL,*11.,'»CS.VAL 

INCLUDE  IN  MINIMUM  BYTE  ALL 

247 
248 
249 

000342 

$GTR50 

000564 

016700 

OOOOOOG 

SETMSK: 

MOV 

.PSTCN.RO 

GET  PARSED  LENGTH 

250 

0C0570 

020027 

000040 

CMP 

R0,#32. 

CHECK  FOR  LENGTH  =  33. 

251 

000574 

003015 

B(3T 

REJECT 

IF  GT,  REJECT  TRANSITION 

252 

000576 

016702 

OOOOOOG 

MOV 

.TEMP,R2 

POINT  TO  TEMPLATE 

253 

000402 

110062 

OOOOOOG 

MOVB 

R0.D$CMLN(R2) 
#D$CMSK,#11.,*CS.MSK 

STORE  LENGTH 

254 
255 
256 

000406 

$&TR50 

000430 

062716 

C00002 

REJECT: 

ADD 

#2,(SF) 

•  REJECT  TRANSITION 

257 

000454 

000207 

RETURN 

258 

259 

000001 

.END 

TMPDST  -  PARSE  DESTINATION  OESC  MACRO  V05.03b  Saturday  29-Jun-85  05; 

Symbol  table 
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CS.DST= 

«*•»»•  GX 

D$FLNX=  •*»♦»•  GX 

SETIVP 

000336R 

CS.TSK= 

♦<»«*»  GX 

ERRNAM  000041 R 

$ALPHA= 

W&sl 

C.LEN  = 

000020 

ERPOBJ  0001 33R 

$ANY  = 

000020 

C.NAM 

000006 

ERRPRI  000102R 

$BLANK= 

000006 

C.OBJ 

000013 

ERRTSK  000171R 

$BYTMN= 

«****♦ 

GX 

C.PRI 

00001? 

ERRTYP  OOOOOOR 

$CFERR= 

***!»** 

GX 

C.TSK 

OOOOU 

EX$SEV=  000004 

$CLERR= 

****** 

GX 

C.TYP 

'•  0004 

SETNAM  000352R 

$D]GIT= 

000024 

DSTKTB 

.OOOORG 

no-; 

SETOBJ  000406R 

$DNUMB= 

000014 

DSTSTB 

OCOOOORG 

002 

SETPRI  000366R 

$E0S  = 

000012 

DSTl 

000024R 

OC^ 

SETTSK  000426R 

.  ABS. 

000020 
000450 

000 
001 

(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 

SSTATE 

000114 

002 

(RU,D,LCL,REL,CON) 

SKTAB 

000004 

00^ 

(RW,D,LCL,REL,C0N) 

$<STR 

000010 

004 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

•*•  Assembler  statistics 

Work   f 

ile  reads 

:  0 

Work   f 

i le  writes 

:  0 

$ERR0R= 
$EXIT  = 
$FAJL  = 
SGTNMB-- 
$GTR50= 
$LAMDA= 
$NUMBR= 
$RAD50= 
$STRNG= 
$SUBXP= 


******  GX 

000000 

177777 

*«<*»»  GX 

*••'»*  GX 

000000 

000002 

000016 

000004 

000010 


Size  of  work  file:  HOOO  Words  (  43  Pages) 
Size  of  core  pool:  14440  Words  (  55  Pages) 
Operating  system:  RSX-11M/PLUS 

SYfTM°''5T!v2;[132,134]tMPDST/CR/-SP=SY:C1,1]RSXMCM.SML/ML,C130,110]NETLIB/ML,[132,10JTMPDST 


$TALOC=  *♦**♦♦  GX 
STMDST  000224RG 
$$$FLG=  Mim 
$$$K;EY=  000001 
$$$STA=  000000 
$$$TMP=  000004R 
.ERROR=  ******  GX 
.FLAGS=  ******  GX 
.TEMP  =  ******  GX 
.TPARS=  ******  GX 


004 


TMPDTE  - 
SETTRB  - 

340 
3A1 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 


PARSE  LOCAL  DTE  DESCRI  MACRO  V05.03b  Saturday  29-Jun-85  05:33  Page  8-1 
SET  TRI8  NUMBER  IN  LINE  ID 

•♦  SETUNI  -  SET  UNIT  NUMBER  IN  LINE  ID 
*<■   SETTRB  -  SET  TRIB  NUMBER  IN  LINE  ID 

INPUTS:       .TPARS  CONVENTIONS. 

OUTPUT:       VALUE  SET  IN  TEMPLATE. 

000560  SETDEV:  $GTR50  #C.LIN,#1 

000574  SETCON:  SGTNUM  #C.LIN+2 

000614  SETUNI:  SGTNUM  #C,LlN+4, ,  ,#CS.UN: 

000642  SETTRB:  IljTNUM  #C  .LIN+6, ,  ,#CS.  TRB 

000001  .END 


TMPEVT  -  CFE  PARSE  EVENT  DEFiNl  MACRO  V05.03b  Saturday  29  Jun-85  0j:34 
SETCLS  -  SETUP  EVENT  CLASS 


Page  9 


206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 
220 

221  000166 

222  000166 

223  000172 

224  000200 

225  000202 

226  000210 

227  0002U 

228  000216 

229  000222 

230  000230 

231  000232 

232  000236 


.SBTTl  SETCLS  -  SETUP  EVENT  CLASS 

»♦*  -  SETCLS  -  SETUP  EVENT  CLASS 

INPUT: 

.PNUMB  =  THE  EVENT  CLASS  NUMBER 

.PNUMH  =  THE  OBJECT  NUMBER  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

THE   EVENT   CLASS   NUMBER    IS  MOVED   INTO  C.EVT   OF    THE    TEMPLATE 
C-BIT   =   SUCCESS/FAILURE 


016700     177606 

026727     OOOOOOG  077700 

lOlOU 

016760  OOOOOOG  000004 

005:'67  OOOOOOG 

001006 

010067  177560 

062767  000006  177552 

000402 

062716  000002 

000207 


SETCLS: 


10$: 
20$: 


MOV 

CMP 

BHI 

MOV 

TST 

BNE 

MOV 

ADD 

BR 

ADD 

RETURN 


TEMP,R0 

. PNUMB, *HAXCLS 

10$ 

. PNUMB, C.CLS(RO) 

.PNUMH 

10$ 

R0,STRADD 

#C.EVT,STRADD 

20$ 

#2,(SP) 


POINT  AT  TEMPLATE 
VALID  EVENT  CLASS  VALUE? 
BR  IF  NO 

;  STORE  THE  EVENT  CLASS 
IS  THIS  A  WORD  VALUE  ? 
IF  NE,  NO 
POINT  AT  TEMPLATE 
POINT  AT  FIRST  EVENT  MASK 
FINISH  UP 
ELSE,  REJECT  TRANSITION 


N  6 
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State  tables 

1 85 

186  00012A  STATES  GETUIC 

187  00012A  TRANS  "C,     GTUIC 

188  00012A  TRANS  SLAMDA,  SEXIT 
189 

190  0001 2A 

191  00012A 

192  000124 

193  000124 
194 
195  000124  STATES 


STATES 

GTUiC 

TRANS 

•], 

SEXIT 

TRANS 

SEOS, 

SEXIT 

TRANS 

SANY, 

GTUIC 

N  7 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74  000000 

75 

76 

77 

78  000000 

79  000000 

80  000000 

81  000002 

82  000004 

83  000006 

84  000010 

85  000012 

86  000014 

87  000002 


■  LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXi.RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


MACRO  CALLS 


.MCALL   ISTATS, STATES, TRANS 


LOCAL  DATA 


TEMP:    .BLKW   1 

DEFINE  FEATURES  TEMPLATE 


C.DEV 
C.UDl 
C.UD2 
C.WD3 
C.LEN=. 


.ASECT 

.=0 

.BLKW 

.BLKU 

.SLKU 

.BLKW 

.BLKW 

.BLKW 

.PSECT 


ADDRESS  OF  FEATURES  TEMPLATE 


C.LNK 

C  S''S 

2'CHARACTER  DEVICE  NAME 

INITIAL  FEATURES 

STATES  SETTABLE 

CURRENT  STATES 


N  8 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 
39 
40 
41 
42 
A3 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE 
.IDENT 


TMPLLC  -  CFE  PARSE  LLC  PROCESS  DEFINITIONS  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  198c',  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  LLC  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORV: 


1.00      14-DEC-79 

DECNET-11M/S   V3.0 
DECNET-,1M-PLUS   VI. 0 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS   VI. 1 

4.00     07-NOV-83 

DECNL  "-11M  V4.0 
DECNEi    MM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-llH/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


TMPLLC  -  CFE  PARSE  LLC  PROCESS 
Symbol  table 


MACRO  V05.03b  Saturday  29-Jun-85  05:35  Page  14-1 


:?5 


BUS 

BITO 

CL.LEN= 

CS.LLC= 

CTM 

C.CTM 

C.DEV 

C.EXT 

C.FLG 

C.LIN 

C.NAM 

C.NCTR= 

C.NLT 

C.NLTD= 

C.PRI 

C.STS  = 

EXIT 

EXT 


00001 2R 

000024R 

000020 

«♦»»*«  GX 

000216R 

000016 

000012 

000015 

000006 

000011 

000004 

00001? 

oooou 

000012 
000010 
*«»»*»  GX 
000246R 
000200R 


002  FLAG 

002  LLCKTB 

LLCSTB 

NLT 

002  NM$ARA= 

NM$NOD= 

NT$AKD= 

NT$AKI= 

NTSCC  = 

NT$CON= 

NT$CTL= 

NT$DAT= 

NT$DC  = 

NT$DIS= 

NTIDLS^ 

NTSILS: 

002  NT$IMS= 

002  NTSINT: 


OOOOOOR 

OOOOOORG 

OOOOOORG 

000162R 

176000 

001777 

000020 

000022 

000016 

000000 

000000 

000002 

000012 

000014 

000006 

000010 

000002 

000004 


NT$RET= 
003  NT$ROU= 
002  NT$RTR= 
002  NT$TSP= 
N$$ACK= 
N$$HDR= 
N$$OVR= 
PRIOR 
SETCTM 
SETDEV 
SETEXT 
SETFLG 
SETLIN 
SETNAM 
SETNLT 
SETPRI 
TEMP 
ZF 


000032 
000024 
000030 
00002b 

oooon 

000007 

000022 

000130R 

000406R 

000270R 

000356R 

000134R 

000222R 

000074R 

000326P 

0001 64R 

000002R 

000240R 


ZF 

ZF 

002  ZF 


ZF.C0U= 
ZF.JNI= 
ZF.LLC= 
ZF.MFL= 
""  MTH= 
SLI  = 
TIM= 
X3P= 
$ALPHA= 
$ANY  = 
$BLANK= 
SCATS  = 
$DIGIT= 
$DNUMB= 
$EOS  = 
$FRROR= 
$EXIT  = 
002  SFAIL  = 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
000022 
000020 
000006 

****** 

000024 
000014 
000012 

****** 

000000 
^77777 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 


GX 


000020 
000442 
000252 
000022 
000043 
Errors  detected: 


.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000 
001 
002 
003 
004 
0 


(RW,I,GaL,AB3,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


♦♦♦  Assembler  statistics 


0 

0 

10776  words  (  43  Pages) 

14440  Words  (  55  Pages) 

RSX-11M/PlU5 


Work  file  reads 
Work  file  writes 
Size  of  work  f i  le 
Size  of  core  poo. 
Operating  systen 

SY?TMPLLc!v2;C132,134KMPLLC/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,C132,10]TMPLLC 


$LAMDA= 

$MXNLT= 

$NLN  = 

$NUMBR= 

$RAD50= 

$STRNG= 

SSUBXP^ 

$TALOC= 

STMLLC 

$$$FLG= 

$$$KEr= 

t$$STA= 

$$$TMP= 

.PNUMB= 

.PNUMH= 

.PSTCN= 

.PSTPT= 

.TPARS= 


GX 


000000 

****** 

****** 

000002 

000016 

000004 

000010 

****** 

000004RG 

y77777 

000010 

000000 

000040R 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 


004 


TMPLOG 

CREATED  BY 

MACRO  ON  29 

-JUN-85 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

CS.LOG 

-  ****** 

GX 

7-131 

C.LEN 

000005 

#5-90 

7-128 

C.STA 

OOOOOA 

#5-88 

•8-164 

C.STS 

-      ****** 

GX 

*7-131 

LA 

=  00007A 

#5-78 

LOGKTB 

000000 

RG 

#6-99 

7-132 

LOGSTB 

000000 

RG 

#6-99 

7-133 

MAXSTA 

=  000007 

#5-77 

8-162 

RA 

=  000076 

#5-79 

SETSTA 

000056 

R 

#8-155 

TEMP 

000000 

R 

#5-80 

♦7-130 

SALPHA 

=  000022 

#6-99 

$ANY 

=  000020 

#6-99 

SBLANk 

=  000006 

#6-99 

tDIGIT 

=  00002A 

#6-99 

SDNUMB 

=  OOOOU 

#6-99 

$EOS 

=  0u0012 

#6-99 

SERROR 

-   ****** 

GX 

♦7-137 

$EX1T 

=  000000 

#6-99 

SFAIL 

=  177777 

#6-99 

SGPRM 

=  ****** 

6-99 

SLAMDA 

-  "00000 

#6-99 

SNUMr-' 

J00002 

#6-99 

$RAD-u 

-  000016 

#6-99 

SRONLY 

=   ****** 

6-99 

6-99 

$SrRNG 

=  000004 

#6-99 

N  10 

PAGE  1 

CREF   OA.OO 


8-155 


6-99 


SSUBXP 
STALOC 
STMLOG 
$$$FLG 
$$$KEY 
.  PNUMB 
.PNUMH 
.TFARS 


GX 


=  000010 

****** 

000002  RG 

177777 

■\77777 

******  GX 
♦*♦♦.♦  GX 
»**«♦»   GX 


#6-99 

7-129 

#7-126 

#6-99 

#6-99 

8-158 

8-156 

7-135 


-160 


TMPNOD  -   fFE   ''ARSE   NODE   DEFINIT  MACRO  V05.03b   Saturday  P9-Jun-85 
SETMD   -   SET   UP  NODE    ID 


]s\h 


Page  12 


325 
326 
327 
328 
329 
330 
331 
332 
333 
33^. 
335 
336 

337  000A22 

338  000422 

339  000A26 
3A0  000A32 
3A1  000'- j4 
3A2  000A';0 
3A3  000AA2 

344  000446 

345  000450 

346  000454 
347 

348 
349 


•••  -  SETHOS  -  SET  HOST  NODE  ADDRESS 
iNPUT: 


.PNUMB  =  NODE  ADDRESS 

.PNUMH  =  NODE  ADDRESS  (HIGH  ORDER) 


OUTPUT: 


ADDRESS  IS  STORED  IN  C.HOS  OF  TEMPLATE 


016700  177';  72 

016701  0000  lOG 
001406 

020127     001777 

101003 

050160  000054 

000402 

062716  000002 

000207 


000001 


SETHOS: 


MOV 

TEMP.RO 

MOV 

.PNUMB,R1 

BEQ 

5$ 

CMP 

R1,#1023. 

BHI 

5$ 

BIS 

R1,C.HDS( 

BR 

10$ 

5$: 

ADD 

#2,(SP) 

10$: 

RETURN 

POINT  RO  AT  TEMPLATE 
CHECK  VALUE 

IF  LE,  ILLEGAL  NODE  NUMBER 
CHECK  RANGE 

STORE  THE  HOST  NODE  ADDRESS 

ELSE,  REJECT  THE  TRANSITION 


.END 


TMPOBj  - 
SETVFv  - 

260 
261 
262 
26? 
26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 
277 
278 
279 
?H0 
281 
282 
283 
28A 
285 


N  12 

CFF  PARSE  OBJECT  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:37  Page  10 
SETUP  OBJECT  VERIFICATION  LEVEL 


000264 
00026A 
000270 
000276 
000302 
000304 
000312 
0003K 
000320 


016700 
116760 
005767 
001004 
022767 
101002 
.62716 
000207 


.SBTTL  SETVFY  -  SETUP  OBJECT  VERIFICATION  LEVEL 

••»  -  SETVFY  -  SETUP  OBJECT  VERIFICATION  LEVEL 

THIS  ACTION  ROUTINE  SETS  UP  THE  OBJECT  VERIFICATION  LEVEL. 

INPUT: 

.PNUMB  =  THE  OBJECT  VERIFICATION  LEVEL 

.P.NIUMH  =  THE  OBJECT  VERIFI  ATION  LEVEL  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


THE  VERIFICATION  LEVEL  IS  MOVED  INFO  C.fLG  OF  THE  TEMPLATE 
C-8IT  =  SUCCESS/FAILURE 


177510 

OOOOOOG  000005 
OOOOOOG 

000010  OOOOOOG 


SETVFY: 


000002 


10$: 
20$: 


MOV 

Mova 

TST 
BNE 
CMP 
BHI 
ADD 
RETURN 


TEMP,RO 

. PNUMB, C.FLG(RO) 

.PNUMH 

10$ 

#10,. PNUMB 

20$ 

#2,(SP) 


POINT  AT  TEMPLATE 
;  STORE  THE  VERIFICATION  LEVEL 
IS  THIS  A  WORD  VALUE  ? 
IF  NE,  NO  ..  REJECT 
VERIFICATION  LEVEL  IS  ONLY  3  BITS 
IF  HI,  OKAY 
ELSE,  REJECT  TRANSITION 


N  13 
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SETNMO  -  SET  UP  PARTITION  NAME  0 


189 

190 

191 

192 
19? 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20A 

205  000104 

206  000104 

016700 

OOOOOOG 

207  000110 

010701 

208  000112 

004767 

OOOOOOG 

209  000116 

016702 

177660 

210  000122 

010162 

000004 

211   000126 

103407 

212  000130 

010701 

213  000132 

004767 

OOOOOOG 

214  000136 

016702 

177640 

215  000142 

010162 

000006 

216  000146 

022767 

000006     OOOOOOG 

217  000154 

103002 

218  000156 

062  '^6 

000002 

219  000162 

0002' 7 

.SBTTL  SETNMO  -  SET  UP  PARTITK'N  NAME  0 
'•♦»  -  SETNMO  -  SETUP  PARTITION  NAME  0 
THIS  ACTION  ROUTINE  SETS  UP  THE  PARTITION  NAME  0. 

'.PSTPT  =  START  ADDHESS  OF  THE  PARTITION  NAME  0  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  PARTITION  NAME  0 
TEMP  -^  TEMPLATE  ADDRESS 


OUTPUT: 


C.NAMO  =  RAD50  PARTITION  NAME  0  (2  WORDS) 


SETNMO: 


5$: 


10$: 


MOV 

. PSTPT, RO 

MOV 

PC,R1 

CALL 

SCATS 

MOV 

TEMP,R2 

MOV 

R1,:.NAM0(R2) 

BCS 

5$ 

MOV 

PCRI 

CALL 

SCATS 

MOV 

TEMP,R2 

MOV 

R1,C.NAM0t2(R2) 

CMP 

#6, .PSTCN 

BHIS 

10$ 

ADD 

#2,(SP) 

RETURN 


GET  ADDRESS  OF  ASCII  PARTITION  NAME  0 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PARTITION  NAME  0  TO  RAD50 

GET  START  Of  TEMPLATE 

STORE  PARTITION  NAME  0  IN  TEMPLATE 

IF  CS,  LESS  THAN  3  CHARS  WERE  RAD50 

ELSE,  PERIODS  ARE  ACCEPTABLE 

CONVERT  THE  REST  OF  THE  PARTITION  NAME 

GET  START  OF  TEMPLATE 

STORE  THE  SECOND  WORD 

IS  THE  PARTITION  NAME  0  TOO  BIG  ? 

IF  HIS,  NO 

ELSE,  REJECT  THE  TRANSITION 


N  U 

TMPPSN  - 

PARSE 

PSN    IN   CETAE 

MACRO  V05.03b 

Saturday  29-Jun-85  05:38 

LOCAL   DATA 

126 
127 
128 

.SBTTL     LOCAL   DATA 

;    DEFINE    THE    PSN  BLOCK 

129 

no 

000000 

.ASECT 

131 

000000 

.=0 

132 

000000 

.8LKW       1 

135 

000002 

.SLKU       1 

134 

000004 

C.NAM 

.BLKW       2 

135 

000010 

C.POR 

.BLKW       1 

136 

000012 

C.FLG 

.BLKW       1 

137 

OOOOK 

C.TLO 

.BLKW        1 

138 

000016 

C.THI 

.BLKW        1 

139 

000020 

C.LEN 

HO 

000000 

.PSECT 

U1 

• 

U2 
U3 

;    ERROR   TEXT   STRINGS 

000004 

' 

EXSSEV   =   4 

K5 

.NLIST     BEX 

U6 

000000 

004 

103 

106 

ERRPSN:.ASCIZ       <EX$SEV>/CfE   — 

U? 

000042 

004 

103 

106 

ERRNAM.-.ASCIZ       <EX$SEV>/CFE   — 

K8 

000100 

004 

103 

106 

ERRPOR:.ASCIZ        <EX$SEV>/CFE   — 

149 

000127 

004 

103 

106 

ERRFLG:.ASCIZ        <EX$SEV>/CFE   — 

150 

000156 

004 

103 

106 

ERRTRN:.ASC1Z        <EX$SEV>/CFE   — 

151 

.EVEN 

152 

.LIST        BEX 

Page  5 


C.LNK 

C.STS 

RAD50  NETWORK  NAME 

NUMBER  OF  PORTS  SUPPORTED  (1-256) 

FLAGS 

TRANSPORT  SUBADDRESS  LOW 

TRANSPORT  SUBADDRESS  HIGH 

LENGTH  OF  THE  BLOCK 


Duplicate  PSNSDF  in  CETAB/ 

Error  in  network  name/ 

Bad  port  u-^lue/ 

Error  in  fiags/ 

Bad  transport  subaddress  value/ 


MArRO  OFf 

lU 
115 
116 
117 
118 
119 
li-O 
1?1 
122 
12? 
12A 
125 
126 


PARSE  PERMANENT  VlR'UA  MACRO  'v05.03b  Saturday  29-Jun-85 
INITIQNS 


N  15 

05:! 
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MOV     LEN.Rl 

.If  NB  <OPr> 

BIS     OPT, S. FLAGS 

.ENDC 

JMP     $GTR50 

.ENDM 


MACRO  CALLS 

.MCALL   ISTATJ, STATES, TRANS, CALLR 


B 

C 
D 
f 

F 
G 
H 
1 
J 
K 
L 
M 
N 
B 
C 
D 
f 
F 
6 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
p 

G 

H 
I 
J 
K 
L 
M 
N 
B 
C 
0 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 


TMPOSA 


TMPDSC 


TMPDST 


TMPDTE 


TMPEVT 


TMPFIL 


TMPFEA 


TMPLLC 


E 

1C 

F 

10 

G 

10 

H 

i  V 

I 

IQ 

J 

ig 

K 

1 0 

I 

10 

M 

1 0 

N 

10 

B 

11 

C 

11 

D 

11 

E 

11 

F 

11 

G 

11 

H 

11 

I 

11 

J 

n 

K 

11 

L 

11 

M 

11 

N 

11 

B 

12 

C 

12 

D 

12 

E 

12 

F 

12 

G 

12 

H 

12 

I 

12 

J 

12 

K 

12 

L 

12 

M 

12 

N 

12 

B 

13 

C 

13 

D 

13 

E 

13 

F 

13 

G 

13 

H 

13 

I 

13 

J 

13 

K 

13 

L 

13 

M 

13 

N 

13 

B 

H 

C 

U 

D 

U 

E 

U 

F 

H 

G 

H 

H 

U 

I 

14 

J 

U 

K 

U 

L 

U 

TMPLOG 


TMPNOD 


TMP08J 


TMPPAR 


TMPPSN 


M 

U 

N 

U 

R 

IS 

r 

n 

n 

n 

F 

IS 

F 

IS 

G 

IS 

H 

IS 

I 

IS 

.1 

IS 

K 

IS 

1 

IS 

M 

IS 

N 

IS 

R 

16 

C 

16 

D 

16 

F 

16 

F 

16 

fi 

16 

H 
I 

n 

.1 

16 

K 

16 

L 

16 

M  16 


TMPPVC 


TMPRDT 
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10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 


.TITLE  TMPRDT  -  PARSE  REMOTE  DTE  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  8Y 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  i"  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABlE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SF'OULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  REMOTE  DTE  IN  CETAB 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  H-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS   VI. 1 

4.00     07-NOV-83 

DECNET-11M  Vt.O 
DECNET-llM-PLUS   V2.0 

5.00     22-JUL-85 

f^ECnet-IIM/S   V4.2 
uECnet-IIM-Plus   V3.0 
DECnet-Micro/RS*   VI. 0 


1 
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TMPF 


5? 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79  000000 

80 

81  000000 

82  000002 

83  000004 

84  000010 
85 

86  000002 
87 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


MACRO  CALLS 
**** 


.MCALL   ISTATS, STATES, TRANS 


LOCAL  DATA 


000000 


000074 
000076 


000000 


000012 


LA  = 
RA  = 
TEMP 


'> 


LKW   1 
DEFINE  REMOTE  TEMPLATE 


C.NAM: 
C.ADD: 
C.LEN= 


.ASECT 
.=0 

.BLKW 
.BLKW 
.BLKW 
.BLKW 

.PSECT 


LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  BRACKET 
ADDRESS  OF  REMOTE  TEMPLATE 


C.LNK 

C.STS 

REMOTE  NODE  NAME 

RtMOTE  NODE  ADDRESS 


C  2 
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5'. 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 


oO 
81 
82 
83 
8A 
85 
86 
87 


90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

1C5 

106 

107 

103 

109 

110 


**** 
LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 


°R!NT 
TEXT,RO 
SPRINT 
PRINT 


TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  NUMBER  WITH  RANGE  CHECKING 

.MACRO  SGTNUM  0FFS,LO=<#0>,HI=^*177777>,OPT 
MOV     0FFS,R2 
MOV     LO,R0 
MOV     HI.RI 
.IF  NB  <OPT> 


BIS 

OPT, a. FLAGS 

.ENDC 

J  MP 

SGTNUM 

.ENDM 

.MACRO 

SGTNMB  0FFS,L0=<#0>,HI=<*377> 

,OPT 

MOV 

0FFS,R2 

MOV 

LO.RO 

MOV 

HI.RI 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

J^'P 

SGTNMB 

.ENDM 

;  RET  RAD50  WITH  FIELD  SIZE  CHECKING 

.MACRO 

SGTR50  OFFS,LEN,OPT 

MOV 

0FFS,R2 

MOV 

LEN,R1 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTR50 

.ENDM 

•  **** 

;  MACRO  CALLS 

■  *  *  ** 

C  3 
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4? 

48 

50 

51 

52 

53 

54 

55 

56  000000 

57 

OOOCOO 

58  000000 

59  000002 

60  000004 

61  000006 

62  000010 

63  000012 

64  000022 

65  000032 

66  000034 

67  000050 

68  000054 

69 

000056 

70  000000 

71 

72 

73 

74 

000001 

75 

000002 

76 

000004 

77 

000010 

78 

000020 

79 

000040 

80 

000100 

31 

000200 

82 

000400 

83 

84 

85 

86 

87  000000 

88  000002 

89  000022 

■  MACRO  CALLS 

■  **** 


.MCALL   I  STATS, STATES, TRANS, SAVRG.RESRG 


DEFINE  SERSDF  TEMPLATE 


C.LNK 
C.FLG 

option  flagb 
Target  node  address 
Host  node  address 
Hardware  address 
Service  circuit 
Service  device 
Service  password 
Dump  address 
Dump  count 


.ASECT 

.  =  0 

.BLKW 

1 

.BLKW 

1 

SSFLG 

.8LKW 

1 

SSADD 

.BLKW 

1 

S$HST 

.BLKW 

1 

SSHAD 

.BI-KU 

4 

SSCJR 

.BLKW 

4 

SSDEV 

.BLKW 

1 

SSPSS 

.BLKW 

6 

SSDPA 

.BLKW 

2 

SSDPC 

.BLKW 

1 

SSLEN 

.PSECT 

;  Fla 

js  defini 

tions 

SF.AD 

)  =  1 

SF.HS 

■  =  2 

SF.HA 

)  =  4 

SF.CI 

^  =  10 

SF.DE 

1/  =  20 

SF.PS 

S  =  40 

SF.DP 

i\  =  i;o 

SF.DP 

:  =  200 

SF.PH 

3  =  400 

■  Loc 

al  Data 

SERFL 

G:  .BLKW 

1 

HEXST 

R:  .BLKB 

16. 

EUDHE 

X: 

(16  bit  node  address) 
(16  bit  node  addresi.) 
(RAD50) 

(extended  RAD50) 
(extended  RAD50) 
(RAD50) 

(octal  binary) 
(in  k  bytes) 


Target  address  specified 
Host  address  specified 
Hardware  address  specified 
Service  circuit  specified 
Service  device  specified 
Service  password  specified 
Dump  address  specified 
Dump  count  specified 
Service  node  type  is  Phase 


HEX  STRING  BUFFER 
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SYMBOL  CROSS  REFERENCE 
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CREF       Oi.OO 


SYMBOL 

VALUE 

REFERENCES 

SRONLY 

r     *+»*»* 

5-96 

5-96 

5-96 

SSTRNG 

=  000004 

#5-96 

SSUBXP 

=  000010 

#5-96 

$TALOC 

r     * t**** 

GX 

6-239 

tTMSER 

000022 

R(i 

#6-235 

$$$FLG 

=  177777 

#5-96 

U$<EY 

=  177777 

#5-96 

.CAT5E 

=      ****** 

GX 

8-344 

10-450 

.ERROR 

-      ****** 

GX 

»6-245 

.F^  AGS 

r     ****** 

GX 

*6-2A2 

.PNUMB 

=     ****** 

GX 

7-279 

7-307 

9-379 

9-392 

.PNUMH 

-     ****** 

GX 

9-380 

.rSTCN 

-     ****** 

GX 

8-336 

10-421 

PSTPT 

=     ****** 

GX 

8-341 

9-364 

10-427 

10-447 

.TEMP 

=     ****** 

GX 

*6-240 

6-250 

7-283 

7-312 

.TPARS 

-     ****** 

GX 

6-249 

-340 


9-366 


9-378 


9-391 


10-446 


TMPSER 
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SETUNl  -  SET  THE  UNIT  NUMBER 


TMP; 


337 

338 

339 

3A0 

341 

3A2 

3A3 

34A 

345 

3A6 

34? 

348 

349 

350  000556 

351 


.SBTTL  SETUNT  -  SET  THE  UNIT  NUMBER 

*«*  -  SETUNT  -  SET  THE  UNIT  NUMBER 

INPUT: 

.PNUMB  =  UNIT  NUMBER 

.PNUMH  =  UNIT  NUMBER  (h:GH  ORDER) 

OUTPUT: 

THE  UNIT  NUMBER  IS  STORED  IN  SSLUNT  OF  THE  TEMPLATE. 

SETUNT:  SGTNMB  *S$LUNT 


C  6 

TMPSLT  -  CFE  PARSE  LINE  DEFINII  MACRO  V05.03b  Saturday  29-Jun-85  05:4^  Page  11 
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:22 

123 

124 

125 

126  000036 

127 

128  000036 

129  000036 
130 

131  000036 

132  000036 
133 

13A  000036 
135  000036 
136 

137  000036 

138  000036 

139  000036 
1A0 

141  000036 

142  000036 

143  000036 

144  000036 
145 

146  000036 

147  000036 
148 

149  000036 

150  000036 

151  000036 
152 
153 
154 
155 

156  000036 

157  000036 

158  000036 
159 

160  000036 

161  000036 
162 

163 
164 
165 

166  C00036 

167  000036 
168 

169  000036 

170  000036 
171 

172  000036 

173  000036 

174  roC036 
175 

176  000036 
V7  000036 
]7&  000036 


000036 
000036 


INITIALIZE    TABIE    GENERATION 
**** 

ISTATS  STASTB.STAKTB 

STATES 

TRANS  $NUMBR,,SEIAD[) 

STATES 

TRANS  <',> 

STATES 

TRANS  $RAD50 

STATES 

TRANS  <',>,SFLAG 

TRANS  SLAMDA,SEXIT 

STATES  SFLAG 

TRANS  :5fS,STACST 

TRANS  <',>,STACST 

TRANS  SLAMDA.SEXIT 

STATES  STACST 

TRANS  SNUM8R,,SETCST 

STATES 

TRANS  <',>,APRNUM 

TRANS  SLAMDA.SEXIT 

STATES  APRNUM 

TRANS  SNUMBR,,SETAPR 


STATES 
TRANS 
TRANS 

<',>,HTIMR 
$LAMDA,SEXIT 

STATES 
TRANS 

HTIMR 
SNUM8R,SEX!T,SETHTI»I 

LOOK  FOR  BITS 

STATES 
TRANS 

SFS 
"SF" 

STATES 
TRANS 

'.,8iT5 

STATES 
TRANS 
TRANS 

SKIP 

V.SFS 

<',^,SEXIT 

SKIP  FLAG  BITS 

SET  STATION  COST 

STATION  ACMVE  POLLING  RATIO 

HELLO  TIMER 


STATES  BITS 
TRANS  "ENA", SKIP, ,SF.ENA, FLAG 
TRANS  "SVC", SKIP, ,SF. SVC, FLAG 
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MACRO  DEfINITIO^JS 


TMI 


55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
6« 
70 
71 
72 
73 
7^ 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 


.SBTTL  MACRO  DEflNITlOMS 
LOCAL  MACROS 


.MACRO  PRI^T   TEXT 

MOV  TEXT.RO 

rALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERl 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERR^"^  LUN 


.MACRO  SGTNUM  OFFS,LO=<#0>,HI--<#1 77777>, OPT 

MOV     0FFS,R2 

MOV     LO.RO 

MOV     HI.Rl 

.IF  NB  <OPT> 

BIS 

.ENDC 

JMP 

.ENDM 

.MACRO  SGTNMB  OFFS,LO=<#0>,HI=<*377>,OPT 


OPT, a. FLAGS 
SGTNUM 


MOV  0FFS,R2 

MOV  LO.RO 

MOV  HI,R1 

.IF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNMB 

.ENDM 

GET  RAD50  WITH  FIELD  SIZE  CHECKING 

.MACRO  SGTR50  OFFS,LEN,OPT 
MOV     0FFS,R2 
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1 
2 
5 

L 

5 
6 

7 

8 
9 

10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 
39 
40 
41 
A2 
A3 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   TMPUNT  -  CFE  PARSE  UNIT  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCIUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  UNIT  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY; 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DEtNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PIus  '.'3.0 
DECnet-Micro/RSX  VI. 0 


TMPUNT 
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TMPUNT     CREATED  BY  MACRO  Ct:   29-JUN-85  AT  OSi'.S 
MACRO  CROSS  REFERENCE 
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PAGE  2 

CREf   OA.OO 


MACRO  NAME 

REFERENCES 

DBGTPt 

#5-99 

#5-121 

#5-128 

#5-132 

#5-136 

#5-140 

ISTATS 

#A-68 

5-99 

ITRANS 

#5-99 

PRINT 

STATES 

#4-59 
#4-68 

5-101 

#5-104 

#5-107 

#5-110 

#5-113 

#5-116 

#5-119 

#5-123 

#5-126 

#5-130 

#5-134 

#5-138 

#5-142 

#5-145 

#5-148 

TRANS 

#4-68 

#5-102 

#5-105 

#5-108 

#5-111 

#5-1U 

#5-117 

#5-120 

#5-121 

#5-124 

#5-127 

#5-128 

#5-131 

#5-132 

#5-135 

#5-136 

#5-139 

#5-140 

#5-143 

#5-146 

IMF 

SY^ 
.TF 


»»FILE»MD«*TMP)(2P 
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SYMBOL    CROSS   REFEREMCE 

SYMBOL      VALUE  REFERENCES 

.TPARS     =   t..,..     Gx  7-258 


B  11 

PAoE   2 

CREF       04.00 


TMPX2P 
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MACRO  CROSS  REPERENCE 
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CREF   0';.00 


MACRO  NAME 

REFERENCES 

DBGTPt 

#6-U3 

iPRINT 

#^-78 

ERROR$ 

#4-67 

7-195 

ISTATt 

#4-124 

6-143 

MTRANS 

#6-143 

3RINT 

#4-62 

STATES 

#4-124 

6-U8 

#6-150 

TRANS 

#4-124 

#6-149 

#6-151 

tGTNMB 

#4-100 

8-?^. 

SGTNUM 

#4-90 

8-212 

$GTR50 

#4-112 

#6-152 
#6-153 


#6-155 
#6-156 


#6-158 
#5-159 


#6-164 


TMP 

SYM 

5YM 

$GT 
$LA 
INU 
$RA 
tRO 
$ST 
$SU 
$TA 
STM 
$$t 
$$S 
.ER 
.TE 
.TP 


♦♦r !LE««ID»«TMPX3P 
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TMf 


tmpx3p        created  by    macro    on  29-jun-85  a"  05:46 
symeol  cross  reference 


8-526 
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CREF   DA. 00 


SYMBOL 

VALUE 

REFERENCES 

SGTNUM 

r  *♦♦**« 

GX 

8-524 

SLAMDA 

=  000000 

#6-172 

SNUMBR 

=  000002 

#6-172 

$RAD50 

=  000016 

#6-172 

SRONLY 

-  ****** 

6-172 

SSTRNG 

=  000004 

#6-172 

SSUBXP 

=  000010 

#6-172 

STALOC 

=  ****** 

GX 

7-279 

$TMX3P 

000610 

HG 

#7-276 

$$$FLG 

=  \mii 

#6-172 

SSSKEV 

--   177777 

#6-172 

.ERROR 

-  ****** 

GX 

7-287 

.TEMP 

z   ****** 

GX 

•7-280 

.TPARS 

r:  ****** 

GX 

7-285 

6-172 


6-172 


TMPX5P 
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•  •F  ILE«MD««UPDCHN 


UU    uu 

pppppppp 

DDDDDDOD 

CCCCCCCC 

HH 

HH 

NN     m 

uu    uu 

pppppppp 

DDDDDDDD 

CCCCCCCC 

HH 

m          m 

uu    uu 

pp 

=p 

DD 

DD 

h,, 

HH 

NN      NN 

uu    uu 

pp 

pp 

DD 

DD 

HH 

HH 

NN      NN 

uu    uu 

pp 

pp 

OD 

DD 

HH 

HH 

NNNN    NN 

uu    uu 

pp 

pp 

DD 

DD 

HH 

HH 
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uu    uu 

pppppppp 

DD 

DD 

HHHHHHHHHH 
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pppppppp 

DD 

DD 

HHHHHHHHHH 
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pp 

DD 

DD 

HH 

HH 
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pp 

DD 

DD 

HH 

HH 

NN    NNNN 

uu    uu 

pp 

DD 

DD 

HH 

HH 
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uu    uu 

pp 

DD 

DD 

HH 

HH 

NN      NN 

uuuuuuuuuu 

pp 

DDDDDDDD 

CCCCCCCC 

HH 

HH 

NN      NN 

uuuuuuuuuu 

pp 

DDDDDDDD 

CCCCCCCC 

HH 

HH 

NN      NN 

LL 

SSSSSSSS 

-L 

SSSSSSSS 

a 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

TTTTl 
TTTn 


rriTT 

rTTiT 


LLLLLLLLLL    SSSSSSSS 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74  000000 

75 

76 

77 

78  000000 

79  000000 

80  000000 

81  000002 

82  000004 

83  000006 

84  000010 

85  000012 
000014 


87 
88 
89 


000002 


000016 


*  *  *  * 

LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT,RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


•  **** 

;  MACRO  CALLS 

■  *  *** 

.MCALL   ISTATS, STATES, TRANS 

•  **■** 

;  LOCAL  DATA 

;  *  *  *  * 

TEMP: 

.BLKW   1             ;  ADDRESS  OF  CONTROLL 

•  DEFINE  CONTROLLER  TEMPLATE 

.ASECr 
.=0 

C.CNT 
C.VEC 
C.CSR 
C.PRI 
C.URM 

.BLKW   1 
.BLKW   1 
.8LKU   1 
.BLKW   1 
.BLKW   1 
.8LKW   1 
.BLKW   1 

C.LNK 

C.STS 

CONTROLLER  NUMBER 

VECTOR  ADDRESS 

CSR  ADDRESS 

CONTROLLER  PRIORITY 

UNI8US  RUN  MASK 

C.LEN= 


.PSECT 
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1 
2 
5 

5 
t 
7 
8 
9 
10 
11 
12 
13 
V-, 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


TITLE  UPDCUG  -  UPDATE  USER  GROUP  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  Br 
DIGITAL  EQUIPMENT  CORPORATION,  "AYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WlTtl  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  USER  GROUP  DEFINITION  IN  CETAB 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


ITS 


1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI, 


3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Mi'cro/RSX   VI. 0 


C  16 
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MifRn  rm  1  c  AMD  1  nCAl  DATA 


TMPRD'  -  ""ARSE  REMOTE  DTE 
MACRO  DEMNITIONS 

57 
58 
59 
6C 
61 
62 
63 
6^, 
65 
66 
67 
68 
69 

70 
71 

72 

73 
74 

75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

'04 

105 

'06 

107 

1CS 

109 

110 

111 

113 
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65:4C 


.SBTTL 

MACRO  DEFINITIONS 

LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 

PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRJNT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SGTNUM  OFFS,LO=<#0>,HI=<*1 77777> , OPT 
MOV     0FFS,R2 
MOV     LO.RO 
MOV     HI.RI 
.IF  NB  <OPT> 


BIS 

OPT, a. FLAGS 

.ENDC 

J  MP 

SGTNUM 

.ENDM 

.MACRO 

SGTNMB  OFFS,LO=<#0>,HI=:<#377>,OPT 

MOV 

0FFS,R2 

MOV 

L0,R0 

MOV 

HI.RI 

.IF  NB 

<0P1> 

BIS 

OPT, S. FLAGS 

.ENDC 

JMP 

SGTNMB 

.ENDM 

;  GET  RAD50  W! 

TH  FIELD  SIZE  CHECKING 

.MACRO 

SGTR50  OFFS,LEN,OPT 

MOV 

0FFS,R2 

D  1 
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;  INITIALIZE  TABLE  GENERATION 


ISTATS  REMSTB.REMKTB 


STATES 
TRANS  LA 

STATES 
TRANS  SSTRNCSETNAM 

STATES 
TRANS  RA 

STATES 
TRANS  <",> 

STATES 
TRANS  <',>,ADD2 
TRANS  SNUMBR,,SETARE 


STATES 
TRANS  <',> 

STATES  ADD2 
TRANS  SNUM8R,,SETADD 

EXIT  STATE 

STATES  EXIT 
TRANS  SEOS.SEXIT 

STATES 


TMPi 


91 

'i? 

<)'; 

9A 

000002 

9S 

4ft 

)' 

000002 

,H 

000002 

44 

1 00 

000002 

101 

000002 

lOr' 

101 

000002 

104 

000002 

10S 

106 

000002 

10/ 

000002 

lOH 

104 

000002 

110 

000002 

111 

000002 

IV 

1H 

IK 

000002 

11') 

000002 

116 

IV 

000002 

lis 

000002 

•|14 

VO 

VI 

V2 

00000' 

V'i 

00000. 

V4 

Vb 

000002 

0  2 
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TMP 


C  3 
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.MCALL   !STAT$, STATES, TRAN$,rALLR 


111 

112 

115 

llA 

115 

116 

117 

118 

00007;, 

119 

000076 

120 

177777 

121  000000 

122 

123 

12A 

125  000000 

126 

000000 

127  000000 

128  000002 

129  OOOOOA 

130  000006 

131  000010 

132  000012 

133  OOOOU 

13-',  000016 

135  000020 

136  000022 

137  000024 

138 

000026 

139  000002 

IaO 

;  LOCAL 

DATA 

•   *  *  *  * 

LA  =  '< 

RA  =  ■> 

MAXRTM  = 

65535. 

TEMP: 

.BLKW   1 

;  DEFINE 

ROUTING 

• 

.ASECT 

.=0 

.8LKW   1 

.BLKW   1 

C.AOD: 

.BLKW   1 

C.CST: 

.BLKW   1 

CHOP: 

.BLKW   1 

C.RTM: 

.BLKW   1 

C.NA: 

.BLKW   1 

C.NBEA: 

.BLKW   1 

C.AHOP: 

.BLKW   1 

C.ACST: 

.BIKW   1 

C.L2TM: 

.BLKW   1 

C.LEN=. 

LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  BRACKET 
ROUTING  TIMER  MAXIMUM  VALUE 
ADDRESS  OF  REMOTE  TEMPLATE 


C.LNK 

C.STS 

MAXIMUM  NODE  ADDRESS 

MAXIMUM  COST  ALLOWED 

MAXIMUM  NUMBER  OF  HOPS  ALLOWED 

ROUTING  TIMER 

NUMBER  OF  AREAS 

NUMBER  BRO  ENDNODE  ADJACENCIES 

AREA  HOPS 

AREA  COST 

LEVEL  2  TIMER 


.PSECT 


D  3 
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91 
92 
95 
94 
9b 

96  00002  :j 

97 

98  000022 

99  000022 

100  000022 

101  000022 
102 

103  000022 

104  000022 

105  000022 

106  000022 

107  000022 
108 

109  0000^2 
lie  000022 

111  000022 

112  000022 

113  000022 
114 

113  000022 

116  000022 

117  000022 

118  000022 

119  000022 

120  000022 
121 

122  000022 

123  000022 

124  000022 

125  000022 

126  000022 

127  000022 
128 

129  000022 

^30  000022 

131  000022 

132  000022 

133  000022 

134  C00022 
135 

136  000022 

137  000022 

138  000022 

139  000022 

140  000022 

141  000022 
142 

143  0C0022 

144  000022 
^i5  000022 

146  000022 

147  000022 


•  INITIALIZE  TABLE  GENERATION 


1STAT$ 

SERSTS, 

SERKTB 

STATES 

TRANS 

SNUMBR, 

SERl, 

STATES 

SER1 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR , 

STATES 

TRANS 

SEOS, 

EXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR, 

SER5, 

TRANS 

SLAMDA 

STATES 

SER5 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR, 

SER10 

TRANS 

SLAMDA 

STATES 

SER10 

TRANS 

SEOS, 

EXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

.'CIRC, 

SER15 

TRANS 

SLAMDA 

STATES 

SER15 

TRANS 

SEOS, 

EXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

SSTRNG, 

SER20 

TRANS 

SLAMDA 

STATES 

SER20 

TRANS 

SEOS, 

Exr 

TRANS 

<'  ,> 

STATES 

TRANS 

SSTRNG, 

SER25 

TRANS 

SLAMDA 

STATES 

SER25 

TRANS 

SEOS, 

EXIT 

TRANS 

<',> 

STATE? 

TRANS 

SNUMBR 

SER50 

TRANS 

SLAMDA 

STATES 

SER30 

TRANS 

^FOS, 

EXIT 

SETARE 


;  Remote  area 


;  Remote  address 
SETADD,  SF.ADD,  SERFL6 


;  Optional  Host  area 
HDSARE,  SF.HST,  SERFLG 


;  Optional  Host  aadress 
HOSADD,  SF.HST,  SERFLG 


;  Optional  ser\,ice  circjit 
STCIR,  SF.CIR,  SERFLG 


;  Optional  service  device 
SERDV,  SF.DEV,  SERFLG 


;  Optional  password 
PAS,    SF.PSS,  SERFLG 


;  Optional  dump  address 
DADDR,   SF.l-fA,  SCRFL': 


TMPSI 
MACRI 
MACRI 
DBGTI 


3TA 
■ITRAi 
RESRi 
SAVR' 
STAT 


TRAN 
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TMPSER     CREATED  BY  MACRO  OM  29-JUM-85  AT  05:'.2 
MACRO  CROSS  REFERENCE 


C  5 

PAGE  3 

CREF   0-4.00 


MACRO  NAME 
DBGTPS 


5TAT$ 
TRANS 
RESRG 
SAVRG 
STATES 


TRANS 


REFERENCES 

#5-96 

#5-U1 

#5-191 

#A-51 

#5-96 

#A-51 

#4-i1 

#4-'.  i 

#5-;25 

#5-  160 

#5-197 

#A-51 

#5-117 

#5-134 

#5-152 

#5-169 

#5-195 


#5-107 

#5-U5 

#5-195 

5-96 

8-3« 
8-338 
5-98 
#5-129 
#5-164 
#5-199 
#5-99 
#5-119 
#5-137 
#5-154 
#5-176 
#5-198 


#5-111 
#5-U3 
#5-212 


10-457 
10-444 
#5-100 
#5-132 
#5-167 
#5-202 
#5-101 
#5-120 
#5-138 
#5-155 
#5-178 
#5-200 


#5-117 
#5-152 


#5-103 
#5-136 
#5-175 
#5-204 
#5-104 
#5-123 
#5-140 
#5-158 
#5-180 
#5-203 


#5-120 
#5-155 


#5-105 
#5-139 
#5-177 
#5-210 
#5-106 
#5-124 
#5-141 
#5-159 
#5-181 
#5-205 


#5-124 
#5-159 


#5-109 
#5- 1 43 
#5-179 
#5-217 
#5-107 
#5-126 
#5-144 
#5-161 
#5-i84 
#5-211 


#5-127 
#5-162 


#5-112 
#5-146 
#5-183 
#5-220 
#5-110 
#5-127 
#5-145 
#5-162 
#5-187 
#5-212 


#5-131 
#5-166 


#5-115 
#5-150 
#5-186 

#5-111 
#5-130 
#5-147 
#5-165 
#5-190 
#5-218 


#5-134 
#5-169 


#5-118 
#5-153 
#5-189 

#5-113 
#5-131 
#5-148 
#5-166 
#5-191 


#5-138 
#5-181 


#5-122 
#5-157 
#5-193 

#5-116 
#5-133 
#5-151 
#5-168 
#5-194 


**FILE»MD**TMPSLT 


D  5 


C  6 
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SETC1T  -  SET  THE  COUNTER  TIMER 


TMP; 


353 

35^, 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364  000576 


.SBTTL  SETCTT  -  SET  THE  COUNTER  TIMER 
SETCTT  -  SEi  THE  COUNTER  T.'"ER 


INPUT: 


.PNUMB  =  COUNTER  TIMER 


OUTPUT: 

THE  COUNTER  TIMER  IS  STORED  IN  SSLCTT  OF  THE  TEMPLATE. 

SETCTT:  SGTNUM  #S$LC FT , , ,*SL$C TM 


D     6 
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TMP 
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179  000056  TRANS  "MfL", SKIP, ,SF .MfL .FLAG 

180  000036  TRANS  "SER", SKIP, ,SF .SER, FLAG 
1  HI 
18?  000056  STATES 
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TMPSVC  - 
MACRO  DE 

112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 


C  8 

PARSE  SWITCHED  VIRTUAL  MACRO  V05.03b  Saturday  29-Jun-85  05:«A  Page  4-1 
F1^J1TID^JS 

MOV     LEN,R1 

.IF  NB  <OPT> 

BIS     OPT, a. FLAGS 

.ENDC 

JMP     $GTR50 

.ENDM 


TM 


OOOOOC 


MACRO  CALLS 

.MCALL   ! STATS, STATES,  TRANS, CALLR,SVCDF$ 
SVCDFS  ;  DEFINE  SVC  FLAGS 


D  8 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

71.   000000 

75 

76 

77 

78  000000 

79 

80  000000 

81  000002 

82  OOOOOA 

83  000006 

84  000010 

85  000012 

86  OOOOU 

87  000016 

88  000020 

89  000022 

90  000024 
91 

92  000002 
93 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT,RO 

CALL  SPRINT 

.ENDM  PRINT 


Page  4 


POINT  RO  AT  ADDRESS  Of  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


000000 


000026 


;  MACRO  CALLS 

;  *  *  *  * 

.MCALL   1 

•  **** 

;  LOCAL  DATA 

;  *  *  *  * 

TEMP: 

.BLKW   1 

;  DEFINE  UNT  TEMP 

' 

.ASECT 

.=0 

.BLKW   1 

.BLKW   1 

CUNT 

.BLKW   1 

C.CWO 

.BLKW   1 

C.CWI 

.BLKW   1 

C.CSR 

.BLKW   1 

C.CST 

.BLKW   1 

C.DPR 

.BLKW   1 

.BLKW   1 

.BLKW   1 

C.PCH 

.BLKW   1 

C.LEN 

ISTATS, STATES, TRANS 


.PSECT 


ADDRESS  OF  UNIT  TEMPLATE 


C.LNK 

C.STS 

UNIT  NUMBER 

CHARACTERISTICS  WORD  0 

CHARACTERISTICS  WORD  1 

SECONDARY  CSR  ADDRESS 

LINE  COST 

DEAD  POLLING  RATIO 

UNUSED 

UNUSED 

EMULATOR  CHARACTERISTICS 


D  9 
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•  •FILE'MD«»TMPX2P 


C  10 


TTTiTTTTTT 

MM 

MM 

PPPPPPPP 

XX      XX 

222222 

PPPPPPPP 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

Xa      XX 

222222 

PPPPPPPP 

MMMM 

MMMM 

PP 

=P 

XX      XX 

22     22 

PP     PP 

MMMM 

MMMM 

PP 

^P 

XX      XX 

22     22 

PP     PP 

MM 

MM  MM 

PP 

=P 

XX   XX 

22 

PP     PP 

MM 

MM  MM 

PP 

ap 

XX   XX 

22 

PP     PP 

MM 

MM 

PPPPPPPP 

XX 

22 

PPPPPPPP 

MM 

MM 

PPPPPPPP 

XX 

22 

PPPPPPPP 

MM 

MM 

PP 

XX   XX 

22 

PP 

MM 

'<M 

PP 

XX  XX 

22 

PP 

MM 

MM 

PP 

XX      XX 

22 

PP 

MM 

MM 

PP 

XX      XX 

22 

PP 

MM 

MM 

op 

XX      XX 

2222222222 

PP 

MM 

MM 

PP 

XX      XX 

2222222222 

PP 

TMI 

MA( 

MAI 

CAl 
DB( 
EPI 
ER! 
IS 
MTi 
PR 
ST* 


TR 


$G 
$G 
$G 


ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLl 

SSSSiSSS 

LLLLLLLLLL 

ssssssss 

L 
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TMPX2P  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:45  PAGE   3 

MACRO   CROSS   REFERENCE  CREF        OA.OO 


MACRO  NAME 

REFERENCES 

rALLR 

#A-12A 

OBGTPS 

#5-1 6A 

#6-221 

iPRINT 

#4-78 

ERRORS 

#4-67 

7-262 

ISTATS 

#4-124 

6-164 

MTRANS 

#6-164 

PRINT 
STATES 

#4-62 
#4-124 

6-158 

#6-170 

#6-172 

#6-175 

#6-177 

#6-179 

#6-182 

#6-184 

#5-186 

#6-189 

#5-191 

#6-193 

#5-196 

#6-198 

#5-200 

#5-203 

#6-205 

#6-207 

#6-213 

#6-215 

#6-217 

#6-219 

#6-222 

#5-227 

TRANS 

#4-124 

#6-169 

#6-171 

#6-173 

#6-176 

#6-178 

#6-180 

#6-183 

#5-185 

#6-187 

#6-190 

#6-192 

#6-194 

#5-197 

#6-199 

#5-201 

#5-204 

#6-205 

#6-208 

#6-214 

#6-216 

#6-218 

#6-220 

#6-221 

#6-223 

SGTNMB 
SGINUM 

#4-100 
#4-90 

8-286 

8-288 

8-290 

8-292 

8-294 

8-312 

8-314 

SGTR50 

#4-112 

8-310 

•♦F1LE*MD*«TMPX29 


0  11 
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•rILE>«lD««TMPX5P 


ITTTTTTTTT 

MM 

MM 

PPPPPPPP 

XX      XX 

333333 

PPPPPPPP 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

XX      XX 

333333 

PPPPPPPP 

M'IMM 

MMMM 

PP 

=  P 

XX      XX 

33     33 

PP     PP 

M^'nM 

MMMM 

PP 

ap 

XX      XX 

^^    11 

pp     PP 

MM 

MM  MM 

PP 

PP 

XX   XX 

33 

P!-     PP 

MM 

MM  MM 

PP 

Dp 

XX   XX 

33 

PP     PP 

MM 

MM 

PPPPPPPP 

XX 

33 

PPPPPPPP 

MM 

MM 

PPPPPPPP 

XX 

33 

PPPPPPPP 

MM 

MM 

PP 

XX   XX 

33 

PP 

MM 

MM 

PP 

XX   XX 

33 

PP 

MM 

MM 

PP 

XX      XX 

33     33 

PP 

MM 

MM 

PP 

XX      XX 

33     33 

PP 

MM 

MM 

PP 

XX      XX 

333333 

PP 

MM 

MM 

PP 

XX      XX 

333333 

PP 

TMF 

MAC 

MAC 

DBC 
EPfi 
ERR 
ISI 
MTR 
PRl 
ST* 


TRf 


$G1 
$G" 

$G1 


LL 

ssssssss 

TTTTT 

TTTTT 

LL 

:sssssss 

TTTTT 

Mill 

LL 

bS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 
LLLLLLLLLL 

ssssssss 
ssssssss 
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TMPX5P     CREATED  BY  MACRO  ON  29-JUN-85  AT  05;A6 
MACRO  CROSS  REFERENCE 


MACRO  NAME 

REFERENCES 

DBGTPt 

*6-172 

EPRINT 

#A-78 

ERRORS 

*A-67 

'■-?§? 

ISTATt 

H-12', 

6-172 

MTRANt 

*6-172 

PRligT 

*^-62 

STAGES 

#4-12« 

6-177 

#5-179 

#6-198 

#6-200 

#6-202 

#6-221 

#6-223 

#6-226 

#6-2^^ 

#6-247 

#6-249 

TRANS 

#^-12A 

#6-178 

#6-180 

#6-199 

#6-201 

#6-203 

#6-22? 

#6-224 

#6-227 

#6-2^b 

#6-248 

#6-250 

SGTNMB 

#A-100 

8-328 

8-330 

SGTNUM 

#4-90 

8-324 

8-326 

SGTR50 

#^.-112 

#6-181 
#6-205 
#6-228 
#6-252 
#6-132 
#6-206 
#6-229 
#6-253 
8-332 


C  13 

PAGE    5 

CREF        04.00 

#6-184 

#6-186 

#6-188 

#6-191 

#6-193 

#6-195 

#6-207 

#6-209 

#6-212 

#6-214 

#6-216 

#6-219 

#6-230 

#6-233 

#6-235 

#6-237 

#6-240 

#6-242 

#6-258 

#6-185 

#6-187 

#6-189 

#6-192 

#6-194 

*6-196 

#6-208 

#6-210 

#6-213 

#6-215 

#6-217 

#6-220 

#6-231 

#6-234 

#6-236 

#6-238 

#6-241 

#6-243 

8-334 

8-336 

8-338 

8-340 

8-342 

8-344 
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**F  ILE»»ID»«UPDBUF 


UPDCHN  -  UPDATE  OUTGOING  CHANNE  MACRO  V05.03b  Saturday  29-Jun-85 
Table  of  contents 

4-   57    MACRO  CALLS  AND  LOCAL  DATA 

4-  58    MACRO  DEflMTIONS 

5-  12?    LOCAL  DATA 

6-  1"5?    SUPCHN  -  UPDATE  CHANNEL  DEFINITION 


05:47 


D  K 
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IPDCNT  -  CFE  UPDATE  CONTROLLER  MACRO  V05.05t)  Saturday  29-Jun-85 


05:4 


8  Page  5 


91 

92 

93 

94 

95  00000? 

96 

97  000002 

98  000002 
99 

100  000002 

101  000002 
102 

103  000002 
10A  000002 
105 

106  000002 

107  000002 
108 

109  000002 

110  000002 
111 

112  000002 

113  000002 
1U 

115  000002 

116  000002 
117 

118  000002 

119  000002 
120 

121  000002 

122  000002 

123  000002 
124 

125  000002 

126  000002 
127 

128  000002 

129  000002 

130  000002 

131  000002 
132 

133  000002 

134  000002 
135 

136  000002 


INITIALIZE  TA8LE  GENERATION 
*  *** 

ISTATS  CNTSTB.CNTKTS 

STATES 
TRANS  SNUMaR,,SETCNT 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUMeR,,SETVEC 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUMeR,,SETCSR 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUMBR,,SETPRI 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,RCDEV,SETURM 
TRANS  SLAMDA,,SETURM 

STATES  RCDEV 
TRANS  <',>,, SMOVPT 

STATES 

TRANS   SALPHA,, SMOVPT 
STATES 

TRANS   SALPHA,, SMOVPT 

STATES 
TRANS  SEOS,SEXIT,SCLNUP 

STATES 
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UPDCUG  -  UPDATE  USER  GROUP  DEFI 
MACRO  CALLS  AND  LOCAL  DATA 

57 
58 
59 
60 
61 
62 
6? 
(■I, 
>5 
,■6 
6' 
68 
69 
70 
71 
72 
73 
7^ 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8^ 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9^ 
95 
96 
97 
98 
99 
100 
101 
102 
103 
}(it, 
105 
106 
107 
108 
109 
110 

111  000000 

112  000000 
!13 


^5^^- 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
.SBTTL  MACRO  DEFINITIONS 

LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  tCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 


.IF  DIf 

<TEXT><RO> 

MOV 

TEXT,RO 

.ENDC 

CALL 

SCFERI 

.ENDM 

EPRINT 

MERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS,OCTL,OPT,?L 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  N3 

<0CTL> 

MOV 

SP.RI 

.IFF 

CLR 

R1 

.ENDC  ; 

IF  NB  <OCTL> 

CALL 

'ROU 

.IFT  , 

IF  NB  <OPT> 

.ENDC  , 

IF  NB  <OPT> 

.ENDM  , 

•ROU 

.ENDM  , 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNMB 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


D  16 
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MAfRO   DEflMTIONS 


Page  4-1 


114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


MOV     LEN.fil 
.IF  N8  <OPT> 
BIS 
.ENDC 


JMP 
.ENDM 


MACRO  CALLS 
.MCALL 


OPT, a. FLAGS 
$GTR50 


ISTATS, STATES, TRANS, CALLR 
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TMP 


127 

128 

129 

130 

131 

132 

133 

13^ 

135 

136 

137 

^iS 

139 

UO  000002 

1 

U1  000002 

010546 

1A2  00000^ 

012701 

000012 

K3  000010 

004767 

OOOOOOG 

U4  00001^ 

010067 

177760 

H5  000020 

016701 

OOOOOOG 

U6  000024 

042701 

001777 

14/  000030 

010160 

000010 

148  000034 

012760 

OOOOOOG  OOOOOOG 

149  000042 

005001 

150  000044 

012702 

000000' 

151  000050 

012705 

000000' 

152  000054 

004767 

OOOOOOG 

153  000060 

103002 

154  000062 

005267 

OOOOOOG 

155  000066 

016700 

177706 

156  000072 

004767 

000016 

157  000076 

004767 

OOOOOOG 

158  000102 

062767 

OOOOOOG  OOOOOOG 

159  000110 

012605 

160  000112 

000207 

.SBTTL  STHIEH  -  SETUP  REMOTE  TEMPLATE 
*«•  -  STMREM  -  SETUP  REMOTE  TEMPLATE 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE  „^  „  ^^^, 

IF  SUCCESS,  THE  REMOTE  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


STMREM: 


20$: 


MOV  R5,-(SP) 

MOV  #C.LtN,R1 

CALL  STIALC 

MOV  RO.TEMP 

MOV  $NTADD,R1 

BIC  #1777, R1 

MOV  R1,C.ADD(R0)    , 

MOV  #CS.REM,C.STS(RO> 

CLR  R1 

MOV  #REMKTB,R2 

MOV  #REMSTB,R5 

CALL  .TPARS 

BCC  20$ 

INC  $ERf:OR 

MOV  TEMP,RO 

CALL  FINREM 

CAL^  $OINSN 

ADD  #R.LENX,$BYTMN 

MOV  (SP)+,R5 

RETURN 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

GET  EXEC  ADDRESS 

ISOLATE  AREA 

INITIALIZE  WITH  DEFAULT  AREA 

;  INDICATE  THAT  THIS  IS  A  REMSDF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RETRIEVE  TEMPLATE  ADDRESS 

FIND  A  PLACE  TO  STORE  REMOTE  TEMPLATE 

INSERT  INTO  LIST 

UPDATE  MINIMUM  POOL  BYTE  EXTENSION 

RESTORE  R5 
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K2 

K5 

U4 

H5 

U6 

H7  000002 

H8 

U9 

150  000002 

151  000002 
152 

153  000002 

154  000002 
155 

156  000002 

157  000002 
158 

159  000002 

160  000002 
161 

162  000002 

163  000002 
164 

165  000002 

166  000002 

167  000002 
168 

169  000002 

170  000002 
171 

172  000002 

173  000002 

174  000002 

175  000002 

176  000002 
177 

178  000002 

179  000002 

180  000002 

181  000002 
182 

183  000002 

184  000002 

185  000002 

186  000002 
187 

188  000002 

189  000002 

190  000002 

191  000002 
192 

193  000002 

194  000002 

195  000002 

196  000002 
197 

193 


•  INITIALIZE  TABLE  GENERATION 

■  **** 


ISTATS  R0USTB,R0UKTB 


STATES 
TRANS  SNUMBR,,SETADD 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,SETCST 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,SETH0P 

STATES 
TRANS  SEOS.SEXIT 
TRANS  <',> 

STATES 
^Rn$     SNUMaR,,SETRTM 

STATEI. 

TRAN!.  SEOS.SEXIT 

TR/.'JS  <',- 
STATES 

TRANS  SNUM8R,,SETNA 

STATES 

TRANS     <",> 
STATES 

TRANS     SNUMBR,,SENBEA 

STATES 

TRANS  <",> 
STATES 

TRANS  SNUMBR,,SEAH0P 

STATES 

TRANS  <',> 
STATES 

TRANS  SNUMBR,,SEACST 

STATES 

TRANS  <',> 
STATES 

TRANS  SNUMBR,,SELV2T 
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♦  ♦Fll 


U8  000022 

150  000022 

151  000022 

152  000022 

153  000022 

154  000022 

155  000022 
156 

157  000022 

156  000022 

159  000022 

160  000022 

161  000022 

162  000022 
163 

164  000022 

165  000022 

166  000022 

167  000022 

168  000022 

169  000022 
170 

171 
172 
173 
174 

175  000022 

176  000022 

177  000022 

178  000022 

179  000022 

180  000022 

181  000022 
182 

183  000022 

184  000022 
185 

186  000022 

187  000022 

1  QQ 

189  000022 

190  000022 

191  000022 
192 

193  000022 

194  000022 

195  000022 
196 

197  000022 

198  000022 

199  000022 

200  000022 
201 

202  000022 

203  00''.V2 
20^   000022 


TRANS  <',> 


STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

SNUMBR,  SER35, 

SLAMDA 

SER35 

SEOS,   EXIT 

.  Optional  dump  count 
DCT.    SF.BpC,  SERFLG 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

SSTRNG,  SER40, 

SLAMDA 

SER40 

SEOS,   EXIT 

<'  .> 

;  Optional  hardware  address 
STHAD,  SF.HAD,  SERFLG 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

SER45 

5;SF.PH3X,SER50, 

5;SF.PH4X 

SER50 

<•.'>,   SER45 

SLAMDA,  EXIT 

;  Optional  Service  node  type 
SF.PH3,  SERFLG 

;  Subexpres-^ion 

to  parse  service  circuit 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

CIRC 
lALPNUM 

lALPNUM 

lALPNUM, CIRC5 
SLAMDA 

;  XX 

;  XXX 
;  or  XX 

STATES 
TRANS 

CIRCS 

;  XXX- 

STATES 
TRANS 

SDNUMB 

;  xxx-nn 

STATES 
TRANS 
TRANS 

:CIRC20,CIRC10 
SLAMDA 

;  xxx-nnC  im] 

STATES 

-  -  -   TRANS 

TRANS 

CIRCIO 

:CIRC30,SEXIT 
SLAMDA,  SEX  IT 

;  xxx-nn[-mm][.tt] 

STATES 
TRANS 

STATES 
TRAM 

CIRC20 
SDNUMB,  SEX  IT 

;  parse  optional  mux  unit 

STATES 

TRANS 

STATES 

CIRC30 
<'  .> 

;  parse  optional  trib  number 

TTTT 
TTTT 


LI 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLL 

LLLL 
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TMPS 


D  5 


♦♦FILE**ID»«TMPSLT 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

SSSSS5SS 

TTTTT 

TTTTT 

TTTTTTTTTf 

MM 

MM 

PPPPPPPP 

SSSSSSSS 

TTTTT 

1  1  1  1  1 

mm 

MMMM 

PP      PP 

SS 

M^M^ 

MMMM 

PP      PP 

SS 

MM 

m     MM 

PP      PP 

SS 

MM 

»IM  MM 

PP      PP 

SS 

MM 

MM 

PPPPPPPP 

SSSSSS 

MM 

MM 

PPPPPPPP 

SSSSSS 

MM 

MM 

PP 

SS 

MM 

:iM 

PP 

SS 

MM 

MM 

PP 

SS 

MM 

MM 

PP 

SS 

MM 

MM 

PP 

SSSSSSSS 

LLLLLLI.LLL 

m 

MM 

PP 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

1 

SS 

T 

SS 

J 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

"S 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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TMPSLT  - 
SETHTM  - 

366 
367 
368 
369 
370 
371 
372 
373 
37A 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
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SET  THE  HELLO  HMER 

.SBTTL  SETHTM  -  SET  THE  HELLO  TIMER 

.SBTTL  SETRPR  -  SET  ROUTING  PRIORITY 

.SBTTL  SET6RA  -  SET  BROADCAST  ROUTER  ADJACENCIES 

»*♦  -  SETHTM  -  SET  THE  HELLO  TIMER 

***  -  SETRPR  -  SET  ROUTING  PRIORITY 

***  -  SET8RA  -  SET  BROADCAST  ROUTER  ADJACENCIES 

INPUT: 


TMP! 
$TMI 


000624 
000652 
000700 


.PNUMB  =  HELLO  TIMER 

OUTPUT: 

THE  HELLO  TIMER  IS  STORED  IN  SSLHTM  OF  THE  TEMPLATE. 


SETHTM:  SGTNUM  #S$LHTM, , ,#SL$HTM 
SETRPR:  SGTNUM  #S$LRPR, , ,#SL$RPR 
S  TBRA:  SGTNUM  #SSLBRA, , ,*SLSBRA 
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TMP 


THPSTA  - 

CfE  PARSE  STATION  DEFI 

MACRO  V05.03b  Saturday  2 

STMSTA  - 

SETUP 

^.TATION 

TEMPLATE 

184 

.SSTTL 

185 

+ 

186 

**»  -  STMSTA  - 

187 

188 

INPUT: 

189 

R3-R5 

190 

191 

OUTPUT: 

192 

C-8IT  = 

193 

IF  SUCCE 

194 

195 

- 

196 

197 

000036 

STMSTA:: 

198 

000036 

010546 

MOV 

199 

000040 

005067 

177736 

CLR 

200 

000044 

012701 

000016 

MOV 

201 

000050 

004767 

COOOOOG 

CALL 

202 

000054 

010067 

177720 

MOV 

203 

000060 

012760 

OOOOOOG 

OOOOOOG        MOV 

204 

000066 

105060 

000007 

CLR8 

205 

000072 

105060 

000010 

CLR8 

206 

000076 

005001 

CLR 

207 

000100 

012702 

OOOOOC 

MOV 

208 

000104 

012705 

000000' 

MOV 

209 

000110 

004767 

OOOOOOG 

CALL 

210 

000114 

103002 

BCC 

211 

000116 

005267 

OOOOOOG 

INC 

212 

000122 

012605 

20$:    MOV 

213 

000124 

000207 

RETURN 

D  7 
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STMSTA  -  SETUP  STATION  TEMPLATE 
■  SETUP  STATION  TEMPLATE 

-  TPARS  REGISTERS 


IF  SUCCESS,  THE  STATION  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


R5,-(SP) 

FLAG 

#C.LEN,R1 

STALOC 

RO.TEHP        , 

#CS.STA,C.STS(RO) 

C.CST(RO) 

C.APR(RO) 

RI 

*s:aktb,R2 

*STASTB,R5 

.TPARS 

20$ 

SERROR 

(SP)+,R5 


SAVE  R5 

INITIALIZE  STATION  FLAGS 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  A  STA$DF  TEMPLATE 

CLEAR  COST  FIELD 

AND  APR 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 
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T^ 


12S 

.SBTTL 

lOcal  data 

■|'9 
130 
151 

.NLIST 

BEX 

•  SYNTAX  ERROR 

DETAIL  STRINGS 

132 
133 

# 

.NLIST 

BEX 

13^ 

000004 

EXSSEV 

=  4 

155  000000 

004 

103 

106 

ERRNAM 

.ASCJZ 

<EX$SEV>/CFE  — 

Error  1 

136  000052 

004 

105 

106 

ERRPS2 

.ASCIZ 

<EX$SEV>/CFE  ~ 

Error  i 

157  000067 

004 

103 

106 

ERRWSZ 

.ASCJZ 

<EX$SEV>/CFE  -- 

Error  i 

158  00012^ 

004 

103 

106 

ERRFLG 

.ASCIZ 

<EX$SEV>/CFE  — 

Error  i 

139  000153 

004 

103 

106 

ERRRCL 

.ASCIZ 

<EX$SEV>/CFE  ~ 

Error  1 

UO  000214 

004 

103 

106 

ERRTIM 

.ASCIZ 

<EX$SEV>/CFE  — 

Error  i 

Ul  000252 

004 

103 

106 

ERRDTE 

.ASCIZ 

<EX$SEV>/CFE  -- 

Error  i 

U2  000307 

004 

103 

106 

ERROWN 

.ASCIZ 

<EX$SEV>/CFE  -- 

Error  i 

U3 

.EVEN 

HA 

.LIST 

BEX 

1A5 

In  SVC  name/ 

in  packet  size/ 

in  window  size/ 

in  flags/ 

in  maximum  recat Is/ 

in  recall  timer/ 

in  DTE  ar*dress/ 
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r-TATC   TADi  n  c 
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95 
96 
97 
98 

99  000002 
100 

101  000002 

102  000002 
103 

104  000002 

105  000002 
106 

107  000002 

108  000002 
109 

110  000002 

111  000002 
112 

113  000002 
lU  000002 
115 

116  000002 

117  000002 
118 

119  000002 

120  000002 

121  000002 
122 

123  000002 

124  000002 
125 

126  000002 

127  000002 

128  000002 
129 

130  000002 

131  000002 

132  000002 
133 

134  000002 

135  000002 

136  000002 
137 

138  000002 

139  000002 

140  000002 
li1 

K2  000002 

145  00C002 
144 

U5  000002 

146  000002 
147 

148  000002 


■  INITIALIZE  TABLE  GENERATION 

;  *  *  *  * 

ISTATS  UNTSTB.UNTK'B 

STATES 

TRANS  SNUMBR,,SETUN7 

STATES 

TRANS  <",> 

STATES 

TRANS  SNUMBR,,SETCW0 

STATES 

TRANS  <',> 

STATES 

TRANS  SNUMBR,,SETCW1 

STATES 

TRANS  <',>,SECCSR 

STATES  SECCSR 

TRANS  SNUM8R,LINCST,SETCSfi 

TRANS  SLAMDA 

STATES  LINCST 

TRANS  <',> 

STATES 

TRANS  SNUMBR,LINDPR,SETCST 

TRANS  SLAMDA 

STATES  LINDPR 

TRANS  SEOS.SEXIT 

TRANS  <',> 

STATES 

TRANS  SNUM8R,PCHA,SETDPR 

TRANS  SLAMDrt 

STATES  PCHA 

TRANS  SEOS.SEXIT 

TRANS  -",> 

STATES 

TRANS  SNU.lBR,,SETPCH 

STATES 

TRANS  SEOS.SEXIT 

STATES 


LINE  COST 


;  DEAD  POLLING  RATIO 


EMULATOR  CHARACTERISTICS 
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Table  ot  contents 

4-  57    MACRO  DEFINITIONS 

5-  126    LOCAL  DATA 

6-  159    TPARS  STATE  TABLES 

7-  230    $TMX2P  -  BUILD  X2P  TEMPLATE 

8-  269    SETWSZ  -  SET  WINDOW  BLOCK  SIZE 
8-  270    SETBSZ  -  SET  BLOCK  SIZE 
8-  271    SETRTC  -  SET  RETRANSMIT  COUNT 
8-  272    SETRTT  -  SET  RETRANSMIT  TIMER 
8-  273    SETHBT  -  SET  HOLDBACK  TIMER 
8-  297    SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 
8-  298    SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 
8-  299    SETUNI  -  SET  UNIT  NUMBER  IN  LINE  ID 


TT 

TT 


LL 
LL 
LL 
LL 
LL 
LL 
LI 
Ll 
LL 
Ll 
Ll 
LL 
Lt 
ll 
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0  11 
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TMPX3P  -  PARSE  X.25  LEVEL  3  CHA  MACRO  V05.03b  Saturday  29-Jun-85  05:46 
Table  ot  contents 

TIONS 

TABLES 

LD  X3P  TEMPLATE 

DEFAULT  BLOCK  SIZE 

MAXIMUM  BLOCK  SIZE 
DEFAULT  WINDOW  SIZE 
MAXIMUM  WINDOW  SIZE 
CALL  TIMER  VALUE 
CLEAR  TIMER  VALUE 
RESET  TIMER  VALUE 
RESTART  TIMER  VALUE 
MAXIMUM  CLEAR  VALUE 
MAXIMUM  RESETS  VALUE 
MAXIMUM  RESTARTS  V'LUE 


«»F 


4- 

57 

MACRO  OEFINl 

S- 

126 

LOCAL  DATA 

f,- 

167 

TPARS  STATE 

7- 

261 

$TMX3P  -  BUI 

R- 

295 

SETDFP  -  SET 

8- 

296 

SETMXP  -  SET 

ft- 

297 

SETDW  -  SET 

8- 

293 

SETMW  -  SET 

R- 

299 

SETCT  -  SET 

R- 

300 

SETKT  -  SET 

rt- 

301 

SETRT  -  SET 

302 

SETST  -  SET 

fi- 

303 

SETKM  -  SET 

R- 

304 

SETRM  -  SET 

8- 

305 

SEiSM  -  SET 

UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UU 
UUI 
UUI 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


.TITLE  UPDCHN  -  UPDATE  OUTGOING  CHANNEL  DEFINITION  IN  CETA8 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C>  981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  8E  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

UPDATE  OUTGOING  CHANNEL  DEFINITION  IN  CETAB 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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0  15 
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tUPCNT  -  UPDATE  CONTROLLER  DEFINITION 
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138 
139 
UO 
HI 
H2 
H3 
H4 
K5 
U6 
U7 
148 
U9 

150  000002 

151  000002 

152  000006 

153  000010 

154  000012 

155  000014 

156  000022 
157 

158 
159 

160  000024 

161  000026 

162  000032 

163  000040 

164  000042 

165  000050 

166  000052 

167  000056 

168  000060 

169  000062 

170  000066 

171  000072 

172  000076 

173  000100 

174  000104 

175  000106 
176 

177 
178 
179  000110 


.S8TTL  SUPCNT  -  UPDATE  CONTROLLER  DEFINITION 

*»♦  -  SUPCNT  -  UPDATE  CONTROLLER  DEFINITION 

INPUT: 

R3-R5       -   TPARS   REGISTERS 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


012700 
010001 
011000 
001436 
122760 
001371 


011011 
010067 
032760 
001004 
012767 
000416 
004767 
010546 
005001 
012702 
C12705 
0U4767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPCNT: 
10$: 


OOOOOOG  OOOOOOG 


MOV  #$TMLST,RO 

MOV  RO.RI 

MOV  (RO),RO 

BED  101S  , 

CMP8  #CS.CNT,C.STS(RO) 

BNE  10$ 


POINT  AT  START  OF  TEMPLATES 

SAVE  CURRENT  TEMPLATE  ADDRESS 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  CONTROLLER  TEMPLATE 

IF  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  CONTROLLER  TEMPLATE 


177746 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOC 

OOOOOOG        15$: 


000000' 
000000' 
OOOOOOG 

OOOOOOG 

20$: 
30$: 


MOV 

MOV 

BIT 

BNE 

MOV 

BR 

CALL 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


(R0),(R1) 

RO.TEMP 

#CS.MOD,C.STS 

15$ 

#$BUfI,$OFDB+ 

30$ 

$MOVST 

R5,-(SP) 

R1 

#CNTKTB,R2 

#CNTSTB,R5 

. TPARS 

20$ 

SERROR 

(SP)t,R5 


;  REMOVE  TEMPLATE  FROM  LIST 
;  SAVE  TEMPLATE  ADDRESS 
(R05  ;  WAS  THIS  TEMPLATE  MODIFIED  ? 
"      .    UPDATE  THE  RECORD 

OUTPUT  THE  INPUT  BUFFER 


000167  LOOOOOG 


ERROR  CONDITIONS 
101$:   JMP     .CONER 


.  IF  NE,  YES 
F.NRBD+2  ;  ELSE, 
AND  LEAVE 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 
SAVE  R5 
IGNORE  BLANKS 
KEYWORD  TABLE 
STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 
NORMAL  RETURN  IF  NO  ERROR 
INDICATE  SYNTAX  ERROR 
RESTORE  R5 


CONSISTENCY  ERROR 


UPDCNT  -  CFE  UPDATE  CONTROLLER  MACRO  V05.03b  Saturday  29-Jun-85 
<;FTrwT  -  CHFric  roNTRni  I  FR  NUMBER 


E  15 

05:4 
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UPOCUG  -  UPDATE  USER  GROUP  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:A8  Page  4-1 
MACRO  DEFINITIONS 

IK  ;  PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 

116  '       .MACRO  $PTR50  OFS,UC ,OPT, ?L 

117  "  ""  '""" 
118 
119 
120 
121 
122 
12? 
12A 
125 

126  Li 

127 
128 
129 


.MACRO 

$PTR50 

.IF  N8 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

MOV 

WC,R1 

CALL 

$PTR50 

.IFT 

.ENDC 

,ENDM 

E  16 
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LOCAL  DATA 

127 
128 
129 
130 
131 

132  000004 

133  000000    004 

134  000031    004 
135 
136 


.SBTTL 
.NLIST 


LOCAL  DATA 
BEX 


SYNTAX  ERROR  DETAIL  STRINGS 


103 
103 


106 
106 


ERRNAM: 
ERRADR: 


EXSSEV 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 


=  4 

<EX$SEV>/CFE  —  lUegal  DTE  name/ 

<EX$SEV>/CFE  —  Invalid  DTE  address/ 

BEX 


F  1 
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TMP 


162 
163 
16'; 
165 
166 
167 
16H 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 
192 
193 


000114 
000114 
000120 
Cu0122 
0>J130 
000132 
000136 
000140 
000142 
000144 
000152 
000154 
000162 
000164 
000166 
000172 
000200 


.SBTTL  FINREM  -  FIND  NEXT  REMOTE  IN  SORTED  LIST 

'**«  -  FINREM  -  FIND  NEXT  REMOTE  IN  SORTED  LIST 

INPUTS; 

RO  =  TEMP! ATE  TO  BE  INSERTED 
SLSNAD  =  LAST  NODE  ADDRESS  IN  LIST 
ILSTMP  =  ADDRESS  OF  LAST  TEMPLATE  IN  LIST 

Rl  =  ADDRESS  OF  TEMPLATE  TO  PRECEDE  CURRENT  TEMPLATE 
SLSNAD, SLSTMP  UPDATED  IF  NODE  INSERTED  AT  END  OF  LIST 


016701 
001404 
026067 
101016 
012702 
010201 
011202 
001411 
122762 
001371 
026062 
103365 
000405 
010067 
016067 
000207 


FINREM- 


5$: 
10$: 


OOOOOOG 

000010  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 
000010  000010 


OOOOOOG       20$: 
000010  OOOOOOG 

30$; 


MOV  SLSTMP, Rl 

BEQ  5$ 

CMP  C.ADD(RO),$LSNAD 

BHI  20$ 

MOV  #$TMLST,P2 

MOV  R2,''1 

MOV  {R2;,R2 

BEQ  20$ 

CMP8  *CS.REM,C.STS(R2) 

BNE  10$ 

CMP  C.ADDCR0>,C.ADD(R2) 

BHIS  10$ 

BR  30$ 

MOV  ro,$l';tmp 

MOV  C.ADD(kO), SLSNAD 
RETURN 


ASSUME  TEMPLATE  GOES  AT  END  OF  LIST 

BR  IF  FIRST  TIME  THROUGFJ  LIST 

DOES  THE  TEMPLATE  GO  HERE? 

BR  IF  YES 

GET  START  ADDRESS  OF  TEMPLATES 

SAVE  ADDRESS  OF  PREVIOUS 

GET  NEXT  TEMPLATE  IN  LIST 

IF  EQ,  END  OF  LIST 

IS  THIS  A  REMOTE  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

ELSE,  DOES  TEMPLATE  GO  HERE  ? 

IF  HIS,  NO  ..  KEEP  LOOKING 

ELSE  FOUND  PLACE  TO  INSERT 

SAVE  ADDRESS  OF  LAST  TEMPLATE 

SAVE  LAST  NODE  ADDRESS 

ELSE,  OKAY 


TMf 


E  3 


TMPROU 
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199 
200 
201 

202  000002 

203  00u002 
20A  000002 
205 

206  000002 


EXIT  STATE 

STATES 
TRANS 
TRANS 

STATES 


EXIT 

SEOS.SEXIT 

SLAMDA,SEXIT 


F  3 
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TRANS  SDNUMB,  SEXIT 
Subexpression  to  match  an  alphanumeric  character 


205  000022 

206 

207 

208 

209 

210  000022 

211  000022 

212  000022 
213 

21A 
215 
216 

217  000022 

218  000022 
219 

220  000022 


TMP! 
Tabl 


STATES  ALPNUM 
TRANS  SALPHA,  SEXIT 
TRANS  SDIGIT,  SEXIT 


EXIT  STATE 


STATES  EXIT 
TRANS  SEOS, 

STATES 


SEXIT 


F  4 
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cum  A  TC 


TMP 


E  5 

TMPSLT  -  CFE  PARSE  LINE  DEFINIT  MACRO  VOS.O^b  Saturday  29-Jun-85  05:42 
Table  of  contents 

SETUP  SLT  TEMPLATE 

SET  UP  PROCESS  NAME 

SETUP  THE  FLAGS  WORD 

SET  THE  CONTROLLER  NUMBER 

SET  THE  UNIT  NUMBER 

SET  THE  COUNTER  TIMER 

SET  THE  HELLO  TIMER 

SET  ROUTING  PRIORITY 

SET  BROADCAST  ROUTER  ADJACENCIES 

SET  MASTER  TYPE 

SET  SLAVE  TYPE 


6- 

250 

STMSLT 

1- 

286 

SETNAM 

R- 

303 

SETFLG 

q- 

321 

SETCNT 

10- 

337 

SETUNT 

11- 

353 

SETCTT 

\?- 

366 

SETHTM 

V- 

367 

SETRPR 

12- 

368 

SETBRA 

1-i- 

388 

SETMST 

1i- 

389 

SETSLV 

F  5 
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TMPSLT 
SETMST 


E  6 
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SET  MASTER  TYPE 


TMP 
SET 


388 

389 

390 

391 

392 

393 

39^ 

395 

396 

397 

398 

399 

AOO  000726 

^01  0C0732 

402 

403  000734 

404  000736 

405  000742 

406  000750 

407  000754 
408 

409 


.SBTTL 
.SBTTL 


SETMST  -  SET  MASTER  TYPE 
SETSLV  -  SET  SLAVE  TYPE 


»♦-  SETMST  -  SET  MASTER  TYPE 
»♦-  SETSLV  -  SET  SLAVE  TYPE 


012701 
000401 

005001 
016700 
052760 
110160 
000207 

000001 


000001 


INPUT 
OUTPUT 

SETMST: 


NONE. 

THE  LINE  TYpr 
.ENABL  LSB 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 


MOV 
BR 


SETSLV:  CLR 
10$:    MOV 
BIS 
MOVB 
RETURN 

.END 


!S   SET   IN   THE   TEMPLATE. 


;  TYPE  =  MASTER 
;  JOIN  COMMON  CODE 


R1  ;  TYPE  =  SLAVE 

.TEMP.RO       :  POINT  TO  TEMPLATE 

#SL$TYP,C.STS(RO)  ;  REMEMBER  OPTION 

R1,S$LTYP(R0)   ;  SET  LINE  TYPE 


#1,R1 
10$ 


F  6 
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TMF 
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215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232  C00126 

233  000126 

234  000132 

235  000140 

236  000142 

237  000152 

238  000154 

239  000162 

240  000166 

241  000174 

242  000200 

243  000202 

244  000206 

245  000210 

246  000214 


.SBTTL  SETADD  -  SETUP  STATION  ADDRESS 

♦•*  -  SETADD  -  SETUP  STATION  ADDRESS 

THIS  ACTION  ROUTINE  SETS  UP  THE  STATION  ADDRESS 

INPUT: 

.PNUM8  =  STATION  ADDRESS 
.PNUMH  =  (HIGH  ORDER) 
$STAN  =  STATION  NUMBER 


OUTPUT: 

C.ADD 
C.STA 


016700 
026727 
103405 

000416 
116760 
005267 
116760 
005767 
001003 
105767 
001402 
062716 
000207 


177646 

OOOOOOG  OOOOOOG 


SETADD: 


OOOOOOG  000004 
OOOOOOG 

OOOOOOG  000005 
OOOOOOG 

000001 G 

000002 


5$: 


10$: 
20$: 


MOV 

CMP 

BLO 

ERR0R$ 

BR 

MOVB 

INC 

MOVB 

TST 

BNE 

TSTB 

BEQ 

ADD 

RETURN 


STATION  ADDRESS 
STATION  NUMBER 


TEMP.RO 

$STAN,#$MXSTA 

5$ 

#ERRSTA 

10$ 

$STAN,C.STA(RO) 

$STAN 

.PNUMB,C.ADD(RO) 

.PNUMH 

10$ 

.PNUMB+1 

20$ 

*2,(SP) 


GET  TEMPLATE  ADDRESS 
ARE  THERE  TOO  MANY  STATIONS  ? 
IF  LO,  NO 

ELSE,  PRINT  ERROR  MESSAGE 
AND  REJECT 

STORE  THE  NUMBER  OF  THIS  STATION 
ONE  MORE  STATION 

;  STORE  THE  STATION  ADDRESS  IN  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  THE  STATI   ADDRESS  IN  RANGE  ? 
IF  EQ,  YES  -   AY 
ELSE,  REJECT  ,iE  TRANSITION 
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Tf 

tl 


H7 

H8 

K9 

150 

151 

152  000336 

153 

154 

155 

156  000336 

157  000336 

158  000336 

159  000336 

160  000336 

161  000336 

162  000336 

163  000336 

164  000336 

165  000336 

166  000336 

167  000336 

168  000336 

169  000336 
170 

171 

172  000336 

173  000336 

174  000336 

175  000336 

176  000336 
177 

178 

179  000336 

180  000336 

181  000336 

182  000336 

183  000336 
184 

185 

186  000336 

187  000336 

188  000336 

189  000336 
190 

191 

192  000336 

193  000336 

194  000336 

195  000336 
196 

197 

198  000536 

199  000336 

200  000336 

201  000336 
202 

203 


.SBTTL  TPARS  STATE  TABLES 
INITIALIZE  TABLES 

ISTATS  SVCSTB,  SVCKTB 
PROCESS  "SVCSDF" 

STATES  ;  SVC  NAME  DLM-XX.YY 

TRANS  SLAMDA, ,SCLERR,ERRNAM, .ERROR 
STATES 

TRANS  "DLM" 
STATES 

TRANS  <■-> 
STATES 

TRANS  SDNUMB,,SETNM1 
STATES 

TRANS  <'.> 
STATES 

TRANS  S0NUMB,,SETNM2 
STATES 

TRANS  <',>,,SCLERR,ERRPSZ,. ERROR 


STATES  ;  OPTIONAL  PACKET  SIZE 

TRANS  SNUM8R,SVC1,SETPSZ 

TRANS  SLAMDA 

STATES  SVC1 

TRANS  <',>,,SCLERR,ERRWSZ,. ERROR 


STATES  ;  OPTIONAL  WINDOW  SIZE 

TRANS  $NUH8R,SVC2,SETWSZ 

TRANS  SLAMDA 

STATES  SVC2 

TRANS  <',>,,SCLERR,ERRFLG,. ERROR 


STATES  ;    FLAGS 

TRANS     SNUM8R,,SETFLG 
STATES 

TRANS     <',>,,SCLERR,ERRRCL,. ERROR 


STATES  ;  MAXIMUM  RECALLS 

TRANS  SNUMBR,,SETRCL 
STATES 

TRANS  <',>,,SCLERR,ERRTIM,. ERROR 


STATES  ;  RECALL  TIMER 

TRANS  SNUMBR,,SETTIM 
STATES 

TRANS  <',>,,SCLERR,ERRDTE,. ERROR 
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150 
151 
152 
153 
15^ 
155 
156 
157 
158 
159 
160 
161 
16? 

163  000002 

164  000002 

165  000004 

166  000010 

167  OOOOU 

168  000020 

169  000022 

170  000026 

171  000032 

172  000034 

173  000040 

174  000044 

175  000050 

176  000052 

177  000056 

178  000060 


.SBTTL  STMUNT  -  SETUP  UNIT  TEMPLATE 
'*♦*  -  STMUNT  -  SETUP  UNIT  TEMPLATE 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  UNIT  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


STMUNT: 


000026 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


20S: 


MOV 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


R5,-(SP) 
#C.LEN,R1 
STALOC 
RO,.TEMP 

(r6)  + 

RO, .FLAGS 

#CS.UNT,(RO) 

Rl 

#UNTKT8,R2 

#UNTSTB,R5 

.TPARS 

20S 

SERROR 

(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

;  STORE  TEMPLATE  ADDRESS 
POINT  TO  C.^^TS 
FOR  OPTION  SETTING 

INDICATE  THAi  THIS  IS  A  UNTSDF  TEMPLATE 
IGNORE  BLANKS 
KEYUORD  TABLE 
STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 
NORMAL  RETURN  IF  NO  ERROR 
INDICATE  SYNTAX  ERROR 
RESTORE  R5 
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Ta 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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.TITLE  THPX2P  -  PARSE  X.25  LEVEL  2  PROTOCOL  DEFINITIONS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  PARSE  X.25  LEVEL  2  PROTOCOL  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


.00   14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI, 


3.00   I6-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

0ECNET-11M  V4.0 
DtCNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Table  of  contents 

A-  57  MACRO  DEFINITIONS 

5-  126  LOCAL  DATA 

t-  138  TPARS  STATE  TABLES 

7-  167  $TMX29  -  BUILD  X29  TEMPLATE 

8-  201  SETMXC  -  SET  MAXIMUM  CIRCUITS 
8-  202  SETCT  -  SET  CALL  TIMER  VALUE 


F  11 

TMPX29  -  PARSE  X.29  CHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85  05:A6  Page  3 


I  12 

TMPX3P  -  PARSE  X.25  LEVEL  3  CHA  MACRO  V05.03b  Saturday  29-Jun-85  05:46  Page  3 


UPI 
Tal 


1 
2 
3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2U 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


.TITLE   TMPX3P  -  PARSE  X,25  LEVEL  3  CHARACTERISTICS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  X.25  LEVEL  3  CHARACTERISTICS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11H-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF  ITS 
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UPDBUF  -  CPE  UPDATE  BUFFER  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:«7 
Table  ot  contents 

6-  174    SUPBUF  -  UPDATE  BUFFER  TEMPLATE 

7-  ?20    SETNUM  -  SET  THE  NEXT  NUMBER 
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UPDCHN  -  UPDATE 
MACRO  CALLS  AND 

57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
1C1 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000000 

112  000000 
113 
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.SBTTL 
.SBTTL 

LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


MACRO  CALLS  AND  LOCAL  DATA 
MACRO  DEFINITIONS 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  Of  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERR 

.ENDM 

ERRORS 

.MACRO 

EPRINT   TEXT 

PRINT  TEXT  ON 

ERROR  LUN 

.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRINT 

PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS.OCTL.OPT,?L 

.IF  NB 

<OPT> 

MOV 

0PT.R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  NB 

<OCTL> 

MOV 

SP.R1 

.IFF 

CLR 

R1 

.ENDC  ; 

IF  NB  <OCTL> 

CALL 

•ROU 

.IFT  ; 

IF  N8  <OPT> 

.ENDC  ; 

IF  NB  <OPT> 

.ENDM  ; 

•ROU 

.ENDM  ; 

SSSPTN 

$$$PTN 

SPTNUM 

$$$PTN 

SPTNMB 

GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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luinrDn    hPP  !  mi  T  iomc 


UPDCNT  - 
SETCNT  - 

181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19A 
195 
196 
197 
198 
199 
200 


CFE  UPDATE  CONTROLLER  MACRO  V05.03b  Saturday  29-Jun-85 
CHECK  CONTROLLER  NUMBER 


5  15 

05:4 
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.SBTTL  SETCNT  -  CHECK  CONTROLLER  NUMBER 
*♦•  -  SETCNT  -  CHECK  CONTROLLER  NUMBER 
INPUT: 


.PNUMB  =  CONTROLLER  NUMBER 
.PNUMH  =  (HIGH  ORDER) 


OUTPUT: 


000114 
000114 
000120 
000124 
000132 
000134 
000140 


004767 
016700 
026760 
001402 
062716 
000207 


OOOOOOG 
177654 
OOOOOOG  000004 

000002 


SETCNT: 


10$: 


C-BIT  =  SUCCESS/FAILURE 


,CNT(RO) 


CALL 

SMOVPT 

MOV 

TEMP,RO 

CMP 

. PNUMB, C 

SEQ 

10$ 

ADD 

#2,(SP) 

RETURN 

MOVE  THE  CONTROLLER  NUMBER  INTO  THE  OUTPUT  BUFFER 
GET  TEMPLATE  ADDRESS 
;  IS  THIS  THE  RIGHT  CONTROLLER  TEMPLATE  ? 
IF  EQ,  VES  ..  OKAY 
ELSE,  REJECT  THE  TRANSITION 
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151 
132 
133 
13'! 
135 
136 
137 

138  000000 

139  000002 
V.O  000004 

"  000010 
000012 


.S8TTL  LOCAL  DAIA 


DEFINE  THE  CUG  DESCRIPTOR  BLOCK 


000000 


U1 
H2 
U3 
KA 
K5 
1A6 
1A7 
U8 
H9 
150 


000000 
000000 


000000 


oooou 


oil 

000010 


103 


125 


.A^ECT 

.BLKW 

1 

C.LNK 

.8LKU 

1 

C.STS 

C.NAM: 

.BLKW 

2 

CUG  NAME 

C.CUG: 

.BLKW 

1 

GROUP  NUMBER 

C.FLG: 

.BLKW 

j 

FLAGS 

C.LEN=. 

.PSECr 
.NLIST 

BEX 

LENGTH  OF  THE  BLOCK 

CUGDF: 

.ASCII 

<11>/CUG$DF/<11> 

CUGLN=. 

-CUGDF 

.LIST 

BEX 

.EVEN 
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138 

139 

UO 

HI 

U2 

143  000066 

U4 

U5 

U6 

U7  000066 

U8  000066 

U9  000066 

150  000066 

151  000066 

152  000066 
153 

154  000066 

155  000066 

156  000066 

157  000066 

158  000066 

159  000066 
160 

161 
162 

163  000066 

164  000066 

165  000066 

166  000066 

167  000066 
168 
169 
170 
171 
172 


.SSTTL  TPARS  STATE  TABLES 
INITIALIZE  TABLES 


ISTATS 

RDTSTB,  RDTKTB 

PROCESS  "RDTSDF" 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA,,SCLERR,ERRNAM, 

SSTRNCSETNAM 

<'  ,> 

.ERROR 

NAME 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA,,SCLERR,ERRADR, 

IDTE,,SETADR 

SEOS.SEXIT 

.EftROR 

ADDRESS 

SUBEXPRESSION 

TO  PARSE  DTE  STRING 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

DTE 

SDIGIT 

DTE1 

SDIGIT.DTEI 

SLAMDA,SEXIT 

000066 


FINAL  STATE 
STATES 
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THF 
$TN 


195 
196 
197 
198 
199 

:oo 

20  i 
202 
203 
20^, 
205 
206 
207 
208 
209 

210  000202 

211  000202 

212  000206 

213  000210 
2U  0002U 

215  000220 

216  000224 

217  000226 

218  000230 

219  000234 

220  000240 

221  000244 

222  000252 

223  000254 

224  000260 


.SBTTL  SETNAM  -  SETUP  REMOTE  NODE  NAME 

'*»•  -  SETNAM  -  SETUP  REMOTE  NODE  NAME 

INPUT: 

.PSTPT  =  THE  ADDRESS  OF  THE  NODE  NAME  STRING 
.PSTCN  =  THE  LENGTH  OF  THE  NODE  NAME  STRING 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

THE  NODE  NAME  IS  MOVED  INTO  C.NAM  OF  THE  TEMPLATE 
C-BIT  =  SUCCESS/FAILURE 


016700 
005001 
004767 
016702 
010162 
103415 
005001 
004767 
016702 
010162 
022767 
103002 
062716 
000207 


OOOOOOG 

OOOOOOG 

177560 

000004 


OOOOOOG 
177540 
000006 
000006 

000002 


SETNAM: 


OOOOOOG 


10$: 


MOV 

CLR 

CALL 

MOV 

MOV 

BCS 

CLR 

CALL 

MOV 

MOV 

CMP 

BHIS 

ADD 

RETURN 


. PSTPT, RO 

R1 

SCATS 

TEMP,R2 

R1.C.NAM(R2) 

loi 

Rl 

SCATS 

TEMP,R2 

R1,C.NAH+2(R2) 

#6, .PSTCN 

10$ 

#2,(SP) 


POINT  AT  THE  NODE  NAME  STRING 

PERIODS  ARE  NOT  ALLOWED 

CONVERT  NODE  NAME  TO  RAD50 

POINT  AT  TEMPLATE 

STORE  THE  NODE  NAME 

Ir"  CS,  LESS  THAN  3  CHARS  CONVERTED 

PERIODS  NOT  ALLOWED 

CONVERT  NODE  NAME  TO  RADSO 

POINT  AT  TEMPLATE 

STORE  THE  2ND  HALF  OF  THE  NODE  NAME 

IS  THE  NODE  NAME  TOO  BIG  7 

IF  HIS,  NO  ..  OKAY 

ELSE,  REJECT  TRANSITION 


TM 
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208 
209 
210 
211 
212 
213 
2H 
215 
216 
217 
218 
219 
220 

221  000002 

222  000002 

223  OOOOOA 

224  000010 

225  000014 

226  000020 

227  000022 

228  000026 

229  000032 

230  000036 

231  000040 

232  000044 

233  000050 

234  000054 

235  000056 

236  000062 

237  000064 
23G  000070 

239  000076 

240  000102 

241  000104 
242 


.SBTTL  STMROU  -  SETUP  ROUTING  TEMPLATE 
***   -   STMROU  -  SETUP  ROUTING  TEMPLATE 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  ROUTING  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


STMROU:: 


010546 

MOV 

R5,-(SP) 

012701 

000026 

MOV 

#C.LEN,R1 

004767 

OOOOOOG 

CALL 

STALOC 

010067 

OOOOOOG 

MOV 

RO..TEMP 
(R0)  + 

005720 

TST 

010067 

OOOOOOG 

COV 

RO, .FLAGS 

012710 

OOOOOOG 

*CS.ROU,(RO) 

005067 

OOOOOOG 

.ERROR 

005001 

CLR 

R1 

012702 

000000' 

MOV 

#R0UKTB,R2 

012705 

000000' 

MOV 

#R0USTB,R5 

004767 

OOOOOOG 

CALL 

. TPARS 

103012 

BCC 

20$ 

016700 

OOOOOOG 

MOV 

. ERROR, RO 

001405 

BEQ 
ERRORS 

15$ 
RO 

012767 

177776  OOOOOOG 

MOV 

#-2,$ERR0R 

005267 

OOOOOOG 

15S: 

INC 

$ERROR 

012605 

20S: 

MOV 

(SP)+,R5 

000207 

RETURN 

SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  THE  ROUSDF  TEMPLATE 

NO  ERROR  DETAIL  YET 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

INDICATE  MESSAGE  PRINTED 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 
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THPS 


222 
223 
224 
225 
226 
227 
228 
229 
230 
251 
232 
233 
234 

235  000022 

236  000022 

237  000024 

238  000030 

239  000034 

240  000040 

241  000044 

242  000046 

243  000052 

244  000056 

245  000064 

246  000070 

247  000072 

248  000076 

249  000102 

250  000106 

251  000112 

252  000120 

253  000122 

254  000130 

255  000134 

256  000136 
257 


010546 
005067 
012701 
004^67 
010067 
005720 
010067 
012710 
062767 
005067 
005001 
012702 
012705 
004767 
016700 
016760 
103005 
012767 
005267 
012605 
000207 


.SBTTL  STMSER  -  SETUP  REMOTE  CHARACTERISTICS  TEMPLATE 
»**  -  STMSER  -  SETUP  REMOTE  CHARACTERISTICS  TEMPLATE 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  REMOTE  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


STMSER: 


177750 
000056 
OOOOOOG 
0000006 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 
OOOOOOG 
177662  000004 

177776  OOOOOOG 
OOOOOOG        15S: 
20$: 


MOV 

L'R 

MUV 

CALL 

MOV 

TST 

MOV 

MOV 

ADD 

CLR 

CLR 

MOV 

MOV 

CALL 

MOV 

MOV 

BCC 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

SERFLG 

#S$LEN,R1 

STALOC 

RO,.TEMP 

(R0)  + 

RO, .FLAGS 

#CS.SER,(RO> 

*S.LENX,$SYTMN 

.ERROR 

R1 

#SERKTB,R2 

#SERSTB,R5 

.TPARS 

.TEMP.RO 

SERFLG, S$FLG(RO) 

20S 

#-2,$ERR0R 

SERROR 

(SP)+,R5 


SAVE  R5 

INITIALIZE  FLAGS 
GET  LENGTH  OF  NEEDED  ALLOCATION 
TRY  TO  ALLOCATE  A  CORE  BLOCK 
SAVE  TEMPLATE  ADDRESS 
POINT  TO  C.STS 
SAVE  FOR  OPTION  SETTING 
INDICATE  THAT  THIS  IS  A  DSTSDF  TEMPLATE 
UPDATE  MINIMUM  ALLOCATION 
NO  ERROR  DETAIL  YET 
IGNORE  BLANKS 
KEYWORD  TABLE 
STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 
POINT  TO  TEMPLATE 
;  SET  PARSED  OPTIONS 
NORMAL  RETURN  IF  NO  ERROR 
SUPPRESS  SYNTAX  MESSAGE 
INDICATE  SYNTAX  ERROR 
RESTORE  R5 


TMP! 
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1 
2 
3 

5 
6 

7 

8 

9 
10 
11 
\2 
13 
14 
15 
16 

-  7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


.TITLE   TMPSLT  -  CFE  PARSE  LINE  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  ''ONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  LINE  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-1 iM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-ilM  V4.0 
DECNET-1 IM-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Mi'cro/RSX  VI. 0 
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c 


TMP 
SET 


BITS 

CS.SLT= 

CTT 

C.STS  = 

ERRCNT 

ERRCTT 

ERRDLC 

ERRFLG 

ERRHTM 

ERRLLC 

ERRNAM 

ERRTYP 

ERRUNT 

EXIT 

EX$SEV= 

FLAG 

HTM 

LFS 

.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000266R 

*»***♦  GX 

OO0H2R 

•».»*»♦  GX 

000147R 

000337R 

00003AR 

000120R 

000302R  . 

000066R 

000002R 

000247R 

00021 2R 

000366R 

OOOOOA 

OOOOOOR 

0001 66R 

0002A4R 

000000 
000756 
00037A 
000026 
000060 


002  LF.BRO= 
LF.ENA= 

002  LF.MDC= 
LF.MFL= 
LF.|V|TP= 
LF.SER= 
LF.TIH= 
LF.X2P= 
NBRA 
NEXT 
RPRI 
SETBRA 
SETCNT 

002  SETCTT 
SETFLG 
SETHTM 

002  5ETM5T 

002  SETNAM 


****** 

****** 

* ***** 

****** 

****** 

****** 

****** 

****** 

00021 2R 

000262P 

000230R 

000700R 

000536R 

000576R 

000522R 

000624R 

000726R 

000506R 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


SETRPR 
SETSLV 
SETUNT 
SKIP 
SLTKTB 
SLTSTB 
SL$8RA= 
SL$CTM= 
002  SL$HTM= 
002  SL$RPR= 
002  SL$TYP= 
5$L8RA= 
S$LCNT= 
S$LCTT= 
S$LFLG= 
S$LHTM= 
S$LLEN= 


000652R 

000734R 

000556R 

000252R 

OOOOOORG 

OOOOOORG 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


S$LNAH= 
S$LRPR= 
S$LTrP= 

002  S$LUNT= 

003  $ALPHA= 
002  $ANY  = 

$BLANK= 
$CFERR= 
$CLERR= 
$OJGIT= 
$DNUMB= 
$E0S  = 
$ERROR= 
$EXIT  = 
SFAIL  = 
$GTNMB= 
$GTNUM= 


****** 
****** 
****** 
****** 
000022 
000020 
000006 
****** 
****** 
000024 
OOOOU 
000012 
****** 

000000 

\nm 

****** 
****** 


GX 
GX 
GX 
GX 


GX 
GX 


GX 


GX 
GX 


$GTR50= 

$LAMDA= 

$NUMBR= 

$RAD50= 

SSTAN  = 

$STRNG= 

$SUBXP= 

$TALOC= 

STMSLT 

$$$FLG= 

$$$ICEY= 

I$$STA= 

$$$TMP= 

.ERROR= 

.FLAGS= 

.TEMP  = 

.TPARS= 


******  GX 

000000 

000002 

000016 

******  GX 

000004 

000010 

******  GX 

000376RG 

Mmi 

000012 
000000 
000054R 
******  GX 
******  GX 
******  GX 
******  GX 


004 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RU,D,LCL,REL,C0N) 
(RW,0,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 


♦♦*  Assembler   statistics 

Work      file     reads:  0 

Work      f i le  writes:  0 

Size  of  work   file;  10928  Words      (   43  Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 

SYf?MFSLT!v2;[l'3^?l'34]fMPSLT/CR/-SP=SY:[1,nRSXMCM.SML/ML,C130,110]NETLIB/ML,C132,10]TMPSLT 


TMPSLT 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:43 
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248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
26T 
262 
265 

264  000216 

265  000216 

266  000222 

267  000230 

268  000234 

269  000242 

270  000246 

271  000250 

272  000256 

273  000260 

274  000264 


016700 
116760 
105060 
156760 
005767 
001004 
026727 
101402 
062716 
000207 


.SBTTL  SETCST  -  SETUP  STATION  COST  AND  FLAGS 
•*♦  -  SETCST  -  SETUP  STATION  COST 
THIS  ACTION  ROUTINE  SETS  UP  THE  STATION  COST 
INPUT: 


.PNUM8  =  STATION  COST 
.PNUMH  =  (HIGH  ORDER) 


177556 

OOOOOOG 

000006 

177542 

OOOOOOG 


OUTPUT: 


SETCST: 


000007 
000006 


OOOOOOG  OOOOOOG 
000002 


10$: 
20$: 


C.CST 

=  STATION  COST 

C.FLG 

=  STATION  FLAGS 

MOV 

TEMP.RO 

M0V8 

.PNUMB,C.CST(RO) 

CLRB 

C.FLG(RO) 

BIS8 

FLAG,C.FLG(RO) 

TST 

.PNUMH 

BNE 

10$ 

CMP 

.PNUMB,*MXCSTL 

BLOS 

20$ 

ADD 

#2,(SP> 

GET  TEMPLATE  COST 

:  STORE  THE  STATION  COST  IN  TEMPLATE 
CLEAR  THE  STATION  FLAGS  FIELD 
SETUP  THE  STATION  FLAGS 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  THE  STATION  COST  IN  RANGE  ? 
IF  LOS,  YES  -  OKAY 
ELSE,  REJECT  THE  TRANSITION 


RETURN 
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TMPSVC  -  PARSE  SWITCHED  VIRTUAL  MACRO 
TPARS  STATE  TABLES 

204  000336 

205  000336 

206  000336 

207  000336 

208  000336 
209 

210  000336 

211  000336 
212 

213  000336 

2U  000336 

215 

216 

217 

218 

219  000^36 

220  000336 

221  000336 

222  000336 

223  000336 
224 

225 

226 

227 

228  000336 

229 
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STATES  ;  DTE  OPTIONAL  ADDRESS 

TRANS  1"TE,0PT1,SETDTE 

TRANS  SLAMDA 

STATES  0PT1 

TRANS  <',>,,SCLERR,ERROWN,. ERROR 


STATES 
TRANS  SSTRNCSETOWN 

STATES 
TRANS  SEOS.SEXIT 


;  OWNER  PROCESS 


SUBEXPRESSION  TO  PARSE  DTE  ADDRESS  STRING 

STATES  DTE 

TRANS  SDIGIT 

STATES  DTEl 

TRANS  SDIGIT, DTEl 

TRANS  SLAMDA.SEXIT 


FINAL  STATE 
STATES 
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TMPUNT  - 
SETUN'  - 

180 
181 
182 
183 
ISA 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19A 
195 
196 
197 
198 
199 
200 
201 
202 
205 
204 
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.SeTTL  SETUNT  -  SET  UP  UNIT  NUMBER 

♦*♦  -  SETUNT  -  SETUP  UNIT  NUMBER 

THIS  ACTION  ROUTINE  SETS  UP  THE  UNIT  NUMBER 

INPUT: 

.PNUMB  =  UNIT  NUMBER 
.PNUMH  =  (HIGH  ORDER) 
.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


CUNT  =  UNIT  NUMBER 


000062 

000062  016700  OOOOOOG 

000066  016760  OOOOOOG  000004 

000074  005767  OOOOOOG 

000100  001003 

000102  105767  000001G 

000106  001402 

000110  062716  000002 

000114  000207 


SETUNT: 


10$: 
20$: 


MOV 

MOV 

TST 

8NE 

TST8 

BEQ 

ADD 

RETURN 


.TEMP,RO 

. PNUMB, C.UNT(RO) 

.PNUMH 

10$ 

. PNUMB +1 

20$ 

#2,(SP) 


GET  TEMPLATE  ADDRESS 
:  STORE  THE  UNIT  NUMBER  IN  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  THE  UNIT  NUMBER  IN  RANGE  ? 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  THE  TRANSITION 


TMPUNT  -  CFE  PARSE  UNIT  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:44 
rcTrttp,   _  ccTiin  Tuc  ru  AD  ft  r  Tc  D  I  c  T  r  rc  i.inDn  n 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 


.SBTTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  Of  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.   .IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 
.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SGTNUM  OFFS,L0=<#0>,HI=<#177777>,OPT 

MOV  0FFS,R2 

MOV  LO,R0 

MOV  HI.RI 

.IF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 


.MACRO 

SGTNMB 

OFFS 

,10= 

<#0>,HI 

--<ttV777T> 

,OPT 

MOV 

0FFS,R2 
LO,RO 

MOV 

MOV 

HI.RI 

.IF   NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNMB 

.ENDM 

;    GET 

RAD50  WITH   FIELD 

SIZE 

CHECKING 

.MACRO 

SGTR50 

OFFS 

,LEN 

,OPT 

MOV 

0FFS,R2 

G  10 
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1 
2 
3 

5 
6 
7 
8 
9 
10 

n 

12 

13 

K 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2k 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

AO 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


.TITLE   TIV|PX29  -  PARSE 
.IDENT  /V05.00/ 
.ENABL  LC 


X.29  CHARACTERISTICS 


COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  X.29  CHARACTERISTICS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 

DEC  .'Ef-IIM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-11M/5  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MATDn  ric  r  r  M  !  T  I  hmq 


TMPX3P  -  PARSE  )(.25  LEVEL 
MACRO  DEFINITIONS 

57 
58 
59 
60 
61 
62 
63 
M 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7i, 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8^ 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9', 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
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.S8TTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


UP 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRTNT 

GET  NUMBER  UITH  RANGE  CHECKING 

.MACRO  SGTNUM  OFFS,LO=<«0>,HI=<#177777>,0PT 

MOV  0FFS,R2 

MOV  LO.RO 

MOV  HJ.RI 

.IF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 

.MACRO  SGTNM8  OFFS,L0=<#0>,HI=<#377>,OPT 

MOV  0FFS,R2 

MOV  LO.RO 

MOV  HI,R1 

.IF  NB  <OPT> 

BJS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNMB 

.ENDM 

GET  RAD50  UITH  FIELD  SIZE  CHECKING 

.MACRO  SGTR50  OFFS,LEN,OPT 

MOV  0FFS,R2 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


L 
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1 
2 
1 

5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2'i 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
10 
A1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
j1 
52 
53 


.TITLE  UPDBUF  -  CFE  UPDME  BUFFER  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  UPDATE  STATE  TABLE  TO  PARSE  THE  BUFFER  DEFINITION 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

0ECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-HM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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UPDCHN  -  UPDATE  OUTGOING  CHANNE  MACRO  V05.03b  Saturday  2'>i-Jun-85  OSiA?  Page  'i-'\ 
MACRO  DEFINITIONS 

1U  ;  PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 

116  '  .MACRO  SPTRSO  OFS,WC 

117  MOV  0FS,R2 

118  MOV  UC.Rl 

119  CALL    $PfR50 

120  .ENDM 
121 
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UPDCNT    - 
SfTVEC   - 

202 
20? 
20^ 
20"; 
206 
207 
208 
209 
210 
211 
212 
215 
2U 
215 
216 
217 
218 
219 
220 
221 
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.SBTTL 

•»•   -  SETVEC 

INPUT: 

.PNUMB 
. PMUMH 
TEMP   ^ 

OUTPUT: 


SETVE.   -   SETUP   THE   VECTOR  ADDRESS 
-   SETUP   THE    VECTOR  ADDRESS 


=   THE  VECTOR  ADDRESS 

=    (HIGH  ORDER) 

START  ADDRESS  OF  THE  TEMPLATE 


000U2 

O00U2  016702  177632 

000U6  016201  000006 

000152  016700  OOOOOOG 

000156  004767  OOOOOOG 

000162  010067  OOOOOOG 

000166  000207 


SETVEC: 


MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


TEMP,R2 
C.VEC(R2) 
$08Uf ,R0 
$CNVO 
R0,$OSUF 


R1 


GET  START  OF  TEMPLATE 

GET  THE  VECTOR  ADDRESS 

GET  THE  CURRENT  POSITION  IN  THE  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  OCTAL 

UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 


UPDCNT  -  CFE  UPDATE  CONTROLLER  MACRO  V05.03b  Saturday  29-Jun-85 
ccrr'^R  -  i;ft  thf  r<;R  snhRF<;s 


05:4 
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15? 
15? 
15H 
155 
156 
157 
158 
159 
160 
161 
162 
163 

164  000010 

165  000010 

166  000016 

167  000022 

168  000024 

169  000030 

170  000036 

171  000042 

172  000046 

173  000052 

174  000056 

175  000062 

176  000076 

177  000110 

178  000114 

179  000140 

180  000144 

181  000150 

182  000154 

183  000160 

184  000166 
185 

186 


.SBTTL  $UPCUG  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 
'.»•  -  SUPCUG  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 
INPUT: 


R5  -  TEMPLATE  ADDRESS 


OUTPUT: 


C-eiT   =   SUCCESS/FAILURE 


012767 
010567 
005725 
010567 
012767 
012700 
012701 
012702 
004767 
010067 


OOOOOOG  OOOOOOC 
OOOOOOG 

OOOOOOG 

U7777     OOOOOOG 

OOOOOOG 

000000' 

000010 

OOOOOOG 

OOOOOOG 


SUPCUG: 


005367  OOOOOOG 


016701 
162701 
010167 
004767 
012767 
000207 

000001 


OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG  OOOOOOC 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

$PTR50 

$PTNUM 

DEC 

tPTNMB 

MOV 

SUB 

MOV 

CALL 

MOV 

RETURN 

.END 


#.8UFF,$0FDB+F.NRBD+2 
R5,.TEMP 

(r5)  + 

R5, .FLAGS 

#-!,. COMMA 

*.8UFF,R0 

#CUGDF,R1 

#CUGLN,R2 

SHVASC 

RO.SOBUF 

*C.NAM,*2 

#C.CUG 

SOBUF 

#C.FLG, OCTAL, *CS 

JOBUF.Rl 

#.8UFF,R1 

R1,$0FDB+F.NRBD 

SWDATA 


SET  NEW  OUTPUT  BUFFER 
SAVE' TEMPLATE  ADDRESS 
POINT  TO  C.STS 
SAVE  ADDRESS  OF  FLAGS  WORD 
INITIALIZE  FOR  OPTIONS 
POINT  AT  START  OF  OUTPUT  BUFFER 
POINT  AT  START  OF  CUG  DEFINITION 
GET  LENGTH  OF  CUG  DEFINITION 
MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 
SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 
CUG  NAME 
GROUP 

BACK  OVER  DECIMAL  POINT 
FLG  ;  OPTIONAL  FLAGS 
CALCULATE  LENGTH  OF  BUFFER 

SET  LENGTH  OF  BUFFER 

WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 


#$8UFI,$0FDBtF.NR8D>2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 
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85:^C 


174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 

1 88 

189  000066 

190  000066 

191  000070 
-  i2   000074 

193  000100 

194  000104 

195  000106 

196  000112 

197  000116 

198  000122 

199  000130 

200  000132 

201  000136 

202  0C0142 
205  000146 

204  000150 

205  000154 

206  000156 

207  000162 

208  000170 

209  000174 

210  000176 


.SBTTL  STMRDT  -  BUILD  RDT  TEMPLATE 

»*♦  -  STMRDT  -  BUJLD  RDT  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  Br  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

THE  RDT  TEMPLATE  IS  BUILT  IN  THE  END  Of  TASK  BUFFER  SPACE. 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
005067 
062767 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


$TMRDT: 


OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


MOV 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

CLR 

ADD 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERRORS 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

#R$DLEN,R1 

STALOC 

RO,.TEMP 

(R0)  + 

RO,. FLAGS 

*CS.RDT,(RO) 

ERROR 
#R$LENX,$BYTMN 
R1 

#RDTKTB,R2 
#RDTSTB,R5 
.TPARS 
20S 

.  ERROR, RO 
15$ 
RO 

#-2,SERR0R 
SERROR 
(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  RDTSDF  TEMPLATE 

NO  ERROR  DETAIL  YET 

UPDATE  MINIMUM  POOL  BYTE  EXTENSION 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


H 
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TMI 

tT[ 


226 

227 

228 

229 

230 

231 

232 

235 

23^; 

235 

236 

237 

238 

239  000262 

2A0  000262 

2l^^   000266 

2A2  000270 

243  00027A 

244 

245  000276 

246  000302 

247  000304 

248  000306 

249  000310 

250  000314 

251  000:16 

252  000322 
253 


.SBTTL  SETARE  -  SET  UP  REMOTE  AREA 

•*•  -  SETARE  -  SETUP  REMOTE  AREA 

INPUT: 

.PNUM8  =  THE  REMOTE  ADDRESS 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

C.ADD  =  THE  REMOTE  NODE  AREA  IN  UPPER  6  BITS 


016700  OOOOOOG 
001413 

020027  000077 
101010 

016701  177476 
000300 
006300 
006300 

010061  000010 
000402 

062716  000002 
000207 


SETARE: 


MOV 

.PNUMB.RO 

BEQ 

10$ 

CMP 

R0,*63. 

BHI 

lOi 

S%: 

MOV 

TEMP.RI 

SWAB 

RO 

ASL 

RO 

ASL 

RO 

MOV 

R0,C.ADD(R1) 

BR 

20$ 

10S: 

ADD 

#2,(SP) 

20$: 

RETURN 

PICK  UP  PARSED  VALUE 
OH  COME  ON,  BE  SERIOUS  .' 
COMPARE  HIGH  END  OF  RANGE 
IF  HI,  N.G. 

GET  THE  REMOTE  TEMPLATE 

GET  AREA  NUMBER  INTO  HIGH  BYTE 

WANT  IT  IN  THE  ... 

...  TOP  6  BITS 

SET  AREA,  INITIALIZE  ADDRESS  TO  ZERO 

ALL  DONE 

ELSE,  REJECT  TRANSITION 


H  2 
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TM 


TMPROU  - 
STMROU  - 

24A 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
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SETUP  ROUTING  TEMPLATE 


000106 
000106 

000126 
000126 

000146 
000146 

000166 
000166 

000206 
000206 

000226 
000226 

000246 
000246 

000266 
000266 

000306 
000306 


000001 


SETADD: 


SETCST: 


SETHOP: 


SETRTM: 


SETNA: 


SENBEA: 


SEAHOP: 


SEACST: 


SELV2T: 


SGTNUM  #C. ADD, ,#1023. 

SGTNUM  #r.CST,,#MAXCST 

SGTNUM  #C.H0P,,*MAXH0P 

SGTNUM  #t.RTH,,#MAXRTM 

SGTNUM  #C.NA 

SGTNUM  #C.N8EA 

SGTNUM  #C.AHOP 

SGTNUM  ffC.ACST 

SGTNUM  #C.L''TM 
.END 
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TMP5 


259 
260 
261 
262 
263 
26^ 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 

275  OOOUO 

276  OOOKA 

277  000U6 

278  00OU6 

279  000152 

280  000156 

281  000160 

282  00016^ 

283  000166 
28A  000172 
285  0001 7A 
286 

287 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303  000176 

30'!,  000202 

305  000204 

306  00020A 

307  000210 

308  0002 U 

309  000216 

310  000222 
311 

312  000224 

313  000230 

314  000232 

315  000234 


012701 
000402 

012701 
016700 
001431 
020027 
101026 
066701 
050011 
000207 


.SBTTL 
.SBTTL 

***  -  SETADD 
♦**  -  HOSADD 


SETADD 
HOSADD 


SET  UP  REMOTE  ADDRESS 
SET  UP  HOST  ADDRESS 


SETUP  REMOTE  ADDRESS 
SETUP  HOST  ADDRESS 


INPUT: 


.PNUMB  =  THE  REMOTE  ADDRESS 
.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


SSADD  = 
SSHST  = 


THE  REMOTE  NODE  ADDRESS 
THE  HOST  NODE  ADDRESS 


.ENABL  LSB 


000010 

000006 
OOOOOOG 

001777 

OOOOOOG 


HOSADD:  MOV 

BR 
SETADD: 


5$: 


20$: 


MOV 
MOV 
BEQ 
CMP 
BHI 
ADD 
BIS 
RETURN 

.DSABL 

.SBTTL 

SETARE 


#S$HST,R1 
5$ 

*S$ADD,R1 

.PNUMB.RO 

REJ 

R0,#1023. 

REJ 

.TEMP.RI 

R0,'R1) 


SET  UP  FOR  HOST 
JOIN  COMMON  CODE 

SET  UP  FOR  REMOTE 

PICK  UP  PARSED  VALUE 

OH  COME  ON,  BE  SERIOUS  I 

COMPARE  HIGH  END  OF  RANGE 

IF  HI,  NG 

GET  THE  REMOTE  TEMPLATE 

FOLD  ADDRESS  IN  WITH  AREA 


LS8 

SETARE  -  SET  UP  REMOTE  AREA 
-  SETUP  REMOTE  AREA 


INPUT: 


. PNUMB 
.TEMP  = 


=  THE  REMOTE  ADDRESS 
TEMPLATE  ADDRESS 


OUTPUT: 

S$ADD  = 
SSHST  = 


THE  REMOTE  NODE  ADDRESS 
THE  HOST  NODE  ADDRESS 


.ENABL  LS8 


012701 
000402 

012701 
016700 
001412 
020027 
101007 

066701 
000300 
006300 
006300 


000010 

000006 
OOOOOOG 

000077 
OOOOOOG 


HOSARE: 
SETARE: 
2$: 

5$: 


MOV 
BR 

MOV 
MOV 
BEQ 
CHP 
SHI 

ADD 
SWAB 
ASL 
ASL 


#S$HST,R1 
2$ 

#S$ADD,R1 
. PNUMB, RO 
10$ 

R0,#63. 
10$ 

.TEMP,R1 

RO 

RO 

RO 


SET  UP  FOR  HOST 
JOIN  COMMON  CODE 

SET  UP  FOh  REMOTE 
PICK  UP  PARSED  VALUE 
OH  COME  ON,  BE  SERIOUS  1 
COMPARE  HIGH  END  OF  RANGE 
IF  HI,  N.G. 

GET  THE  REMOTE  TEMPLATE 

GET  AREA  NUMBER  INTO  HIGH  BYTE 

WANT  IT  IN  THE  ... 

...  TOP  6  BITS 


H  4 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
11 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 
111 


**** 
LOCAL  MACROS 
**** 

.MACRO 
MOV 
CALL 
.ENDM 


PRJNT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 


GET  NUMBER  UITH  RANGE  CHECKING 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


.MACRO  SGTNUM  0FF5,L0=<#0>,HI=<#177777>,0PT 
MOV     0FFS,R2 
MOV     LO.RO 
MOV     HI.RI 
.IF  NB  <OPT> 


BIS 

OPT, a. FLAGS 

.ENDC 

J  MP 

SGTNUM 

.ENDM 

.MACRO 

SGTNMB  OF FS,LO=<#0>, HI =<#1 77777>, OPT 

MOV 

0FFS,R2 
LO.RO 

MOV 

MOV 

HI.RI 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

SGTNMB 

.ENDM 

GET  RAD50  WITH  FIELD  SIZE  CHECKING 

.MACRO 

SGTR50  OFFS,LEN,OPT 

MOV 

0FFS,R2 

MOV 

LEN.RI 

.IF  NB 

<OPT> 

BIS 

OPT, a. FLAGS 

.ENDC 

JMP 

$GTfi50 

.ENDM 

*** 

MACRO  CALLS 

H  5 


TMPSLT  -  CFE  PARSE  LINE  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:42  Page  4-1 


TMPSLT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:43 
SYMBOL  CROSS  REFERENCE 


G  6 

PAGE  1 

CREF   04.00 


TMF 

SEl 


SYMBOL 

VALUE 

REFERENCES 

CS.SLT 

=   ****** 

GX 

6-272 

C.STS 

r  ****** 

GX 

*13-405 

ERRCNT 

000147 

R 

#4-128 

ERRCTT 

000337 

R 

#4-132 

ERRDLC 

000034 

R 

#4-125 

ERRTLG 

000120 

R 

#4-127 

ERRHTM 

000302 

R 

#4-131 

ERRLLC 

000066 

R 

#4-126 

ERRNAM 

000002 

R 

#4-124 

ERRfYP 

000247 

R 

#4-130 

ERRUNT 

000212 

R 

#4-129 

EXSSEV 

=  000004 

#4-122 
4-132 

4-124 

4-125 

FLAG 

000000 

R 

#4-118 

•6-266 

8-318 

SETBRA 

000700 

R 

#12-385 

SETCNT 

000536 

R 

#9-334 

SETCTT 

000576 

R 

#11-364 

SETFLG 

000522 

R 

#8-316 

SETHTM 

000624 

R 

#12-381 

SETMST 

000726 

R 

#13-400 

SETNAM 

000506 

R 

#7-301 

SETRPR 

000652 

R 

#12-383 

SETSLV 

000734 

R 

#13-403 

SETUNT 

000556 

R 

#10-350 

SLTKTB 

000000 

RG 

#5-140 

6-274 

SLTSTB 

000000 

RG 

#5-140 

6-275 

SLSBRA 

=  ****** 

GX 

12-385 

SLSCTM 

=  ****** 

GX 

11-364 

SLSHTM 

=  ****** 

GX 

12-381 

slsrpr 

=  ****** 

GX 

12-383 

SLSTYP 

=  ****** 

GX 

13-405 

SSLBRA 

=  ****** 

GX 

12-385 

SILCNT 

-  ****** 

GX 

9-334 

SSLCTT 

=  ****** 

GX 

11-364 

SSLFLG 

=  ****** 

GX 

•8-318 

SSLHTM 

=  ****** 

GX 

12-381 

SSLLEN 

-  ****** 

GX 

6-267 

SSLNAM 

-  ****** 

GX 

7-301 

SSLRPR 

=   ****** 

GX 

12-383 

SSLTYP 

=   ****** 

GX 

♦13-406 

SSLUNT 

=  ****** 

GX 

10-350 

SALPHA 

=  000022 

#5-140 

$ANY 

=  000020 

#5-140 

SBLANK 

=  000006 

#5-140 

SCFERR 

=      ****** 

GX 

6-280 

SDIGIT 

=  000024 

#5-140 

SDNUMB 

=  000014 

#5-140 

$EOS 

=  000012 

#5-140 

SERROR 

=      ****** 

GX 

•6-281 

•6-282 

$EXIT 

=  000000 

#5-140 

SFAIL 

=  177777 

#5-140 

tGPRM 

-   ■*■***♦* 

5-140 

4-126 


4-127 


4-128 


4-129 


4-130 


4-131 


TMPSLT 
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276 
277 
278 
279 
280 
281 
282 
283 
28A 
285 
286 
287 
288 
289 
290 

291  000266 

292  000266 

293  000272 

294  000300 

295  00030A 

296  000306 

297  000312 

298  0003U 

299  000320 


.SBTTL  SETAPR  -  SETUP  STATION  ACTIVE  POLLING  RATIO 
♦**  -  SETAPR  -  SETUP  STATION  ACTIVE  POLLING  RATIO 
THIS  ACTION  ROUTINE  SETS  UP  THE  STATION  ACTIVE  POLLING  RATIO 
INPUT: 


.PNUM8  =  STATION  APR 

.PNUMH  =  STATION  APR  (HIGH  ORDER) 


OUTPUT: 


C.APR  =  STATION  APR 


016700 
116760 
005767 
001003 
105767 
001A02 
062716 
000207 


177506 

OOOOOOG  000010 
OOOOOOG 

000001 G 

000002 


SETAPR: 


10$: 
20$: 


MOV 

wove 

TST 

BNE 

TSTB 

BEQ 

ADD 

RETURN 


TEMP.RO 

.PNUMB,C.APR(RO) 

.PNUMH 

10$ 

.PNUMB+1       ; 

20$  ; 

#2,(SP)        ; 


GET  TEMPLATE  COST 

:  STORE  THE  STATION  APR  IN  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  THE  STATION  APR  IN  RANGE  ? 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  THE  TRANSITION 


H  7 
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rwpsvc 

STMSVC 


G  8 

PARSE  SWITCHED  VIRTUAL  MACRO  V05.03b  Saturday  29-Jun-85  05:44  Page  7 


BUILD  SVC  TEMPLATE 


231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
245 
244 
245 

246  000336 

247  000336 

248  000342 

249  000344 

250  000350 

251  000354 

252  000360 

253  000362 

254  000366 

255  000372 

256  000400 

257  000404 

258  000406 

259  000412 

260  000416 

261  000422 

262  000424 

263  000430 

264  000432 

265  000436 

266  000444 

267  000450 

268  000452 
269 


005067 
010546 
012701 
004767 
010067 
005720 
010067 
012710 
062767 
005067 
005001 
012702 
012:"0'^ 
0047t), 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SBTTL  STMSVC  -  BUILD  SVC  TEMPLATE 

♦**  -  STMSVC  -  BUILD  SVC  TEMPLATE 

THIS  ROUTINE  13  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

THE  SVC  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


STMSVC: 


OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG       15S: 
20S: 


CLR 

SSVUPD 

CLEAR  UPDATE  FLAG 

MOV 

R5,-(SP) 

SAVE  R5 

MOV 

#SSVLEN,R1 

GET  LENGTH  OF  NEEDED  ALLOCATION 

CALL 

STALOC 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

MOV 

RO..TEMP 

SAVE  TEMPLATE  ADDRESS 

TST 

(R0)  + 

POINT  TO  C.STS 

MOV 

RO, .FLAGS 

SAVE  FOR  OPTION  SETTING 

MOV 

*CS.SVC,(RO) 

INDICATE  THAT  THIS  IS  A  SVCSDF  TEMPLATE 

ADD 

#S$LENX,SBYTMN 

UPDATE  MINIMUM  BYTE  ALLOCATION 

CLR 

.ERROR 

NO  ERROR  DETAIL  YET 

CLR 

R1 

IGNORE  BLANKS 

MOV 

#SVCKTB,R2 

KEYWORD  TABLE 

MOV 

#SVCSTB,R5 

STATE  TABLE 

CALL 

.TPARS 

PARSE  THE  REST  OF  THE  LINE 

BCC 

20S 

NORMAL  RETURN  IF  NO  ERROR 

MOV 

. ERROR, RO 

CHECK  FOR  ERROR  DETAIL  TEXT 

8EQ 

15S 

IF  EQ,  NO  DETAIL  TEXT 

ERRORS 

RO 

PRINT  ACTION  ROUTINE  ERROR 

MOV 

#-2,$ERR0R 

SUPPRESS  SYNTAX  MESSAGE 

INC 

SERROR 

INDICATE  SYNTAX  ERROR 

MOV 

(SP)+,R5 

RESTORE  R5 

RETURN 

H  8 
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TMPUNT  - 
SETCWO  - 

206 
207 
208 
209 
210 
211 
212 
213 
2H 
215 
216 
217 
218 
219 
220 
221 
222 
223 
22A 
225 
226 


fFE  PARSE  UNIT  DEflNIT  MACRO  V05.03b  Saturday  29-Jun-85 
SETUP   THE    CHARACTERISTICS  WORD   0 
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.SBTTL  SETCWO  -  SETUP  THE  CHARACTERISTICS  WORD  0 

***  -  SETCWO  -  SETUP  THE  CHARACTERISTICS  WORD  0 

INPUT: 

.PNUMB  =  THE  CHARACTERISTICS  WORD  0 

.PNUMH  =  (HIGH  ORDER) 

.TEMP  =  START  ADDRESS  OF  THE  TEMPLATE 


OUTPUT: 


000116 

000116  016700  OOOOOOG 

000122  016760  OOOOOOG  000006 

000130  005767  OOOOOOG 

0001 3A  00U02 

000136  062716     000002 

0001A2  000207 


SETCWO: 


10$: 


THE  CHARACTERISTICS  WORD  0  IS  MOVED  INTO  THE  TEMPLATE 


GET  START  Of  TEMPLATE 
;  STORE  THE  CHARACTERISTICS  WORD  0 
IS  IT  A  WORD  VALUE  ? 
IF  EQ,  YES 
ELSE,  REJECT 


MOV 

.TEMP,RO 

MOV 

. PNUMB, C.CWO(RO) 

TST 

.PNUMH 

BEQ 

10$ 

ADD 

#2,(SP) 

RETURN 

H  9 
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MACRO  DEFl^JnlONS 

115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 


Page  4-1 


MOV 

LEN.RI 

.IF  NB 

<OPT> 

BIS 

OPT.S. 

■LAGS 

.ENDC 

JMP 

$GTR50 

.ENDM 

•  MACRO 

CALLS 

.MCALL   ISTATS, STATES, TRANS, CALLR 


G  11 

TMPX29  -  PARSE  X.29  CHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85  05:46  Page  4 
MACRO  DEFINITIONS 


57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
17 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 


.S8TTL  MACRO  DEFINITIONS 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GET  NUMBER  WITH  RANGE  CHECKING 

.MACRO  SGTNUM  OFFS,LO=<#0>,HI=<#177777>,OPT 

MOV  0FFS,R2 

MOV  LO,R0 

MOV  HI,R1 

.IF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNUM 

.ENDM 

.MACRO  SGTNMB  OFF S,LO=<#0>,HI=<#377>,OPT 

MOV  0FFS,R2 

MOV  LO,R0 

MOV  HI,R1 

.IF  NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  SGTNMB 

.ENDM 

GET  RAD50  WITH  FIELD  SIZE  CHECKING 

.MACRO  SGTR50  OFFS,LEN,OPT 

MOV  0FFS,R2 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


H  11 
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MACRO  DEFINITIONS 
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UF 


115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 


MOV  LEN,R1 

.IF   NB  <OPT> 

BIS  OPT, a. FLAGS 

.ENDC 

JMP  $GTR50 

.ENDM 


MACRO   CALLS 

.MCALL      ISTATS, STATES, TRANS 


H  12 
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§5!47 


55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 

n 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97  000000 

98 

99  000000 

100  000002 

101  000004 

102  000006 

103  000010 

104  000012 

105  000014 

106  000016 

107  000020 
108 

109  000000 

110 

111  000000 


000000 


000022 


•  LOCAL  MACROS 

;  »  *  *  * 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  Of  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.If  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCfERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.If  DIF  <TEXT><RO> 


MOV 
.ENDC 
CALL 
.ENDM 

**** 

MACRO  CALLS 
**** 

.MCALL 

•  LOCAL  DATA 

;  **** 


TEXT.RO 

SCfERI 
EPRINT 


ISTATS, STATES, TRANS 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


DEFINE  THE  BUffER  BUFFER  BLOCK 


.ASECT 

.=0 

.BLKW 

.SLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 


C.CBNM 
C.CBSZ 
C.RBNM 


R8SZ 
SBNM 
SBSZ 
THSH 
LEN=. 


NEXT: 


.PSECT 
.BLKW   1 


C.LNK 

C.STS 

CCB  NUMBER 

CCB  SIZE 

RDB  NUMBER 

RDB  SIZE 

SD8  NUMBER 

SDB  NUMBER 

RDB  THRESHOLD  VALUE 

LENGTH  OF  THE  BLOCK 


;  ADDRESS  OF  NEXT  LOCATION  IN  TEMPLATE 


H  13 
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LOCAL  DATA 

123  .SBTTL  LOCAL  DATA 

12'. 

125  -NLIST     BEX 

126  000000  Oil  103  110     CHNDF :      .ASCII      <11>/CHN$DF/<1 1> 

127  000010  CHNLN=.-CHNDf 

128  .LIST       BEX 

129  .EVEN 
130 


H  U 
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UPDCNT  -  CFE  UPDATE  CONTROLLER 
SETC5R  -  SET  THE  CSR  ADDRESS 


225 
22i 
225 
226 
227 
228 
229 
230 
231 
232 
253 
23A 
235 
236 
237 
238 
239 
210 
211 
2A2 
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.SBTTL 
»••  -  SETCSR 
INPUT: 


SETCSR  -  SET  THE  CSR  ADDRESS 
-  SET  THE  CSR  ADDRESS 


.PNUM8  =  CSR  ADDRESS 

.PNUMH  =  CSR  ADDRESS  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 


000170 

000170  016702  177604 

000174  016201  000010 

000200  016700  OOOOOOG 

000204  004767  OOOOOOG 

000210  010067  OOOOOOG 

000214  000207 


OUTPUT: 


SETCSR: 


MOV 

TEMP,R2 

MOV 

C.CSR(R2) 

MOV 

SOBUf ,R0 

CALL 

$CNVO 

MOV 

R0,$OBUF 

RETURN 

,R1 


GET  START  OF  TEMPLATE 

GET  THE  NEW  CSR  ADDRESS 

POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  OCTAL 

UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 


UPDCNT 


H  15 
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rc  T  Tuc  DD  r no  I T V 


UPDCUG 
Symbol 

CS.FLG= 
CUGDF 
CUGLN   : 
C.CUG 
C.FLG 


-  UPDATE   USER  GROUP  DEF  I 
table 


MACRO  V05.03b  Saturday  29-Jun-85 
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......  &x 

OOOOOOR 
000010 
000010 
000012 


C.LEN  = 
C.NAM 
F.NRBD= 
SBUFI  = 
$MVASC= 


mm 

****** 

****** 


GX 
GX 
GX 


$08UF  : 
$0F[)8,= 
$PTNMd= 
$PTNUM= 


..A*. 

GX 

$propr= 

******  GX 

.8Uff  = 

****** 

GX 

***** 

GX 

PTR50= 

******  GX 

.COMMA= 

****** 

GX 

**  *  *  * 

GX 

UPCUG 

000010RG 

.FLAGS= 

****** 

uX 

***** 

6X 

$WDATA= 

»*••**  GX 

.TEMP  = 

GX 

.   ABS.     OOOOU         000 
000170         001 
Er-ori  detected;      0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


**»   Assembler   statistics 

Work     file     reads:  0 

Work      file   writes:  0 

Size  of   work    file:  8838  Words      (   35  Pages) 

Size  of   core  pool:  U4^0  Words      (   55  Pages) 

Operating     system:  RSX-11M/PLUS 

SYfuPDCUG!v2!c°3^?n°]UPDCUG/CR/-SP=Sy:[1,nRSXMCM.SML/ML,C130,110]NETL]8/ML,C132,10]UPDCUG 
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TMPRDT  - 
SETNAM  - 

212 
213 
2U 
215 
216 
217 
218 
210 
220 
221 
222 
223 
224 
225 
226 
227 
228 


H  1 

PARSE  REMOTE  DTE  IN  CE  MACRO  V05.03b  Saturday  29-Jun-85  05:40  Page  8 
SET  NAME 

.SBTTL  SETNAM  -  SET  NAME 
.SBTTL  SETADR  -  SET  ADDRESS 

♦»  SETNAM  -  SET  NAME 
*♦  SETADR  -  SET  ADDRESS 

INPUTS        .TPARS  VARIABLES 

OUTPUT       VALUE  SET  IN  TEMPLATE. 


000200 
000214 


000001 


SETNAM:  $GTR50  #R$DNAM,#2 
SETADR:  $GTR50  #R$DADR,#5 

.END 


TMPRDT  -  PARSE  REMOTE  DTE  IN  CE  MACRO  V05.03b  Saturday  29-Jun-85 
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TMPREM  - 

CFE  PARSE  REMD 

TE  DEFIN 

SETADD  - 

SET  UP 

REMOTE 

ADDRESS 

255 

256 

257 

258 

259 

260 

261 

262 

263 

26A 

265 

266 

267 

268 

000324 

269 

000524 

016700 

OOOOOOG 

270 

000330 

001410 

271 

000332 

020027 

001777 

272 

000356 

101005 

273 

0003A0 

016701 

177434 

274 

000344 

050061 

000010 

275 

000350 

000402 

276 

000352 

062716 

000002 

277 

000556 

000207 

278 

279 

280 

000001 

03b  Saturday  29-Jijn-85  05:40  Page  10 

.SBTTL  SETADD  -  SET  UP  REMOTE  ADDRESS 

♦**  -  SETADD  -  SETUP  REMOTE  ADDRESS 

INPUT: 

.PNUMB  =  THE  REMOTE  ADDRESS 
TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C.ADD  =  THE  REMOTE  NODE  ADDRESS 


SETADD: 


MOV 

BEQ 

CMP 

BHI 

MOV 

BIS 

BR 

10$: 

ADD 

20$: 

RETURN 

. PNUMB, RO 

10$ 

R0,#1025. 

lOi 

TEMP,R1 

R0,C.ADD(R1) 

20i 

#2,(SP) 


PICK  UP  PARSED  VALUE 

OH  COME  ON,  BE  SERIOUS  I 

COMPARE  HIGH  END  OF  RANGE 

IF  HI,  NG 

GET  THE  REMOTE  TEMPLATE 

FOLD  ADDRESS  IN  WITH  AREA 

ALL  DONE 

ELSE,  REJECT  TRANSITION 


.END 


I  2 

TMPREM  -  CFE  PARSE  REMOTE  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:40  Page  10-1 


H  3 
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CS.ROU- 

ACST 
C.ADD 
C.AHOP 
C.CST 
CHOP 
C.LEN  = 
C.L2TM 
C.NA 
C.NBEA 
C.RTM 

.  ABS. 

SSTATE 

SKTAB 

$<STR 


*»**«»  GX 

000022 

000004 

000020 

000006 

000010 

000026 

000024 

OOOOK 

000016 

000012 

000026 
000326 
000104 
000000 
000000 


EXIT 

000074R 

002 

SENBEA 

000226R 

SDIGIT 

LA 

000074 

SETADD 

000106R 

SDNUMB 

MAXCST= 

««***»  GX 

SETCST 

000126R 

$EOS 

HAXH0P= 

♦  **■*»•  GX 

SETHOP 

000146R 

SERROR 

MAXRTM= 

177777 

SETNA 

000206R 

SEXIT 

RA 

000076 

SETRTM 

000166R 

SFAIL 

ROUKTB 

OOOOOORG 

00^ 

TEMP 

OOOOOOR 

SGTNUM 

ROUSTB 

OOOOOORG 

002 

$ALPHA= 

000022 

SLAMDA 

SEACST 

000266R 

$ANY  = 

000020 

SNUMBR 

SEAHOP 

000246R 

$BLANK= 

000006 

$RAD50 

SELV2T 

000306R 

$CFERR= 

***»«*  GX 

SSTRNG 

000024 

000014 

000012 

******  GX 

000000 

177777 

»»«***  GX 

000000 

000002 

000016 

000004 


$SU8XP=  000010 
$TAL0C=  *♦♦*♦*  GX 
STMROU  000002RG 
$$$FLG=  177777 
$$$K;EY=  \77777 
$$$STA=  000000 
.ERROR=  ******  GX 
.FLAGS=  ******  GX 
.TEMP  =  ******  GX 
.TPARS=  ******  GX 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 
(RU,D,LCL,REL,C0N) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


***  Assembler  statistics 


Work  file  reads: 
Work  f i le  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operatir.g  system: 


0 

0 

10750  Words      (   42  Pages) 

14440  Words     (   55  Pages) 

RSX-11M/PLUS 


SYfTMPROu!v2!tl'32??34]T^,rROU/CR/-SP=SY:C1,13RSXMCM.SML/ML,n30,110]NETLie/ML,[132,10]TMPROU 


TMPROU 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:41 


PAGE 


I  3 


H  I, 
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SETARE  -  SET  UP  REMOTE  AREA 


thp: 


516  000236 

OiOOII 

317  000240 

000402 

318  000242 

319  000242 

062716 

320  000246 

000207 

321 

322 

000002 


REJ: 
10$: 
20$: 


MOV 
BR 

ADD 
RETURN 


.DSABL  LSe 


R0,(R1) 
20l 

#2,(SP) 


INITIALIZE  ADDRESS  TO  ZERO 
ELSE,  REJECT  TRANSITION 


SET  AREA, 
ALL  DONE 
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TMP 
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112 
113 

.MCALL 

ISTATS, STATES 

,  TRANS 

1H 

115 

•  »*** 

116 

;  LOCAL 

DATA 

117 

■  **** 

118  000000 

119 

120 

FLAG: 

.BLKW 

1 

;  TEMPLATE  FLAGS  UORD 

;•  ERROF 

STRINGS 

121 
122 

000004 

EXSSEV 

=  4 

123 

.NLIST 

BEX 

124  000002 

004 

103 

106 

ERRNAM 

.ASCIZ 

<EX$SEV>/CFE 

— 

Error 

in  DDM  name/ 

125  000034 

004 

103 

106 

ERRDLC 

.ASCIZ 

<EX$SEV>/CFE 

— 

Error 

in  OLC  name/ 

126  000066 

004 

103 

106 

ERRLLC 

.ASCIZ 

<EX$SEV>/CFE 

— 

Error 

in  LLC  name/ 

127  000120 

004 

103 

106 

ERRFLG 

.ASC  Z 

<EX$SEV>/CFE 

-- 

Error 

in  flags/ 

128  000147 

004 

103 

106 

ERRCNT 

.ASC  Z 

<EX$SEV>/CFE 

— 

Error 

in  controller  number/ 

129  000212 

004 

103 

106 

ERRUNT 

.ASCIZ 

<EX$SEV>/CFE 

— 

Error 

in  unit  number/ 

130  000247 

004 

103 

106 

ERRTYP 

.ASCIZ 

<EX$SEV>/CFE 

-- 

Error 

in  line  type/ 

131  000302 

004 

103 

106 

ERRHTM 

.ASCIZ 

<EX$SEV>/CFE 

— 

Error 

in  hello  timer/ 

132  000337 

004 

103 

106 

ERRCTT 

.ASCIZ 

<EX$SEV>/CFE 

— 

Error 

in  counter  timer/ 

133 

.EVEN 

134 

.LIST 

BEX 
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TMPSLT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:43 
SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

SGTNMB 

- 

****** 

GX 

9-33A 

10-350 

SGTNUM 

~ 

****** 

GX 

11-364 

12-381 

12-383 

$GTR50 

- 

****** 

GX 

7-301 

SLAMDA 

= 

000000 

#5-140 

SNUMBR 

= 

000002 

#5-140 

$RAD50 

r 

000016 

#5-140 

IRONLY 

- 

****** 

5-140 

5-140 

5-140 

tSTAN 

~ 

****** 

GX 

•6-265 

SSTRNG 

::: 

000004 

#5-140 

SSUBXP 

= 

000010 

#5-140 

STALOC 

r 

****** 

GX 

6-268 

STMSLT 

000576 

RG 

#6-263 

$$$FLG 

= 

Mllll 

#5-140 

$$$KEY 

= 

Mllll 

#5-140 

.ERROR 

= 

****** 

GX 

6-278 

.FLAGS 

- 

****** 

GX 

*6-271 

11-364 

12-381 

.TEMP 

3 

****** 

GX 

♦6-269 

8-317 

13-404 

.TPARS 

= 

****** 

GX 

6-276 

H  6 

PAGE  2 

CREF   04.00 


12-385 


TMl 
SE 


12-383 


12-385 


L 


TMPSLT 
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If 


H  7 

TMPSTA  -  CFE  PARSE  STATION  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:43 
SETHTM  -  SETUP  STATION  HELLO  TIMER 


Page  10 


301 
302 
303 
30^. 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 


.SBTTL  SETHTM  -  SETUP  STATION  HELLO  TIMER 
**♦  -  SETHTM  -  SETUP  STATION  HELLO  TIMER 
THIS  ACTION  ROUTINE  SETS  UP  THE  STATION  TIMER 
INPUT: 


.PNUMB  =  STATION  HELLO  TIMER 

.PNUMH  =  STATION  HELLO  TIMER  fHIGH  ORDER) 


OUTPUT: 


C.HTM  =  STATION  HELLO  TIMER 


000322 
000322 
000326 
000334 
000342 
000346 
000350 
000354 


016700 
052760 
016760 
005767 
001402 
062716 
000207 

000001 


177452 
OOOOOOG  OOOOOOG 
OOOOOOG  000012 
OOOOOOG 

000002 


SETHTM: 


10$: 


MOV 
BIS 
MOV 
TST 
BEQ 
ADD 
RETURN 

.END 


TEMP.RO        ; 

#ST$HTM,C.STS(RO) 

. PNUMB, C.HTM(RO) 

.PNUMH 

10$ 

#2,(SP) 


GET  TEMPLATE  COST 
;  REMEMBER  OPTION 

;  STORE  THE  STATION  HELLO  TIMER  IN  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  EQ,  YES  -  OKAY 
ELSE,  REJECT  THE  TRANSITION 


H  8 

TMPSVC  -  PARSE  SWITCHED  VIRTUAL  MACRO  V05.03b  Saturday  29-Jun-85  05:A4 
SETNAM  -  SET  DLM  ^JAME 
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271 

272 

273 

27A 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295  00045A 

296 

297  000474 

298 

299  0005K 

300 

301  000542 

302 

303  000570 

304 

305  000610 

306 

307  000630 

308 

309  000650 

310 

311  000672 

312 

313 


.SBTTL  SfTNAM 
.SBTTL  SETPSZ 


SET 
SET 
.SBTTL  SETUSZ  -  SET 
.SBTTL  SETFLG  -  SET 
.SBTTL  SETRCL  -  SET 
.SBTTL  SETTIM  -  SET 
.SBTTL  SETDTE  -  SET 
.SBTTL  SETOWN  -  SET 


DLM  NAME 
PACKET  SIZE 
UINDOW  SIZE 
FLAGS 

MAXIMUM  RECALLS 
RECALL  TIMER 
DTE  ADDRESS 
OWNER  Of  SVC 


000001 


*♦  SETNAM  -  SET  DLM  NAME 

•*  SETPSZ  -  SET  PACKET  SIZE 

*♦  SETWSZ  -  SET  WINDOW  SIZE 

**  SETFLG  -  SET  FLAGS 

**  SETRCL  -  SET  MAXIMUM  RECALLS 

**  SETTIM  -  SET  RECALL  TIMER 

**  SETDTE  -  SET  DTE  ADDRESS 

**  SETOWN  -  SET  OWNER  OF  SVC 

INPUTS       .TPARS  VARIABLES. 

OUTPUT       VALUE  SET  IN  TEMPLATE. 

SETNM1:  SGTNUM  #S$VNAM 

SETNM2:  SGTNUM  #S$VNAM+2 

SETPSZ:  SGTNUM  ffSSVPSZ, , ,*SV$PSZ 

SETWSZ:  SGTNUM  #SSVWSZ, , ,#SVSWSZ 

SETFLG:  SGTNUM  #SSVFLG 

SETRCL:  SGTNUM  tfSSVRCL 

SETTIM:  SGTNUM  #SSVTIM 

SETDTE:  SGTR50  #SSVDTE,#5,*SVSDTE 

SETOWN:  SGTR50  *SSV0WN,*1 
.END 


NAME  (XX  OF  DLM-XX.YY) 

NAME  (VY  OF  DLM-XX.YY) 

PACKET  SIZE 

WINDOW  SIZE 

FLAGS 

MAXIMUM  RECALLS 

RECALL  TIMER 

RAD50  OF  DTE  ADDRESS 

RAD50  OWNER  OF  SVC 


TMPUNT  - 
SETCWl  - 

228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 
2^0 
2A1 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


H  9 

CFE  PARSE  UNIT  DEFINIT  MACRO  V05.05b  Saturday  29-Jun-85  05:44  Page  9 
SET  THE  CHARACTERISTICS  WORD  1 


.SBTTL   SETCWl  -  SET  THE  CHARACTERISTICS  WORD  1 

^**  -  SETCWl  -  SET  THE  CONTROLLER  CHARACTERISTICS  WORD  1 

THIS  ACTION  ROUTINE  CHECKS  THE  CHARACTERISTICS  WORD  1  TO  MAKE  SURE  IT  IS  VALID 
AND  STORES  IT  IN  THE  TEMPLATE. 


INPUT: 


.PNUMB  =  CHARACTERISTICS  WORD  1 

.PNUMH  =  CHARACTERISTICS  WORD  1  (HIGH  ORDER) 

.TEMP  =  TEMPLATE  ADDRESS 


000144 
000144 
000150 
000156 
000162 
000164 
000170 


016700 
016760 
005767 
001402 
062716 
000207 


OOOOOOG 

OOOOOOG  000010 
OOOOOOG 

000002 


OUTPUT 


SETCWl: 


10S: 


THE  CHARACTERISTICS  WORD  1  IS  STORED  IN  C.CW1  OF  THE  TEMPLATE. 


MOV 

.TEMP.RO 

MOV 

.PNUM8,C.CU1(R0) 

TST 

.PNUMH 

BEO 

10$ 

ADD 

#2,(SP) 

RETURN 

GET  START  OF  TEMPLATE 
;  STORE  THE  CHARACTERISTICS  WORD  1  IN'  THE  TEMPLATE 
IS  IT  A  WORD  VALUE  ? 
IF  EO,  YES  -  OKAY 
ELSE,  REJECT  THE  TRANSITION 


TMPUNT  -  CfE  PARSE  UNIT  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:44  Page  10 

CCTrCD  _  CCT  TUP  CFrnMHADV  TQD  fihriRF^^ 


05:44 


TMPX2P  -  PARSE  : 
LOCAL  DATA 

126 

127 

128 

129 

130 

131 

132  000000 

133 

13A  000000 

135  000002 

136  00000'. 

137  000006 

138  000012 

139  OOOOU 
UO  000016 
U1  000020 
U2  000022 
U3 

UA  000000 
U5 
U6 
H7 
H8 
K9 

150  000000 

151  000030 

152  000065 

153  000120 

154  000162 

155  000231 
156 
157 


H  10 

.25  LEVEL  2  PRO  MACRO  V05.03b  Saturday  29-Jun-85  05:A5  Page  5 


.SBTTL  LOCAL  DATA 
DEFINE  THE  LEVEL  2  PARAMETER  SLOCK 
••  DO  NOT  CHANGE  THESE  OFFSETS  JITHOUI  REDEFINING  THE  X$2xxx  CONSTANTS 


000000 


000024 


000004 
004 
004 
004 
004 
004 
004 


C.LIN: 

C.WSZ 
C.BSZ 
C.RTC 
C.RTT 
C.HBT 
C.LEN 


.ASECT 

.=0 

.BLKW 

.BLKU 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.PSECT 
.NLIST 


BEX 


SYNTAX  ERROR  DETAIL  STRINGS 


103 
103 
103 
103 
103 
103 


106  ERRLIN 

106  ERRWSZ 

106  ERRBSZ 

106  ERRRTC 

106  ERRRTT 

106  ERRHBT 


EXSSEV 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCJZ 

.ASCIZ 

.EVEN 

.LIST 


=  4 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

BEX 


C.LNK 
C.STS 
LINE  ID:  RAD50  PROCESS  NAME 

CONTROLLER,  UNIT  NUMBERS 
WINDOW  SIZE  (0-7) 
BLOCK  SIZE 
RETRANSMIT  COUNT 
RETRANSMIT  TIMER  VALUE 
HOLDBACK  TIMER  VALUE 


Invalid  line  id/ 
Error  in  window  size/ 
Invalid  block  size/ 
Invalid  retransmit  count  / 
Invalid  retransmit  timer  value/ 
Invalid  holdback  timer  value/ 


{  10 
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TDADQ     QTATF     T  SBI  F  <; 


H  11 

TMPX29  -  PARSE  X.29  CHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85  05:^6 
MAfRO  DEFINITIONS 


Page  4-1 


IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 


MOV     LEN.RI 
.]F  NB  <OPT> 
BIS 
.ENDC 


JMP 
.ENDM 


MACRO  CALLS 
.MCALL 


OPT, a. FLAGS 
$GTR50 


ISTATS, STATES, TRANS 


1  11 
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000000 


TMPX3P  -  PARSE 
LOCAL  DATA 

126 
127 
128 
129 
130 
131 
132 

135  000000 
13A  000002 
155  000004 

136  000006 

137  000010 

138  oooon 

139  000012 
KO  000013 
U1  000014 

142  000015 

143  000016 

144  000017 
000020 


H  12 

X.25  LEVEL  3  CHA  MACRO  V05.03b  Saturday  29-Jun-85  05:46 

.S8TTL  LOCAL  DA1A 


Page  5 


000000 


000000 


145 
146 
147 
148 
149 
150 
151 
152 

153  000000 

154  000043 

155  000106 

156  000152 

157  000216 

158  000257 

159  000321 

160  '•10363 
16.  ,j0427 
162  000473 
165  000540 
164 

165 


000021 


000004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


103 
103 
105 
105 
105 
103 
105 
105 
105 
105 
103 


DEFINE  THE  X.25  LEVEL  3  PARAMETER  BLOCK 


C.DFP: 


,MXP: 
DU: 
MW 


C 
C 
C 
C.CT 


C.ST 


,KM 
.RM 
.SM 
,LEN 


.ASECT 

.=0 

.8LKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.P5ECT 


SYNTAX  ERROR  DETAI'  -,tRINGS 


106  ERRDFP: 

106  ERRMXP: 

106  ERRDW 

106  ERRMW 

106  ERRCT 

106  ERRKT 

106  ERRRT 

106  ERRST 

106  ERRKM 

106  ERRRM 

106  ERRSM 


.NLIST 

EXSSEV 

.ASCIZ 

.ASCJZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 


BEa 

=  4 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

<EX$SEV>/CFE 

BEX 


(21.-1029.) 
(21.-1029.) 


C.LNK 
C.STS 

DEFAULT  BLOCK  SIZE 
MAXIMUM  BLOCK  SIZE 
DEFAULT  WINDOW  SIZE 
MAXIMUM  WINDOW  SIZE 
CALL  TIMER  VALUE 
CLEAR  TIMER  VALUE 
RESET  TIMER  VALUE 
RESTART  TIMER  VALUE 
MAXIMUM  CLEAR  VALUE 

MAXIMUM  RESETS  VALUE   

MAXIMUM  RESTARTS  VALUE(0.-255. ) 
LENGTH  OF  THE  BLOCK 


(1. 
(1. 
(0. 
(0. 
(0. 
(0. 


-127.) 
-127.) 
-255.) 
-255.) 
-255.) 
__-255.) 
(0.-255.) 
(0.-255.) 


Invalid  default  block  size/ 

Invalid  maximum  block  size/ 

Invalid  default  window  size/ 

Invalid  maximum  window  size/ 

Invalid  call  timer  value/ 

Invalid  clear  timer  value/ 

Invalid  reset  timer  value/ 

Invalid  restart  timer  vali  ' 

Invalid  maximum  clear  vain/ 

Invalid  maximum  resets  value/ 

Invalid  maximum  restarts  value/ 


I  12. 
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115 

1U 

115 

116 

117  000002 

118 

119 

120 

121  000002 

122  000002 
123 

124  000002 

125  000002 
126 

127  000002 

128  000002 
129 

130  000002 

131  000002 
132 

133  000002 

134  000002 
135 

136  000002 

137  000002 
138 

139  000002 

140  000002 
141 

142  000002 

143  000002 
144 

145  000002 

146  000002 
147 

148  000002 

149  000002 
150 

151  000002 

152  000002 
153 

154  000002 

155  000002 
156 

157  000002 

158  000002 
159 

160  000002 

161  000002 

162  000002 

163  000002 

164  000002 

165  000002 

166  000002 
167 

168 
169 


INITIALIZE  TABLES 
♦  **« 

ISTATS  BUFSTB,BUFKTB 

PROCESS  "BUFSDF" 

STATES 
TRANS  SNUM8R,,SETNUM 

STATES 
Tf!ANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETNUM 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETNUM 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETNUM 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETNUM 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUMBR,,SETNUM 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETNUM 

STATES  EXIT 

TRANS  SEOS.SEXIT.SCLNUP 

TRANS  <',>,, SMOVPT 
STATES 

TRANS  SNUM8R,, SMOVPT 
STATES 

TRANS  SLAMDA.EXIT 


UPDBUF  -  CFE  UPDATE  BUFFER  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:47  Page  5-1 
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H  U 

UPDCHN  -  UPDATE   OUTGOING  CHANNE   MACRO  V05.03b  Saturday  29-Jun-85   05:47     Page  6 
$UPCHN  -  UPDATE    CHANNEL   DEFINITION 


132 
133 
134 
135 
136 
137 
158 
139 
140 
141 
142 
143 

144  000010 

145  000010 

146  000016 

147  000022 

148  000024 

149  000030 

150  000036 

151  000042 

152  000046 

153  000052 

154  000056 

155  000062 

156  000074 

157  000120 

158  000124 

159  000130 

160  000134 

161  000140 

162  000146 
163 

164 


.SBTTL   $UPCHN  -  UPDATE  CHANNEL  DEFINITION 
•»♦  -  $UPCHN  -  UPDATE  CHANNEL  DEFINITION 
INPUT: 


R5  -  TEMPLATE  ADDRESS 


OUTPUT: 


C-eiT    =   SUCCESS/FAILURE 


012767 
010567 
005725 
010567 
012767 
012700 
012701 
012702 
004767 
010067 


016701 
162701 
010167 
004767 
012767 
000207 

000001 


OOOOOOG  OOOOOOC 
OOOOOOG 

OOOOOOG 

\nm    OOOOOOG 

OOOOOOG 

000000' 

000010 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG  OOOOOOC 


SUPCHN: 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

$PTNUM 

SPTNUM 

MOV 

SUB 

MOV 

CALL 

MOV 

RETURN 

.END 


#.8UFF,$0FDBtF.NRBDt2  ;  SET  NEW  OUTPUT  BUFFER 


SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  ADDRESS  OF  FLAGS  WORD 

SUPPRESS  INITIAL  COMMA 

POINT  AT  START  OF  OUTPUT  BUFFER 

POINT  AT  START  OF  CHANNEL  DEFINITION 

GET  LENGTH  OF  CHN  DEFINITION 

MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

SET  CHANNEL  LOW 

SET  CHANNEL  HIGH 

CALCULATE  LENGTH  OF  BUFFER 

SET  LENGTH  OF  BUFFER 

WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 


R5,.TEMP 

(r5)  + 

R5, .FLAGS 

*-1,. COMMA 

#.8UFF,R0 

#CHNDF,R1 

#CHNLN,R2 

SMVASC 

RO.SOBUF 

*C$HLO 

*C$HHI,,*CH$HI 

$06UF,R1 

#.8UFF,R1 

R1,$0FDB+F.NRBD 

SWDATA  ,    .-     -        -   ,-,- 

#$BUFI,$0FDBtF.NRBD+2    ;    SET   TO  OUTPUT    THE    "ENDSDF"  LINE 


I  H 
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UPDCNI  -  CFE  UPDATE  CONTROLLER 
SETPR!  -  SET  THE  PRIORITY 


H  15 

MACRO  VOS.05b  Saturday  29-Jun-85  05:48  Page  10 

.SBTTL   SETPRI  -  SET  THE  PRIORITY 

»»*  -  SETPRI  -  SET  THE  CONTROLLER  PRIOfilTV 

INPUT; 

.PNUM8  =  PRIORITY 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 

TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 


000216 

000216  016702  177556 

000222  016201  000012 

000226  016700  OOOOOOG 

000232  004767  OOOOOOG 

000236  010067  OOOOOOG 

000242  000207 


SETPRI: 


MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


TEMP,R2 

C.PRi(R2) 

$08UF,R0 

$CNVO 

R0,$OBUF 


R1 


GET  START  OF  TEMPLATE 

GET  THE  PRIORITY 

POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  OCTAL 

UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 


UPDCNT  -  CFE  UPDATE  CONTROLLER 
SFTURM  -  SET  UNI8US  RUN  MASK 


I  15 
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SYMBOL    CROSS  REFERENCE 


H  16 

PAGE    1 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

CS.FLG 

r     *♦♦**» 

GX 

6-178 

CUGDF 

000000 

R 

#5-U6 

5-K7 

6-171 

CUGLN 

=  000010 

#5-U7 

6-172 

C.CUG 

00001 Q 
00001? 

*5-Hl 

6-176 
6-178 

C.FLG 

#5-U2 

C.LEN 

-.  0000  u 

#5-U! 

C.NAM 

OOOOO'. 

#5-U0 

6-175 

F.NRBD 

~    ****»• 

GX 

•6-165 

•6-181 

•6-183 

$BUF1 

rr     ****** 

GX 

6-183 

SMVASC 

r     ****** 

GX 

6-173 

tOBUf 

~    ****** 

GX 

•6-174 

•6-177 

6-179 

tOFDB 

r     ****** 

GX 

•6-165 

•6-181 

•6-183 

SPTNMB 

-    ****** 

GX 

6-178 

tPTNUM 

r     ****** 

GX 

6-76 

SPTOPT 

-■    ****** 

GX 

6-' 78 

$PTR50 

r     ****** 

GX 

6-175 

SUPCUG 

000010 

RG 

#6-164 

tWDATA 

-    ****** 

GX 

6-182 

.BUFF 

=    ****** 

GX 

6-165 

6-170 

6-180 

.COMMA 

r    ****** 

GX 

•6-169 

.FLAGS 

~    ****** 

GX 

•6-168 

.TEMP 

r      ****** 

GX 

•6-166 

UPDCUG 
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TMPROT  -  PARSE  REMOTE  DTE  IN  CE  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


tS.RDT= 

DTE 

DTE1 

ERRADR 

ERRNAM 

EX$SEV= 

RDTKTB 

RDTSTB 

R$DADR= 

.  ABS. 

SSTATE 

SKTAB 

$KSTR 


****«»  GX 

OOOOAOR 

00O0A2R 

000031 R 

OOOOOOR 

OOOOOA 

OOOOOORG 

OOOOOORG 

»«♦♦♦»  GX 


002 


R$DLEN= 

002  R$DNAM= 
"    R$LENX= 

SETADR 
SETNAM 
$ALPHA= 

003  $ANY  = 
002  $BLANn= 


****** 


GX 
GX 

******  GX 
0002T4R 
000200R 
000022 
000020 
000006 


$BYTMN=  ****** 
$CFERR=  ****** 
$CLERR=  ******  GX 
$DIGIT=  00002A 
$DNUM8=  000014 
$EOS  =  000012 
$ERROR=  ****** 
SEXIT  =  000000 


5  ^5:40 

Page  8- 

1 

GX 

$FA1L  = 

:77777 

GX 

$GTR50= 

******  GX 

GX 

$LAMDA= 

000000 

$NUMBR= 

000002 

$RAD50= 

000016 

$STRNG= 

000004 

GX 

$SL'BXP= 

000010 

$TALOC= 

******  GX 

STMRDT  000066RG 
$$$FLG=  177777 
$$$KEY=  177777 
$$$STA=  000000 
.ERROR=  ******  GX 
.FLAGS=  ******  GX 
.TEMP  =  ******  GX 
.TPARS=  ******  GX 


000000 
000230 
000052 
000000 
000000 
Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


***  Assembler  statistics 

Work      file      reads:  0 

Work      file   writes:  0 

Size  of  work    file:  10992  Words      (   43  Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating      system:  RSX-11M/PLUS 

SYfTMPRDr.V2|[132,134]TMPRDT/CR/-SP=SY:[1,11RSXMCM.SML/ML,(:i30,110]NETLIB/ML,[132,103TMPRDT 


TMPRDT 
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Symbol  table 


ADD2 

000024R 

002 

REMKTB 

OOOOOORG 

003  $BYTMN= 

****** 

GX 

$LSNAD= 

****** 

CS.REM= 

»♦♦*»«  GX 

REMSTB 

OOOOOORG 

002  $CAT5  = 

****** 

GX 

$LSTMP= 

C.ADD 

000010 

R.LENX= 

******   GX 

$DIGIT= 

000024 

$NTADD= 

****** 

C.LEN  = 

000012 

SETADD 

000324R 

$DNUMB= 

000014 

$NUHBR= 

000002 

C.NAM 

OOOOOA 

SETARE 

000262R 

$EOS  = 

000012 

$QI/\iSN= 

C  STS  = 

*•♦**»  GX 

SETNAM 

000202R 

$ERROR= 

****** 

GX 

$RAD50= 

000016 

EXIT 

000030R 

002 

TEMP 

OOOOOOR 

SEXIT  = 

000000 

$STRNG= 

000004 

FINREM 

0001HR 

$ALPHA= 

000022 

SFAIL  = 

]77777 

$SUBXP= 

000010 

LA 

000074 

$ANY  = 

000020 

$LAMDA= 

000000 

$TMLST= 

****** 

RA 

000076 

$BLANK= 

000006 

.  ABS. 

000012 
000360 

000 

001 

(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 

SSTATE 

00003A 

002 

(RW,D,LCL,REL,CON) 

SKTAB 

000000 

003 

(RW,D,LCL,REL,CON) 

$KSTR 

000000 

004 

(RW,0,LCL,REL,CON) 

Errors 

detected: 

0 

»*♦  Ass 

embler  statistics 

Work   f 

ile  reads 

0 

Work   f 

i le  writes 

0 

Size  of 

work  file 

10406  Uords 

(  41  Pages) 

Size  of 

core  Dool 

■  14440  Words 

(  55  Pages) 

Operating  system 

:  RSX- 

11M/PLUS 

GX 
GX 
GX 

GX 


GX 


STMREM  000002RG 

$T1ALC=  ******  GX 

^77777 

^77777 

000000 

****** 


$$$FLG= 
$$$KEV= 
$$iSTA= 
. PNUMB= 
.PSTCN=  ****** 
.PSTPT=  ****** 
.TPARS=  ****** 


GX 
GX 
GX 
GX 


SY?TMPREM^V2![132,134]fMPREM/CR/-SP=SV:[1,1]RSXMCM.SML/ML,[130,110]NETLI8/ML,[132,10]TMPREM 


TMPREM 
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TMPROU     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:41 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


CS.ROU 

r  ****** 

GX 

6-228 

C.ACST 

000022 

#4-136 

C.ADD 

000004 

#4-129 

C.AHOP 

000020 

#4-135 

C.CST 

000006 

#4-130 

CHOP 

000010 

#4-131 

C.LEN 

=  000026 

#4-138 

C.L2TM 

000024 

#4-137 

C.NA 

000014 

#4--  33 

C.NBEA 

000016 

#4--  34 

C.RTM 

000012 

#4-132 

LA 

=  000074 

#4-118 

1AXCST 

~      ****** 

GX 

7-250 

lAXHOP 

=:     ****** 

GX 

7-253 

MAXRTM 

=  177777 

#4-120 

RA 

=  000076 

#4-119 

ROUKTB 

000000 

RG 

#5-147 

ROUSTB 

000000 

RG 

#5-147 

SEACST 

000266 

R 

#7-267 

SEAHOP 

000246 

R 

#7-264 

SELV2T 

000306 

R 

#7-270 

SENBEA 

000226 

R 

#7-261 

5ETAD0 

000106 

R 

#7-246 

SETCST 

000126 

R 

#7-249 

SETHOP 

000146 

R 

#7-252 

5ETNA 

000206 

R 

#7-258 

SETRTM 

000166 

R 

#7-255 

TEMP 

000000 

R 

#4-121 

SALPHA 

=  000022 

#5-147 

$ANY 

=  000020 

#5-147 

SBLANK 

=  000006 

#5-147 

SCFERR 

=  ****** 

GX 

6-237 

SDIGIT 

=  000024 

#5-147 

SDNUMB 

=  0000-4 

#5-147 

SEOS 

=  0000  2 

#5-147 

SERROR 

=   ****** 

GX 

*6-238 

$EXIT 

=  000000 

#5-147 

$FAIi 

=  177777 

#5-147 

SGPRM 

=  ****** 

5-147 

tGTNUM 

n  ****** 

GX 

7-247 

SLAMDA 

=  000000 

#5-147 

SNUMBR 

=  000002 

#5-147 

$RAD50 

=  000016 

#5-147 

SRONLV 

-   ****** 

5-147 

SSTRNG 

=  000004 

#5-147 

SSUBXP 

=  000010 

#5-147 

STALOC 

3   ****** 

GX 

6-224 

STMROU 

000002 

RG 

#6-221 

$$$FLG 

=  17777? 

#5-147 

$$$KEY 

=  177777 

#5-147 

.ERROR 

=      ****** 

GX 

♦6-229 

.FLAGS 

r  *♦■♦** 

GX 

•6-227 

7-268 
7-247 
7-265 
7-250 
7-253 
6-223 
7-271 
7-259 
7-262 
7-256 


7-256 

6-231 
6-232 


*6-239 


7-250 


5-147 


6-235 
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7-253 


5-147 


7-256 


7-259 


7-262 


7-265 


7-268 


7-271 
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STCIR  -  STORE  SERVICE  CIRCUIT 


05:^1 


Page  8 


TMP 


324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
535 

336  000250 

337  000256 
358  000260 

339  000262 

340  000266 
541  000272 
342  000276 

345  000500 

544  000504 

545  000310 

346  000312 
547  000314 
348  000516 
549  000520 
550 


.SBTTL  STCIR  -  STORE  SERVICE  CIRCUIT 

**♦  STCIR  -  STORE  SERVICE  CIRCUIT 

INPUT:       .PSTPT  =  ADDRESS  OF  STRING 
.PSTCN  =  STRING  LENGTH 
.TEMP   =  TEMPLATE  ADDRESS 


OUTPUT: 


S$CJR 


SERVICE  CIRCUIT  (RAD50) 


026727 

OOOOOOG  000050 

STCIR: 

CMP 

. PSTCN, *<S 

101571 

BH] 
SAVRG 

REJ 
R3 

012703 

000022 

MOV 

#S$C1R,R5 

066705 

OOOOOOG 

ADD 

.TEMP,R3 

016700 

OOOOOOG 

MOV 

. PSTPT, RO 

111446 

MOVB 

(R4),-(SP) 

112714 

000077 

MOVB 

#<•?>, (R4) 

004767 

OOOOOOG 

10S: 

CALL 

.CAT5E 

010123 

MOV 

R1,(R3)t 

103574 

BCC 

10$ 

112614 

MOVB 
RESRG 

(SP)+,(R4) 
R3 

:iR>*3  ;  LENGTH  OK  ? 
IF  HI,  NO  -  REJECT  TRANSITION 
ELSE  SAVE  REGISTER 
GET  OFFSET  OF  CIRCUIT  IN  TEMPLATE 
POINT  INTO  TEMPLATE 
POINT  TO  PARSED  STRING 
SAVE  NEXT  CHARACTER 
INSERT  STOP  CHARACTER 
CONVERT  TO  RAD50  (EXTENDED  WITH  "-") 
STORE  CONVERTED  VALUE 
IF  CC,  MORE 
RESTORE  TRAILING  CHARACTER 


000207 


RETURN 
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136 

137 

138 

139 

HO  000376 

141 

U2  000376 

U3  000376 

K4 

K5  000376 

U6  000376 

U7 

148  000376 

K9  000376 

150 

151  000576 

152  000376 
153 

154  000376 

155  000376 
156 

157  000376 

158  000376 
159 

160  000376 

161  000376 
162 

163  000376 

164  000376 
165 

166  000376 

167  000376 
168 

169  000376 

170  000376 
171 

172  000376 

173  000376 
174 

175  0003>6 

176  000376 
177 

178  000376 

179  000376 
180 

181  000376 

182  000376 

183  000376 
184 

185  000376 

186  000376 

187  000376 


C00376 


190  000376 

191  000376 

192  000576 


INITIALIZE  TABLE  GENERATION 
**** 

ISTATS  SLTSTB.SLTKTB 

STATES 
TRANS  $LAMDA,,SCLERR,ERRNAM,. ERROR 

STATES 
TRANS  SRAD50,,SETNAM 

STATES 
TRANS  <',>,,SCLERR,ERRDLC,. ERROR 

STATES 
TRANS  SRAD50 

STATES 
TRANS  <',>,,SCLERR,ERRLLC,. ERROR 

STATES 
TRANS  SRAD50 

STATES 
TRANS  <',>,,SCLERR,ERRFLG,. ERROR 

STATES 
TRANS  I  LPS 

STATES 
TRANS  I  BITS 

STATES 
TRANS  SLAMDA,,SCLERR,ERRCNT,. ERROR 

STATES 
TRANS  SNUM8R,,SETCNT 

STATES 
TRANS  <',>,,SCLERR,ERRUN1,. ERROR 

STATES 
TRANS  SNUM8R,,5ETUNT 

STATES 
TRANS  SEOS,EXIT 
TRANS  <',>,,SCLERR,ERRTYP,. ERROR 

STATES 

TRANS  "MASTER", CTT,SETMST 

TRANS  "SLAVE", CTT.SETSLV 

TRANS  SLAMDA 

STATES  CTT 
TRANS  SEOS.EXIT 
TRANS  <',>,,SCLERR,ERRCTT,. ERROR 


DDM 


DLC 


;  LLC 


;  FLAGS 


;  CONTROLLER  NUMBER 


;  UNIT  NUMBER 


;  OPTIONAL  TYPE 


OPTIONAL  COUNTER  TIMER 
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TMPSLT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:43 

MACRO  CROSS  REFERENCE 

MACRO  NAME 

DBGTPS 

ERRORS 

ISTATS 

MTRANl 

PRINT 

STATES 

TRANS 


SGTNMB 
SGTNUM 
SGTR50 


REFERENCES 

#5-140 

#5-183 

#5-187 

#5-188 

#5-215 

#5-228 

#5-235 

#5-236 

#4-64 

6-280 

#4-113 

5-140 

#5-140 

#4-59 

#4-113 

5-142 

#5-145 

#5-148 

#5-169 

#5-172 

#5-175 

#5-178 

#5-206 

#5-209 

#5-213 

#5-216 

#5-248 

#4-113 

#5-143 

#5-146 

#5-149 

#5-170 

#5-173 

#5-176 

#5-179 

#5-192 

#5-195 

#5-196 

#5-199 

#5-211 

#5-214 

#5-215 

#5-217 

#5-235 

#5-236 

#5-237 

#5-238 

#4-88 

9-334 

10-350 

#4-78 

11-364 

12-381 

12-38 

#4-100 

7-301 

I  6 
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#5-192 
#5-237 


#5-151 
#5-181 
#5-220 

#5-152 
#5-182 
#5-200 
#5-221 
#5-239 

12-385 


#5-196 
#5-238 


#5-154 
#5-185 
#5-223 

#5-155 
#5-183 
#5-203 
#5-224 
#5-240 


#5-200 
#5-239 


#5-157 
#5-190 
#5-226 

#5-158 
#5-186 
#5-204 
#5-227 
#5-241 


#5-204 
#5-240 


#5-160 
#5-194 
#5-230 

#5-161 
#5-187 
#5-207 
#5-228 
#5-246 


#5-208 
#5-241 


#5-163 
#5-198 
#5-233 

#5-164 
#5-188 
#5-208 
#5-231 


#5-211 


#5-166 
#5-202 
#5-245 

#5-167 
#5-191 
#5-210 
#5-234 


»*F1LE»»1D««TMPSTA 
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GX 


00O052R 
0001 12R 

****** 

000005 
000010 
000007 
000006 
000012 
=  000016 
OOOOOA 

=   ****** 

000004R 

000016 
000356 
000152 
000012 
000023 
Errors   detected: 


APRNUM 

BITS 

CS.STA= 

C.ADD 

C.APR 

C.CST 

C.FLG 

C.HTM 

C.LEN 

C.STA 

C.STS 

ERRSTA 

.    ABS. 

SSTATE 

SKTAB 

$<STR 


GX 


002   EX$SEV= 

002   FLAG 
HTIMR 
MXCSTL= 
SETADD 
SETAPR 
SETCST 
SETHTM 
SFLAG 
SFS 

SF.ENA= 
SF.MFL= 


000004 
000002R 
000066R 
*♦»**»  GX 

000126R 
000266R 
00021 6R 
000322R 
000020R 
000074R 
******  GX 
******  GX 


SF.SER= 
SF.SVC= 
002  SKIP 
STACST 
STAKTB 
STASTB 
ST$HTM= 
TEMP 
002  $ALPHA= 
002  $ANY  = 
$BLANK= 
$CFERR= 


******  GX 

******  GX 

000102R 

000036R 

OOOOOORG 

OOOOOORG 

******  GX 

OOOOOOR 

000022 

000020 

000006 

******  GX 


$D]GIT= 

$DNUMB= 

002  $EOS  = 

002  $ERROR= 

003  $EXIT  = 
002  SFAIL  = 

$LAMDA= 
$HXSTA= 
$NUMBR= 
$RAD50= 
SSTAN  = 


GX 


000021 
OOOOU 
000012 

****** 

000000 

M7777 

000000 

******  GX 

000002 

000016 

******  GX 


$STRNG=  000004 
$SUBXP=  000010 
$TALOC=  ******  GX 
STMSTA  000036RG 
$$$FLG=  \77777 
$$$KEY=  000004 
$$$STA=  000102R 
$$$TMP=  00001 7R 
.PNUMB=  ******  GX 
.PNUMH=  ******  GX 
.TPARS=  ******  GX 


002 
004 


000 
001 
002 
003 
004 
0 


(RU,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


♦*♦   Assembler   statistics 

Work      file     reads:  0 

Work      file   writes:  0 

Size  of  work    file:  10768  Words      (   43  Pages) 

Size  of  core  pool:  14440  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 

SY:TMPSTA^V2;Cl'32??^4]tMP5TA/CR/-SP=Sy:C1,1JfiSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]TMPSTA 


TMP5TA 


CREATED  BY     MACRO     ON  29-JUN-85   AT  05:43 
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TMPSVC  -  PARSE  SWITCHED  VIRTUAL  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


05:?4 


Page  8-1 


CS.SVC= 

DTE 

DTE1 

ERRDTE 

ERRFLG 

ERRNAM 

ERROUN 

ERRPSZ 

ERRRCL 

ERRTIM 

ERRWSZ 

EX$SEV= 

0PT1 

SETDTE 

SETFLG 

SETNM1 

SETNM2 


.  ABS. 

SSTATE 

SKTAB 

$KSTR 


******  GX 

0001 7^R 

0001 76R 

000252R 

0001 2^R 

OOOOOOR 

000307R 

000032R 

0001 53R 

0002UR 

000067R 

000004 

0001 54R 

000650R 

000570R 

000A5AR 

000A74R 


SETOWN 
002  SETPSZ 
002  SETRCL 
SETTIM 
SETUSZ 
SF$BLK= 
SF$INC= 
SVCKTB 
SVCSTB 
SVC1 
SVC2 
SV$DTE= 
002  SV$PSZ= 
SV$WSZ= 
SSADSZ 
SSCTL 
SSDTE 


000672R 

0005KR 

00061  OR 

000630R 

000542R 

000001 

000002 

OOOOOORG 

OOOOOORG 

0000A6R 

000066R 

«♦****  GX 

******  GX 

******  GX 

000007 

000002 

000020 


SSFLG 
S$LEN 
S$LENX= 
S$LFT 
SSLNK 
SSOWNR 
SSPKSZ 
003  SSRCL 
002  S$STA 
002  S$T1M 
002  S$TMR 
S$VDTE= 
S$VFLG= 
S$VLEN= 
S$VNAM= 
S$VOWN= 
S$VPSZ= 


000010 
000032 
******  GX 
000012 
000000 
000030 
OOOOOA 
000013 
000003 
OOOOU 
000016 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


S$VRCL= 

S$VTIM= 

S$VWSZ= 

SSUND 

$ALPHA= 

$ANY  = 

$BLANK= 

$BYTMN= 

$CFERR= 

$CLERR= 

$DIGn= 

$DNUM8= 

$E0S  = 

$ERROR= 

$EXIT  = 

$FA1L  = 

$GTNUM= 


****** 
****** 
****** 
000006 
000022 
000020 
000006 
****** 
****** 
****** 
000024 
OOOOU 
000012 

****** 

000000 

****** 


GX 
GX 
GX 


GX 
GX 
GX 


GX 


GX 


000052 
000706 
000206 
000002 
000004 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CDN) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 


**«  Assembler  statistics 

Work   file  reads:  0 

Work   f i le  writes:  0 

Size  of  work  file:  11032  Words  (  44  Pages) 

Size  of  core  pool:  14440  Words   f  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SYfTMPSvr.V2;[?32?°34]fMPSVC/CR/-SP=SV:[1  J]RSXMCI«I.SML/I»IL,[130J10]NETLIB/ML,[132J0]TMPSVC 


$GTR50= 

$LAMDA= 

$NUHBR= 

$RAD50= 

$STRNG= 

$SUBXP= 

$SVUPD= 

$rALOC= 

ITMSVC 

$$$FLG= 

$$$KEY= 

$$$STA= 

$$$TI«IP= 

.ERROR= 

.FLAGS= 

.TEMP  = 

.TPARS= 


GX 
GX 


******  GX 

000000 

000002 

000016 

000004 

000010 

****** 

****** 

000336RG 

177777 

000000 

000000 

OOOOOOR 

******  GX 

******  GX 

******  GX 

******  GX 


004 


TMPSVC 
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TMPUNT 
SETCSR 


CFE  PARSE  UNIT  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85 
SET  THE  SECONDARY  GSR  ADDRESS 


65:44 


Page  10 


255 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 

267  000172 

268  000172 

269  000176 

270  000204 

271  000212 

272  000216 

273  000220 

274  000226 

275  000230 

276  000234 


.SBTTL  SETCSR  -  SET  THE  SECONDARY  CSR  ADDRESS 

**♦  -  SETCSR  -  SET  THE  SECONDARY  CSR  ADDRESS 

INPUT: 

.PNUMB  =  SECONDARY  CSR  ADDRESS 

.PNUMH  =  SECONDARY  CSR  ADDRESS  (HIGH  ORDER) 

.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


THE  SECONDARY  CSR  ADDRESS  IS  STORED  IN  C.CSR  OF  THE  TEMPLATE. 


016700 
016760 
052760 
005767 
001004 
022767 
101402 
062716 
000207 


OOOOOOG 
OOOOOOG  000012 
OOOOOOG  OOOOOOG 
OOOOOOG 

160000  OOOOOOG 


SETCSR: 


000002 


10$: 
20$: 


MOV 

MOV 

BIS 

TST 

BNE 

CMP 

BEDS 

ADD 

RETURN 


.TEMP.RO 

.PNUMB,C.CSR(RO) 

#UN$SCS,C.STS(RO) 

.PNUMH 

10$ 

#1 60000,. PNUMB 

20$ 

#2,(SP) 


GET  START  OF  TEMPLATE 

;  STORE  THE  SECONDARY  CSR  ADDRESS  IN  THE  TEMPLATE 
;  REMEMBER  OPTION  SET 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 

IS  THE  SECONDARY  CSR  ADDRESS  IN  RANGE  ? 
IF  LOS,  YES 
ELSE,  REJECT  THE  TRANSITION 


TMPX2P  -  PARSE  X.25 
TPARS  STATE  TABLES 

159 

160 

161 

162 

163 

16A  000276 

165 

166 

167 

168  000276 

169  000276 

170  000276 

171  000276 

172  000276 

173  000276 
17A 

175  000276 

176  000276 

177  000276 

178  000276 

179  000276 

180  000276 
181 

182  000276 

183  000276 
18A  000276 

185  000276 

186  000276 

187  000276 
1  Rfi 

189  000276 

190  000276 

191  000276 

192  000276 

193  000276 

194  000276 
195 

196  000276 

197  000276 

198  000276 

199  000276 

200  000276 

201  000276 
202 

203  000276 

204  000276 

205  000276 

206  000276 

207  000276 

208  000276 
209 
210 
211 
212 

213  000276 

2M<  000276 

215  000276 


LEVEL  2  PRO  MACRO  V05.03b  Saturday  29-Jun-85 


I  10 

05:45 
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.SBTTL  TPARS  STATE  TABLES 
INITIALIZE  TABLES 

ISTATS  X2PSTB,  X2PKTB 
PROCESS  "X2P$DF" 

STATES 

TRANS  SLAMDA,,SCLERR,ERRL IN,. ERROR 
STATES  ;  LINE  ID 

TRANS   ILINID 
STATES 

TRANS  <',> 

STATES 

TRANS  SLAMDA,,SCLERR,ERRWSZ,. ERROR 
STATES  ;  MAXIMUM  WINDOW  BLOCK  SIZE 

TRANS  SNUM6R,,SETWSZ 
STATES 

TRANS  <•,> 

STATES 

TRANS  SLAMDA,,SCLERR,ERRBSZ,. ERROR 
STATES  ;  MAXIMUM  BLOCK  SIZE 

TRANS  SNUM8R,,SETBSZ 
STATES 

TRANS  <',> 

STATES 

TRANS  SLAMDA,,SCLERR,ERRRTC,. ERROR 
STATES  ;  MAXIMUM  RETRANSMIT  COUNT 

TRANS  SNUMBR,,SETRTC 
STmTES 

TRANS  <',> 

STATES 

TRAN«  SLAMDA,,SCLERR,ERRRTT,. ERROR 
STATES  ;  RETRANSMIT  TIMER 

TRANS  SNUMBR,,SETRTT 
STATES 

TRANS  <',> 

STATES 

TRANS  SLAMDA,,SCLERR,ERRHBT,. ERROR 
STATES  ;  HOLDBACK  TIMER 

TRANS  SNUM8R,,SETHBT 
STATES 

TRANS  SEOS.SEXIT 


SUBEXPRESSION  TO  PARSE  LINE  ID 

STATES  LINID 

TRANS  SSTRNG,,SETDEV 
STATES 


;DEVICE  NAME 


J  10 
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LOCAL   DATA 

126 

127 

128 

129 

130 

131 

132 

133  000000 

13A  0000A2 

135 

136 


I  11 
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.S8TTL   LOCAL  DATA 
SYNTAX  ERROR  DETAIL  STRINGS 


OOOOOA 
OO'. 
004 


103 
103 


106 
106 


ERRMXC: 
ERRCT; 


.NLIST 

EXSSEV 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 


BEX 

=  ^  .     .    .   , 

<EX$SEV>/CFE  —  Error  in  maximum  circuits/ 
<EX$SEV>/CfE  --  Error  in  counter  timer/ 

BEX 


11 
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190 

191 


000610 


192  000610 

193  000610 
19^;  000610 

195  000610 

196  000610 
197 

198  000610 

199  000610 

200  000610 

201  000610 

202  000610 

203  000610 
20A 

205  000610 

206  000610 

207  000610 

208  000610 

209  000610 

210  000610 
211 

212  000610 

213  000610 
21'i  000610 

215  000610 

216  000610 

217  000610 
218 

219  C00610 

220  000610 

221  000610 

222  000610 

223  000610 


TMPX3P  -  PARSE  X.25  LEVEL  3  CHA  MACRO  V05.03b  Saturday  29-Jun-85 
TPARS  STATE  TABLES 

167 

168 

169 

170 

171 

172  000610 

173 

174 

175 

176 

177  000610 

178  000610 

179  000610 

180  000610 

181  000610 

182  000610 
183 
18A  000610 

185  000610 

186  000610 

187  000610 

188  000610 

189  000610 


I  12 
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.SBTTL 

TPARS  STATE  TABLES 

;  INITIALIZE  TABLES 

ISTATS 

X3PSTB, 

)(3PKTB 

•  PROCESS  "X3PSDF" 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA, 
SNUMBR, 
<■  ,> 

,SCLERR,ERRDFP 
,SETDfP 

ERROR 
;  DEFAULT  BLOCK  SIZE 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA, 
SNUMBR , 
<'  ,> 

,SCLERR,ERRMXP 
,SETMXP 

ERROR 
;  MAXIMUM  BLOCK  SIZE 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA, 
SNUMBR , 
<'  ,> 

,SCLERR,ERRDW, 
,SETDW 

ERROR 

;  DEFAULT  WINDOU  SIZE 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA, 
SNUMBR, 

,SCLERR,ERRMW, 
,SETMW 

ERROR 

;  MAXIMUM  WINDOW  SIZE 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA, 
SNUMBR , 
<'  ,> 

,SCLERR,ERRCT, 
.SETCT 

.ERROR 

;  CALL  TIMER  VALUE 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SLAMDA, 
SNUMBR , 
<'  ,> 

,SCLERR,ERRKT, 
,SETKT 

ERROR 

;  CLEAR  TIMER  VALUE 

STATES 
TRANS 

STATES 
TRANS 

STATES 

SLAMDA, 
SNUMBR , 

,SCLERR,ERRRT, 
,SETRT 

.ERROR 

;  RESET  TIMER  VALUE 

J  12 
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170  ;  FINAL  STATE 

171  ; 

172  000002  STATES 
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IDDIlf     -    llDriSTC     HMPfFB     TFMPIiTF 


UPDCHN  -  UPDATE  OUTGOING  CHANNE  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


1  1* 
05;4 


CHNt)F  OOOOOOR 

CHNLN  =  000010 

CHlHl  =  *•*«**  GX 

C$HH1  =  .«♦•♦.  GX 


.  ABS.  000000 

000 

000150 

0U1 

Errors  detected: 

0 

C$HL0  =  «••«**  GX 

F.NRBD=  ******  GX 

SBUfI  =  •♦♦»♦*  GX 

$MVASC=  ******  GX 

(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


$08Uf  =  »♦*♦•* 
$OFDB  =  ****** 
$PTNUM=  ••••*• 
SPTOPT-  **»**« 


GX 
GX 
GX 
GX 


7     Page  6-1 

SUPCHN  OOOOIORG 
$WDATA=  ••♦♦*»  GX 
.BUFF  =  ♦*•♦»«  GX 


.COMMA=  »**»*«  GX 
.FLAGS=  ♦♦♦♦*♦  GX 
.TEMP  =  »*♦»«♦  GX 


*•*   Assembler  statistics 


W~rk   tile  reads:  0 

Work      f i le  wri tes :  0 

Size  of   work   file:  8783  Words      (   35  Pages) 

Size  of   core  pool:  U440  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 


SYtuPDCHN!v!;[°32?°3°]UPDCHN/CR/-SP=Sy:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[13?,10]UP[)CHN 


UPDCHN 
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SETURM  -  SET  UN18US  RUN  MASK 


I  15 

05i48 


265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 

278  0002AA 

279  00024A 

280  000250 

281  00025A 

282  000256 

283  000262 
28'!.  000266 
285  000272 
286 

287 
288 


.SBTTL  SETURM  -  SET  UNI8US  RUN  MASK 

«•*  -  SETURM  -  SET  UNIBUS  RUN  MASK 

INPUTS; 

TEMP  =  TEMPLATE  ADDRESS 

$08Uf  =  POINTER  INTO  OUTPUT  BUFFER 


OUTPUTS 


016702  177530 

016201  000014 

0OU06 

016700  OOOOOOG 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


000001 


SETURM: 


10$: 


THE  UNIBUS  RUN  MASK  IS  STORED  IN  THE  OUTPUT  BUFFER  IF  N0N-7ER0 


GET  THE  TEMPLATE  ADDRESS 

GET  THE  UNIBUS  RUN  MASK 

IF  EO,  NONE 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  ASCII  OCTAL 

UPDATE  POINTER  TO  OUTPUT  BUFFER 


MOV 

TEMP,R2 

MOV 

C.URM(R2),R1 

BEO 

10$ 

MOV 

$OBUF,RO 

CALL 

$CNVO 

MOV 

R0,$08UF 

RETURN 

.END 


J  15 
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UPDCUG  CREA1ED  BY     MACRO     ON  29-JUN-85  A1   05:48  PAGE   ? 

MACRO  CROSS  REFERENCE  CREf       OA.OO 


MACRO  NAME 

REFERENCES 

EPRINT 

#';-79 

ERRORS 

#A-68 

PRIM 

#4-63 

SPTNMB 

#4-112 

6-178 

$PTNUM 

#4-111 

6-176 

$PTR50 

#4-116 

6-175 

$$$PTN 

#4-5^ 

4-111 

4-112 


J  16 
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TMPRDT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:40 
SYMBOL  CROSS  REFERENCE 


5-134 


J  1 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CS.RDT 

=    ♦♦**«* 

GX 

7-196 

;rradr 

000031 

R 

#5-134 

:rrnam 

000000 

R 

#5-133 

;x$SEv 

=  000004 

#5-132 

5-133 

^DTKTB 

000000 

RG 

#6-143 

7-200 

RDTSTB 

000000 

RG 

#6-143 

7-201 

nOADR 

-    ****t* 

GX 

3-225 

RSDLEN 

=    *■**■*** 

GX 

7-191 

nONAM 

r    ****** 

GX 

8-223 

nLENX 

=:      ****** 

GX 

7-198 

SETADR 

000214 

R 

#8-225 

SETNAM 

000200 

R 

#8-223 

SALPHA 

=  000022 

#6-143 

$ANY 

=  000020 

#6-143 

SBLANK 

=  000006 

*^-l^l 

SBYTMN 

r     ****** 

GX 

*7-198 

SCFERR 

-     ****** 

GX 

7-206 

SDIGIT 

=  000024 

#6-143 

SDNUMB 

=  000014 

#6-143 

$E0S 

=  000012 

#6-143 

SERROR 

=  ♦***♦♦ 

GX 

•'-207 

•7-208 

SEXIT 

=  000000 

#6-143 

$FAIL 

=  1777-77 

#6-143 

SGPRM 

=  ****** 

6-143 

$GTR50 

=  ****** 

GX 

8-223 

8-225 

SLAMDA 

=  000000 

#6-143 

SNUMBR 

=  000002 

#6-143 

$RAD50 

=  000016 

#6-143 

SRONLY 

=  ****** 

6-143 

6-143 

SSTRNG 

=  000004 

#6-143 

SSUBXP 

=  000010 

#6-143 

STALOC 

=    ****** 

GX 

7-192 

STMRDT 

000066 

RG 

#7-189 

$$$FLG 

=   177777 

#6-143 

t$$KEY 

=   17777^ 

#6-143 

.ERROR 

=   ****** 

GX 

*7-197 

7-204 

.FLAGS 

=  ****** 

GX 

♦7-195 

.TEMP 

-   ****** 

GX 

*7-193 

.TPARS 

=   ****** 

GX 

7-202 

6-143 


TMPRDT 
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TMPREM  CREATED  BY     MACRO     ON  29-JUN-85  AT   05:40 

SYMBOL    CROSS   REFERENCE 


7-180 


SYMBOL 

VALUE 

REFERENCES 

CS.REM 

=  ****** 

GX 

6-148 

7-186 

C.AOD 

000010 

#4-84 

♦6-147 

C.LEN 

=  000012 

#4-85 

6-142 

C.NAM 

000004 

#4-83 

»8-215 

C.STS 

=  ****** 

GX 

*6-148 

7-186 

FINREM 

000114 

^ 

6-156 

#7-177 

LA 

=  000074 

#4-73 

RA 

=  000076 

#4-74 

REMKTB 

-rnoo 

RG 

#5-94 

6-150 

REMSTB 

.oOO 

RG 

#5-94 

6-151 

R.LENX 

=  ****** 

GX 

6-158 

SETADD 

000324 

R 

#10-268 

SETARE 

000262 

R 

#9-239 

5ETNAM 

000202 

R 

#8-210 

TEMP 

000000 

R 

#4-75 

*6-144 

SALPHA 

=  000022 

#5-94 

SANY 

=  000020 

#5-94 

SBLANK 

=  000006 

#5-94 

SBYTMN 

::   ****** 

GX 

*6-158 

$CAT5 

~      ****** 

GX 

8-213 

8-218 

SDICIT 

=  000024 

#5-94 

SDNUMB 

=  000014 

#5-94 

$EOS 

=  000012 

#5-94 

lERROR 

-   ****** 

GX 

*6-154 

SEXIT 

=  000000 

#5-94 

SFAIL 

=  177777 

#5-94 

SGPRM 

=  ****** 

5-94 

SLAMDA 

=  000000 

#5-94 

SLSNAD 

-    ****** 

GX 

7-180 

•7-192 

SLSTMP 

=  ****** 

GX 

7-178 

*7-191 

SNTADD 

=  ****** 

GX 

6-145 

SNUMBR 

=  00000? 

#5-94 

SQINSN 

-  ****** 

GX 

6-157 

$RAD50 

=   000016 

#5-94 

SRONLY 

r  ****** 

5-94 

5-94 

SSTRNG 

=  000004 

#5-94 

SSUBXP 

=  000010 

#5-94 

STMLST 

-  ****** 

(iX 

7-182 

STMREM 

000002 

RG 

#6-140 

STIALC 

=   ****** 

GX 

6-143 

$I$FLG 

=  177777 

#5-94 

$$$KEY 

=  ^7777^ 

#5-94 

. PNUMB 

-  ****** 

6X 

9-240 

10-26 

.PSTCN 

-  ****** 

GX 

8-221 

.PSTPT 

r  ****** 

GX 

8-211 

.TPARS 

=  **»♦♦* 

GX 

6-152 

J     2 

PAGE   1 

CREF        04.00 


7-1f 


7-1  f 


7-192 


^9-249 


•10-274 


Tl> 
S^ 
S^ 

.1 


•8-220 


6-155 


8-214 


8-219 


9-245 


10-273 


5-94 


TMPREM 
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TMPROu     CREATED  BY  MACRO  ON  29-JUM-85  AT  05:41     PAGE  2 

SYMBOL  CROSS  REFERENCE  CREF   04.00 

SYMBOL  VALUE  REFERENCES 

.TEMP   =  »».*.♦  GX    •6-225 
.TPARS  =  •*♦••*  GX     6-233 
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TMF 


352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 

364  000322 

365  000326 

366  000332 

367  000336 

368  000342 
369 

370 
371 
372 
373 
374 
375 
376 
377 

378  000344 

379  000350 

380  000356 

381  000364 
382 

383 
384 
385 
386 
387 
388 
389 
390 

391  000366 

392  000372 

393  000400 
394 


016700 
004767 
016700 
010160 
000207 


OOOOOOG 
OOOOOOG 
0000006 
000032 


.SBTTL  SERDV  -  STORE  SERVICE  DEVICE 
.SBTTL  DADDR  -  STORE  DUMP  ADDRESS 
.SBTTL  DC  I   -  STORE  DUMP  COUNT 


**  SERDV  -  STORE  SERVICE  DEVICE 


INPUT: 
OUTPUT: 


TPARS  CONVENTIONS 

THE  SERVICE  DEVICE  IS  STORE  IN  RADRO 
AT  SSDEV  IN  THE  CURRENT  TEMPLATE. 


SERDV: 


MOV 

CALL 

MOV 

MOV 

RETURN 


.PSTPT.RO 
$CAT5 
.TEMP.RO 
R1,S$DEV(R0) 


GET  STRING  ADDRESS 
CONVERT  TO  RAD50 

STORE  DEVICE  NAME 


016700 
016760 
016760 
000207 


OOOOOOG 

OOOOOOG  000050 
OOOOOOG  000052 


♦*  DADDR 

INPUT: 

OUTPUT: 


STORE  DUMP  ADDRESS 
TPARS  CONVENTIONS 


DADDR: 


MOV 
MOV 
MOV 
RETURN 


THE  32  BIT  DUMP  ADDRESS  IS  STORED 
AT  SSDPA  IN  THE  CURRENT  TEMPLATE. 


.TEMP.R^' 

.PNUMB, .iDPA(RO) 
.PNUMH,S$DPA+2(R0) 


STORE  DUMP  ADDRESS 


016700 
016760 
000207 


OOOOOOG 
OOOOOOG  000054 


**  DCT  - 

INPUT: 

OUTPUT; 


STORE  DUMP  COUNT 

TPARS  CONVENTIONS 


DCT: 


MOV 
MOV 
RETURN 


THE  DUMP  COUNT  IS  STORED  AT  SSDPC 
IN  THE  CURRENT  TEMPLATE. 


.TEMP.RO 

. PNUMB, S$DPC(RO) 


STORE  DUMP  COUNT 


K  A 
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195 

19^  000376 

195  000376 

196  000376 
197 

198  000376 

199  000376 

200  000376 
201 

202  000376 

203  000376 
20A  000376 
205 

206  000376 

207  000376 

208  000376 

209  000376 

210  000376 

211  000376 
212 

213  000376 

214  000376 

215  000376 

216  000376 

217  000376 
218 

219 

220  000376 

221  000376 
222 

223  000376 
22A  000376 
225 

226  000376 

227  000376 

228  000376 
229 

230  000376 

231  000376 
232 

233  000376 

234  000376 

235  000376 

236  000376 
257  000376 

238  000576 

239  000376 

240  000376 

241  000576 
242 

245 
244 

245  000576 

246  000376 
247 

2'.8  000576 


STATES 
TRANS 
TRANS 

$NU«BR,HTM,SETCTT 
SLAMDA 

STATES 
TRANS 
TRANS 

HTM 

SEOS,EXIT 

<',>,,SCLERR,ERRHTM,. ERROR 

STATES 
TRANS 
TRANS 

$NUMeR,NBRA,SETHTM 

STATlA 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

NBRA 
SEOS.EXIT 

$NUM8R,RPRI,SETBRA 
<'  ,> 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

RPR  I 
SEOS.EXIT 

SNUMBR.EXIT.SETRPR 

STATES 
TRANS 

LFS 
"LF" 

STATES 
TRANS 

'.,$EXIT 

STATES 
TRANS 
TRANS 

SKIP 

V.NEXT 

<',>,SEXIT 

STATES 
TRANS 

NEXT 
ILFS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

BITS 

"TIM", SKIP, ,LF. TIM, FLAG 
'WFL", SKIP, ,LF.MFL, FLAG 
"MDC", SKIP, ,LF.MDC, FLAG 
"MTP", SKIP, ,LF.MTP, FLAG 
"ENA", SKIP, ,LF.ENA, FLAG 
"X2P", SKIP, ,LF.X2P, FLAG 
"BRO", SKIP, ,LF.BRO, FLAG 
"SER", SKIP, ,LF.SER, FLAG 

;  EXIT  STATE 

STATES 
TRANS 

EXIT 
SLAMDA,SEXIT,SETFLG 

OPTIONAL  HELLO  TIMER 


OPTIONAL  MAX  ROUTERS 


OPTIONAL  ROUTING  PRIORITY 


STATES 
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TTTTTTTTTT 

MM 

MM 
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SSSSSSSS 

TTTTTTTTTT 

AAAAAA 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

ssssssss 

TTTTTTTTTT 

AAAAAA 

MMMM 

MMMM 

PP      PP 

ss 

TT 

AA      AA 

MMW 

MMMM 

PP      PP 

ss 

•T 

AA      AA 

MM 

MM  MM 

PP      PP 

ss 

"T 

AA      AA 

MM 

MM  MM 

PP      PP 

ss 

TT 

AA      AA 

MM 

MM 

PPPPPPPP 

ssssss 

TT 

AA      AA 

MM 

MM 

PPPPPPPP 

ssssss 

TT 

AA      AA 

MM 

MM 

PP 

ss 

TT 

AAAAAAAAAA 

MM 

PP 

ss 

TT 

AAAAAAAAAA 

MM 

MM 

PP 

ss 

TT 

AA      AA 

MM 

MM 

PP 

ss 

TT 

AA      AA 

MM 

MM 

PP 

ssssssss 

TT 

AA      AA 

MM 

MM 

PP 

ssssssss 

TT 

AA      AA 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

s^ 

SI 

c; 
c. 
c, 
c, 
c 
c 
c 
c 
c 

El 

e; 

Fl 

m: 

SI 
SI 
SI 
SI 

s 
s 
s 

Tl 
$ 
$, 
$1 
$ 
t 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
S 

s 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
i 
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TMPSTA  CREATED  BY     MACRO     ON  29-JUN-85   AT  05:43 

SYMBOL  CROSS  REFERENCE 
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PAGE   1 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

CS.STA 

=   ****** 

GX 

6-203 

C.ADD 

000005 

#4-112 

*7-240 

C.APR 

000010 

#4-115 

»6-205 

*9-293 

C.CST 

000007 

#4-114 

«6-204 

*8-266 

C.FLG 

000006 

#4-113 

*8-267^ 

»8-268 

C.HTM 

000012 

#4-117 

*10-319 

C.LEN 

=  000016 

#4-119 

6-200 

C.STA 

000004 

#4-111 

*7-238 

C.STS 

~  ****** 

GX 

»6-203 

*10-318 

ERRSTA 

000004 

R 

#4-101 

7-236 

EXSSEV 

=  000004 

#4-100 

4-101 

FLAG 

000002 

R 

#4-97 

*6-199 

8-268 

MXCSTL 

=  ****** 

GX 

8-271 

SETADD 

000126 

R 

#7-232 

SETAPR 

000266 

R 

#9-291 

SETCST 

000216 

R 

#8-264 

SETHTM 

000322 

R 

#10-316 

STAKTB 

000000 

RG 

#5-126 

6-207 

STASTB 

000000 

RG 

#5-126 

6-208 

STSHTM 

=  ****** 

GX 

10-318 

TEMP 

000000 

R 

#4-96 

*6-202 

7-233 

8-265 

SALPHA 

=  000022 

#5-126 

$ANY 

=  000020 

#5-126 

SBLANK 

=  000006 

#5-126 

SCFERR 

=   ****** 

GX 

7-236 

tDIGIT 

=  000024 

#5-126 

SDNUMB 

=  000014 

#5-126 

$EOS 

=  000012 

#5-126 

SERROR 

=  ****** 

GX 

»6-211 

$EXIT 

=  000000 

#5-126 

SFAIL 

=   W7777 

#5-126 

$GPRM 

=  ****** 

5-126 

SLAMDA 

=  000000 

#5-126 

SMXSTA 

=  ****** 

GX 

7-234 

SNUMBR 

=  000002 

#5-126 

$RAD50 

=  000016 

#5-126 

SRONLY 

-  ****** 

5-126 

5-126 

5-126 

$STAN 

=  ****** 

GX 

7-234 

7-238 

♦7-239 

SSTRNG 

=  000004 

#5-126 

SSUBXP 

=  000010 

#5-126 

STALOC 

=    ****** 

GX 

6-201 

STMSTA 

000036 

RG 

#6-197 

$$$FLG 

=  177777 

#5-126 

$$$KEY 

=   177777 

#5-126 

.PNUMB 

-      ****** 

GX 

7-240 

7-24  3 

8-266 

8-271 

. PNUMH 

-   *♦♦♦** 

GX 

7-241 

8-269 

9-294 

10-320 

.TPARS 

r  ****** 

GX 

6-209 

9-292 


10-317 


9-293 


9-296 


10-319 


TMPSTA 
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TMPSVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:4^ 
SYMBOL  CROSS  REFERENCE 


J  8 

PAGE  1 

CREf   0^.00 


SYMBOL 

VALUE 

REFERENCES 

CS.SVC 

=   ****** 

GX 

7-254 

ERRDTE 

000252 

R 

#5-141 

ERRFLG 

000124 

R 

A5-138 

ERRNAM 

000000 

R 

#5-135 

ERROWN 

000307 

R 

#5-142 

ERRPSZ 

000032 

R 

#5-136 

ERRRCL 

000153 

R 

#5-139 

ERRTIM 

0002U 

R 

#5-140 

ERRWS7 

000067 

R 

#5-137 

EXSSEV 

=  000004 

#5-134 

5-135 

SETDTE 

000650 

R 

#8-309 

SETFLG 

000570 

R 

#8-303 

SETNMl 

000454 

R 

#8-295 

SETNM2 

000474 

R 

#8-297 

SETOUN 

000672 

R 

#8-311 

SETPSZ 

000514 

R 

#8-299 

SETRCL 

000610 

R 

#8-305 

SETTIM 

000630 

R 

#8-307 

SETWSZ 

000542 

R 

#8-301 

SVCKTB 

000000 

RG 

#6-152 

7-258 

SVCSTB 

000000 

RG 

#6-152 

7-259 

SV$DTE 

=  ****** 

GX 

8-309 

SVSPSZ 

=  ****** 

GX 

8-299 

SVSWSZ 

-  ****** 

GX 

8-301 

SSLENX 

=  ****** 

GX 

7-255 

SSVDTE 

=  ****** 

GX 

8-309 

SSVFLG 

3  ****** 

GX 

8-303 

SSVLEN 

=  ****** 

GX 

7-249 

SSVNAM 

=  ****** 

GX 

8-295 

8-297 

SSVOWN 

=  ****** 

GX 

8-311 

SSVPSZ 

=  ****** 

GX 

8-299 

SSVRCL 

=  ****** 

GX 

8-305 

SSVTIM 

=  ****** 

GX 

8-307 

SSVWSZ 

=  ****** 

GX 

8-301 

SALPHA 

=  000022 

#6-152 

$ANY 

=  000020 

#6-152 

SBLANK 

=  000006 

#6-152 

SBYTMN 

-  ****** 

GX 

•7-255 

SCFERR 

=  ****** 

GX 

7-264 

SDIGIT 

=  000024 

#6-152 

iDNUMB 

=  000014 

#6-152 

$EOS 

=  000012 

#6-152 

SERROR 

r  ****** 

GX 

♦7-265 

♦7-266 

$£XIT 

=  000000 

#6-152 

$FAIL 

=  177777 

#6-152 

SGPRM 

=   ****** 

6-152 

SGTNUM 

=      ****** 

GX 

8-295 

8-297 

$GTR50 

:=  ****** 

GX 

8-309 

8-311 

SLAMDA 

=  000000 

#6-152 

SNUMBR 

=  000002 

#6-152 

$RAD50 

=  000016 

#6-152 

SRONLY 

-   ****** 

6-152 

6-152 

5-136     5-137 


5-138 


5-139 


5-140 


5-141 


5-142 


8-299     8-301 


6-152 


8-303 


8-305 


8-307 
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TMPUNT  - 

CFE  P; 

SETCST  - 

SET  Tl- 

?78 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

000236 

293 

000236 

29A 

0002A2 

295 

000250 

296 

000256 

297 

000262 

298 

00026A 

299 

000272 

300 

000274 

301 

000300 

J  9 
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.SBTTL   SETCST  -  SET  THE  LINE  COST 

*»*  -  SETCST  -  SET  THE  LINE  COST 

INPUT: 

.PNUMB  =  LINE  COST 

.PNUMH  =  LINE  COST  (HIGH  ORDER) 

.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


THE  LINE  COST  IS  STORED  IN  C.CST  OF  THE  TEMPLATE. 


016700 
016760 
052760 
005767 
001004 
026727 
101402 
062716 
000207 


OOOOOOG 
OOOOOOG  000014 
OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 


SETCST: 


000002 


10$: 
20$: 


MOV  .TEMP,RO 

MOV  . PNUMB, C.CST(RO) 

BIS  #UN$CST,C.STS(RO) 

TST  .PNUMH 

BNE  10$ 

CMP  . PNUMB, #MXCSTL 

BLOS  20$ 

ADD  #2,(SP) 

RETURN 


GET  START  OF  TEMPLATE 
;  STORE  THE  LINE  COST  IN  THE  TEMPLATE 
;  REMEMBER  OPTION 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 
IS  THE  LINE  COST  IN  RANGE  ? 
IF  LOS,  VES 
ELSE,  REJECT  THE  TRANSITION 
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TMPX2P  -  PARSE  X.25  LEVEL  2   PRO  MACRO  V05.03b  Saturday  29-Jun-85  05:45  Page  6-1 
TPARS  STATE  TABLES 


^5^^- 


216  000276 

217  000276 

218  000276 

219  000276 

220  000276 

221  000276 

222  000276 

223  000276 
22^. 

225 

226 

227  000276 

228 


TRANS 
STATES 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 

FINAL  STATE 
STATES 


SDNUMB, 


.SETCON 


<'->,LlNO 

SLAMDA,SEXIT 

LINO 

SDNUMB, SEXIT,SETUNI 


;CONTROLLER  NUMBER 


;OPTIONAL  UNIT  NUMBER 
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TMPX29  - 
TPARS  ST 

138 
139 
KO 
U1 
U2 
U3 

U6 
147 
K8 
K9 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 


PARSE  X.29  CHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85 
ATE  TABLES 


t^J, 


6  Page  6 


000102 


000102 
000102 
000102 
000102 
000102 
000102 

000102 
000102 

000102 
000102 


000102 


.SBTTL  TPARS  STATE  TABLES 
INITIALIZE  TABLES 

ISTATS  X29STB,  X29KTB 
PROCESS  "X29$Dr" 


STATES 

TRANS  SLAMDA,,SCLERR,ERRMXC,. ERROR 
STATES  ;  MAXIMUM  CIRCUITS 

TRANS  $NUM8R,,SETMXC 
STATES 

TRANS  <',>,,SCLERR,ERRCT,. ERROR 


STATES 
TRANS  SNUMBR,,SETCT 

STATES 
TRANS  $E0S,SEXIT 


COUNTER  TIMER 


FINAL  STATE 
STATES 
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TCMDt  ftTF 


TMPX3P  -  PARSE  X.25  LEVEL 
TPARS  STATE  TABLES 

22A  000610 
225 

226  000610 

227  000610 

228  000610 

229  000610 

230  000610 

231  000610 
232 

233  000610 
23A  000610 

235  000610 

236  000610 

237  000610 

238  000610 
239 
2A0  000610 

241  000610 

242  000610 

243  000610 

244  000610 

245  000610 
246 

247  000610 

248  000610 

249  000610 

250  000610 
251 

252  000610 

253  000610 
254 
255 
256 
257 

258  000610 
259 


i   12 

05:46 
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TRANS  <',> 


STATES 

TRANS  SLAMDA,,SCLERR,ERRST,. ERROR 
STATES  ;  RESTART  TIMER  VALUE 

TRANS  SNUM8R,,SETST 
STATES 

TRANS  <',> 

STATES 

TRANS  SLAMDA , , SCLERR , ERRKM, . ERROR 
STATES  ;  MAXIMUM  CLEAR  VALUE 

TRANS  SNUMQR,,SETKM 
STATES 

TRANS  <',> 

STATES 

TRANS  SLAMDA,, SCLERR, ERRRM,. ERROR 
STATES  ;  MAXIMUM  RESETS  VALUE 

TRANS  SNUMBR,,SETRM 
STATES 

TRANS  <•,> 

STATES 

TRANS  SLAMDA,, SCLERR, ERRSM,. ERROR 
STATES  ;  MAXIMUM  RESTARTS  VALUE 

TRANS  SNUM8R,,SETSM 

STATES 
TRANS  SEOS,SEXIT 


FINAL  STATE 
STATES 
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I   13 


Page  6 


174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 

188  000002 

189  000002 

190  000006 

191  000010 

192  000012 

193  OOOOU 
19A  000022 
195 

196 
197 

198  000024 

1 99  000026 

200  000032 

201  000040 

202  000042 

203  000050 

204  000052 

205  000060 

206  000064 

207  000066 

208  000070 

209  000074 

210  000100 

211  000104 

212  000106 

213  000112 

214  000114 
215 

216 
217 
218  000116 


.SBTTL  SUPBUF  -  UPDATE  BUFFER  TEMPLATE 

'«**  -  SUPBUF  -  UPDATE  BUFFER  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-BIT    :   SUCCESS/FAILURE 


012700 
010001 
011000 
001441 
122760 
001371 


011011 
010067 
032760 
001004 
012767 
000421 
062767 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPBUF : 
10S: 


OOOOOOG  OOOOOOG 


177746 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOC 

000004  177720 
OOOOOOG 


MOV  #$TMLST,RO     ;  POINT  AT  TEMPLATE  LIST 

MOV  RO.RI          ;  SAVE  CURRENT  TEMPLATE 

MOV  (r6),R0        ;  GET  NEXT  TEMPLATE 

BEQ  101S          ;  IF  EQ,  END  OF  LIST 

CMP8  «rS.8UF,C.STS(R05  ;  IS  THIS  THE  BUFFER  TEMPLATE 

BNE  lUS           ;  IF  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


15$: 


000000" 
000000' 
OOOOOOG 

OOOOOOG 


20$: 
30$: 


MOV 

MOV 

BIT 

BNE 

MOV 

BR 

ADD 

CALL 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


(R0),(R1) 

RO.NEXT 

*CS.MOD,C.STS( 

15$ 

#SBUFI,SOFDB+F 

30$ 

#C.CBNM,NEXT 

$MOVST 

R5,-(SP) 

Rl 

#BUFKTB,R2 

#BUFSTB,R5 

.TPARS 

20$ 

$ERROR 

(SP)+,R5 


;  REMOVE  FROM  LIST 
;  SAVE  TEMPLATE  ADDRESS 
ROS  ;  WAS  THIS  TEMPLATE  MODIFIED  ? 

;  IF  NE,  YES  ..  UPDATE  THE  RECORD 
.NRBD+2  ;  OUTPUT  THE  INPUT  BUFFER 

AND  LEAVE 

POINT  AT  FIRST  LOCATION  IN  TEMPLATE 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


000167     OOOOOOG 


ERROR   CONDITIONS 
101$:        JMP  .CONER 


CONSISTENCY   ERROR 
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JC     mcvt 


J  1A 

UPDCHN  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:47  PAGE   1 

SYMBOL   CROSS  REFERENCE  CREF        OA.OO 


6-151 


SYMBOL 

VALUE 

REFERENCES 

CHNDF 

000000 

R 

#5-126 

5-127 

CHNLN 

- 

000010 

#5-127 

6-152 

CH$HI 

r 

*t**** 

GX 

6-156 

CSHHI 

= 

*  t**  ** 

GX 

6-156 

CtHLO 

=: 

t***** 

GX 

6-155 

F.NRBD 

= 

**** t * 

GX 

♦6-1A5 

•6-159 

$BUFI 

= 

****** 

GX 

6-161 

SMVASC 

r 

****** 

GX 

6-153 

SOBUF 

- 

****** 

GX 

«6-15'i 

6-157 

tOFDB 

- 

****** 

GX 

•6-1A5 

»6-159 

$PTNUM 

~ 

****** 

GX 

6-55 

6-156 

SPTOPT 

r 

****** 

GX 

6-56 

SUPCHN 

000010 

RG 

#6-UA 

SWDAIA 

~ 

****** 

GX 

6-160 

.BUFF 

= 

****** 

GX 

6-H5 

6-150 

.COMMA 

= 

****** 

GX 

«6-lA9 

.FLAGS 

r 

****** 

GX 

•  6-U8 

.TEMP 

= 

****** 

GX 

.6-K6 

•6-161 


•6-161 


6-158 


K  14 
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OOOOOORG 
OOOOOORG 
♦»♦*•»  GX 
••♦«♦•  GX 

000004 

000010 

=  000016 

000012 

OOOOU 

000016 
000274 
000074 
000000 
000000 


CNTKTB 

CNTSTB 

CS.CNT= 

CS.MOD= 

C.CNT 

C.CSR 

C.LEN  = 

C.PRl 

C.STS 

C.URM 

.  ABS. 

SSTATE 

SKTAB 

$KSTR 

Errors  detected: 


003  C 
002  F 


VEC 

NRBO= 
RCDEV 
SETCNT 
SETCSR 
SETPRI 
SETURM 
SETVEC 
TEMP 
SALPHA- 


000006 

»♦»**•  GX 

000052R 

0001UR 

000170R 

000216R 

000244R 

000142R 

OOOOOOR 

000022 


$ANY  = 
$BLANK= 
002  $8UFI  = 
$CLNUP= 
$CNVO  = 
$DIGIT= 
$DNUMB= 
$EOS  = 
$ERROR= 

$Exn  = 


000020 

SFAIL  = 

]77777 

$SUBXP= 

000010 

000006 

$LAMDA= 

000000 

$TMLSr= 

******  GX 

****** 

GX 

$MOVPT= 

****** 

GX 

SUPCNT 

000002RG 

****** 

GX 

$MOVST= 

****** 

GX 

$$$FLG= 

****** 

GX 

$NUMBR= 

000002 

$$$KEY= 

77777 

000024 

SOBUF  = 

****** 

GX 

$$$STA= 

000000 

000014 

SOFDB  = 

****** 

GX 

.CONER= 

******  GX 

000012 

$RAD50= 

000016 

.PNUMB= 

******  GX 

****** 

GX 

$SrRNO= 

000004 

.TPARS= 

*♦**♦»  GX 

000000 

000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


♦*•  Assembler  statistics 


0 

0 

10406  Words  (  41  Pages) 

14440  Words  (  55  Pages) 

RSX-11M/PLUS 


Work  tile  reads; 
Work  f i le  writes; 
Size  of  work  file; 
Size  of  core  pool ; 
Operating  system: 

S¥ -UPDCNT Ivlici 32, 134]UPDCNT/CR/-SP=SY:[1,1]RSXMCM.SHL/ML,[1 50, 110JNETL IB/ML, [1 32, 103UPDCNT 


UPDCNT 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:48     PAGE  1 


K  15 


•«FKE..!D««UPDDDM 


J  16 


uu    uu 

pppppppp 

DDDDODDD 

DDDDDDDD 

ODDDDDDD 

MM     MM 

uu    uu 

pppppppp 

DDDDDDDD 

DDDDDDDD 

DDDDDDDD 

MM     MM 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

DD 

DD 

MMMM  MMMM 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

DD 

DD 

MMMM  MMMM 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

DD 

DD 

MM  MM  MM 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

DD 

DD 

MM  MM  MM 

uu    uu 

pppppppp 

DD 

DD 

DD 

DD 

DD 

DD 

MM     MM 

uu    uu 

pppppppp 

DD 

DD 

DD 

DD 

DD 

DD 

MM     MM 

uu    uu 

pp 

DD 

DD 

DD 

DD 

DD 

DD 

MM     MM 

uu    uu 

pp 

DD 

DD 

DD 

DD 

DD 

DD 

MM     MM 

uu    uu 

pp 

DD 

DD 

DD 

DD 

DD 

DD 

MM     MM 

uu    uu 

pp 

DD 

DD 

DD 

DD 

DD 

DD 

MM     MM 

UUUJUUUUUU 

pp 

DDDDDDDD 

DDDDDDDD 

DDDDDDDD 

MM     MM 

UUUUUUUUUU 

pp 

ODDDDDDD 

DDDDDDDD 

DDDDDDDD 

MM     MM 

ssssssss 

ssssssss 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLUUL 

ssssssss 

TTTTT 
TTTTT 


'TTTT 
'TTTT 


K  16 

UPDDDM  -   CFE  UPDATE   DEVICE   PROC  MACRO  V05.05b   Saturday   29-Jun-85  05:';8 


K     1 

TMPRDT     CREATED  BV  MACRO  ON  29-JUN-85  AT  05:40     PAGE  2 

MACRO  CROSS  REFERENCE  CREf   04.00 


MACRO  NAME 

REFERENCES 

CALLR 

DBGTPS 

EPRlNT 

ERRORS 

ISTATS 

MTRANS 

#4-124 

#6-143 

#4-78 

#4-67 

#4-124 

#6-143 

#6-167 

7-206 
6-143 

PRINT 

STATES 

TRANS 

SGTNMB 

SGTNUM 

SGTR50 

#4-62 

#4-124 

#4-124 

#4-100 

#4-90 

#4-112 

6-147 
#6-148 

8-223 

#6-149 
#6-150 

8-225 

#6-151 
#6-152 

#6-154 
#6-155 

#6-156 
#6-157 

#6-158 
#6-159 

#6-163 
#6-164 

#6-165 
#6-166 

#6-171 
#6-167 

L  1 

•♦f !LE«*ID*«TMPREM 


TMPREM     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:40 
MACRO  CROSS  REFERENCE 


K  2 

PAGE  2 

CREF   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 
ISlATt 
MTRANS 

#5-94 
#4-66 
#5-94 

#5-111 
5-94 

PRINT 

STATES 

TRANS 

#4-57 
#4-66 
#4-66 

5-97 
#5-98 

#5-100 
»5-101 

#5-103 
#5-104 

#5-106 
#5-107 

#5-109 
#5-110 

#5-114 
#5-111 

#5-117 
#5-115 

#5-122 
#5-118 

#5-125 
#5-123 

L  2 


♦•F1LE*»ID*»TMPR0U 


K  3 

TMPROU     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:A1     PAGE  3 

MACRO  CROSS  REf^ERENCE  CREF   04.00 


MACRO  NAME 

REFERENC 

■s 

CALLR 

#A-112 

DBGTPS 

#5-lA7 

#5-167 

#5-174 

#5-204 

ERRORS 

#4-63 

6-237 

ISTATt 

#4-112 

5-147 

MTRANS 

#5-147 

PRINT 
STATES 

#4-58 

#4-112 

5-150 

#5-153 

#5-156 

#5-159 

#5-162 

#5-165 

#5-169 

#5-172 

#5-175 

#5-178 

#5-180 

#5-183 

#5-185 

#5-188 

#5-190 

#5-193 

#5-195 

#5-202 

#5-206 

TR  \N$ 

#4-112 

#5-151 

#5-154 

#5-157 

#5-160 

#5-163 

#5-166 

#5-167 

#5-170 

#5-173 

#5-174 

#5-176 

#5-179 

#5-181 

#5-184 

#5-186 

#5-189 

#5-191 

»5-194 

#5-196 

#5-203 

#5-204 

SGTNMB 
IGTNUM 

#4-87 
#4-77 

7-247 

7-250 

7-253 

7-256 

7-259 

7-262 

7-265 

7-268 

7-271 

$GTR50 

#4-99 

L     3 


•♦F1LE»MD«»TMPSER 


K  4 

TMPSER  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05:41 

PAS   -  SERVICE  BLOCK  PASSWORD 


Page  10 


TMf 
$Tf 


596 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414  000402 

012700 

000012 

415  000406 

012746 

000014 

416  000412 

000404 

417 

418  000414 

012700 

000034 

419  000420 

012746 

000020 

420 

421  000424 

016702 

OOOOOOG 

422  000430 

020226 

423  000432 

101044 

424 

425 

426 

427  000434 

016701 

OOOOOOG 

428  000440 

121127 

000101 

429  000444 

103404 

430  000446 

121127 

000152 

431  000452 

103407 

432  000454 

000433 

433 

434  000456 

121127 

000060 

435  000462 

103430 

436  000464 

121127 

000071 

437  000470 

101025 

438 

439  000472 

005201 

440  000474 

077217 

441 

442 

443 

444  000476 

445  00050U 

010003 

446  000502 

066705 

OOOOOOG 

447  000506 

016700 

OOOOOOG 

448  000512 

111446 

449  000514 

112714 

000077 

450  000520 

004767 

OOOOOOG 

451  000524 

103002 

452  000526 

010101 

.SBTTL  PAS   -  SERVICE  BLOCK  PASSWORD 
.SBTTL  STHAD  -  STORE  HARDWARE  ADDRESS 


•**  PAS   -  SERVICE  BLOCK  PASSWORD 
*»*  STHAD  -  STORE  HARDWARE  ADDRESS 


INPUTS 


.PSTPT  -  ADDRESS  OF  PARSED  STRING 
.PSTCN  -  SIZE  OF  STRING 
.TEMP  -  ADDRESS  OF  TEMPLATE 


OUTPUTS  - 

S'jPSS 
SSHAD 


CONTAINS  SERVICE  BLOCK  PASSWORD  IN  RA050 
CONTAINS  HARDWARE  ADDRESS  IN  RAD50 


.ENA8L  LS6 


STHAD: 


PAS: 


5$: 


MOV 
MOV 
BR 

MOV 
MOV 

MOV 
CMP 
BHI 


#S$HAD,RO 

#12.,-(SP) 

5$ 

*S$PSS,RO 
#16.,-(SP) 

. PSTCN, R2 

R2,(SP)+ 

40$ 


CHECK  FOR  INVALID  CHARACTERS 
10$: 


15$: 


20$: 


MOV 

CMPB 

BLO 

CMPB 

BLO 

BR 

CMPB 
BLO 
CMPB 
BHI 

INC 
SOB 


. PSTPT, Rl 

(R1),#'A 

15$ 

(R1),#'Z 

20$ 

40$ 

(R1),#'0 
40$ 

(Rl),*'9 
40$ 

Rl 
R2,10$ 


CONVERT  TO  RAD50 


50$: 


SAVRG 

R5 

MOV 

R0,R3 

ADD 

.TEMP,R3 

MOV 

. PSTPT, RO 

MOVB 

(R4),-(SP) 

MOVB 

#<'?>, (R4) 

CALL 

.CAT5E 

BCC 

55$ 

MOV 

Rl.RI 

POINT  TO  HARDWARE  ADDRESS  SAVE  AREA 
PUSH  MAXIMUM  STRING  LENGTH 
JOIN  COMMON  CODE 

POINT  TO  PASSWORD  SAVE  AREA 
PUSH  MAXIMUM  STRING  LENGTH 

GET  STRING  COUNT 

STRING  TOO  LONG  ? 

IF  HI,  VES  -  REJECT  TRANSITION 


POINT  TO  STRING 
IS  IT  ALPHABETIC  ? 
IF  LO,  NO  -  TRY  NUMERIC 
IS  IT  REALLY  ALPHABETIC 
IF  LO,  YES  -  VALID  CHAR 
ELSE  REJECT  TRANSITION 

IS  IT  NUMERIC  ? 
IF  LO,  REJECT 
NUMERIC  ? 
IF  HI,  REJECT 

NEXT  CHAR 


SAVE  REGISTER 

PICK  UP  OFFSET  FOR  TARGET 

POINT  INTO  TEMPLATE 

POINT  TO  PARSED  STRING 

SAVE  NEXT  CHARACTER 

INSERT  STOP  CHARACTER 

CONVERT  TO  RAD50  (EXTENDED  WHH  "-") 

IF  CC,  OK 

ELSE  ANYTHING  GOOD  ?  (PRESERVE  CARRY) 


TMPSER  -  CfE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85 


05:41 


Page  10-1 


TM 


K  5 

TMPSLT  -  CFE  PARSE  LINE  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:42 
STMSLT  -  SETUP  SLT  TEMPLATE 


Page  6 


250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 

263  000376 

264  000376 

265  000400 

266  000404 

267  000410 

268  000414 

269  000420 

270  000424 

271  000426 

272  000432 

273  000436 

274  000440 

275  000444 

276  000450 

277  000454 

278  000456 

279  000462 

280  000464 

281  000470 

282  000476 

283  000502 

284  000504 


010546 
005067 
005067 
012701 
004767 
010067 
005720 
010067 
012710 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SBTTL  STMSLT  -  SETUP  SLT  TEMPLATE 
'*«*  -  STMSLT  -  SETUP  SLT  TEMPLATE 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

IF  SUCCESS,  THE  SLT  TEMPLATE  IS  STORED  IN  THE  END  OF  TASK  BUFFER. 


STMSLT: 


OOOOOOG 

177370 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15S: 
20S: 


MOV 
CLR 
CLR 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERRORS 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

SSTAN 

FLAG 

#SSLLEN,R1 

STALOC 

RO,.TEMP 

(r6)  + 

RO, .FLAGS 

#CS.SLT,(RO) 

R1 

#SLTKTB,R2 

*SLTSTS,R5 

.TPARS 

20$ 

. ERROR, RO 

15S 

RO 

*-2,$ERR0R 

SERROR 

(SP)t,R5 


SAVE  R5 

RESET  STARTING  STATION  NUMBER  (NEW  SLT) 

AND  LINE  FLAGS 

GET  LENGTH  OF  ALLOCATION 

TRY  TO  ALLOCATE  CORE  BLOCK 

STORE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  SLTSDF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

GET  ERROR  DETAIL 

IF  EQ,  NONE 

PRINT  DETAIL 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


TMP5LT  -  CFE  PARSE  LINE  DEFINIT  MACRO  V05.03b  Sati^rday  29-Jun-85  05:42  Page  7 


K  6 

TMPSTA  -  CFE  PARSE  STATION  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:45 

Table  of  contents 

6-  18A    STMSTA  -  SETUP  STATION  TEMPLATE 

7-  215    SETADD  -  SETUP  STATION  ADDRESS 

8-  248    SETCST  -  SETUP  STATION  COST  AND  FLAGS 

9-  276    SETAPR  -  SETUP  STATION  ACTIVE  POLLING  RATIO 
10-  301    SETHTM  -  SETUP  STATION  HELLO  TIMER 


Tl 
M, 


Dl 
E 

El 
I 
M 
P 
S 


L  6 

IMPSTA  -  CfE  PARSE  STATION  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:43  Page  3 


K  7 

TMPSTA     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:43     PAGE  2 

MACRO  CROSS  REf^ERENCE  CREf   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 
EPRINT 
ERRORS 
ISTATS 
MTRANS 

#5-126 

#4-76 

#4-65 

#4-90 

#5-126 

#5-139 

7-236 
5-126 

#5-143 

#5-144 

#5-151 

#5-158 

#5-174 

#5-178 

#5-179 

#5-180 

PRINT 
STATES 

TRANS 

#4-60 

#4-90 

#5-160 

#4-90 

#5-150 

#5-177 

5-128 
#5-166 
#5-129 

#5-151 
#5-178 

#5-131 
#5-169 
#5-132 
#5-154 
#5-179 

#5-134 
#5-172 
#5-135 
#5-157 
#5-180 

#5-137 
#5-176 
#5-138 
#5-158 

#5-141 
#5-182 
#5-139 
#5-161 

#5-146 

#5-142 
#5-167 

#5-149 

#5-143 
#5-170 

#5-153 

#5-144 
#5-173 

#5-156 

#5-147 
#5-174 

L  7 

'♦FILE»«1D*«TMPSVC 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:44 


TMPSVC 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 


K  8 

PAGE  2 

CREF   04.00 


SSTRNG 

SSUBXP 

SSVUPD 

STALOC 

tTMSVC 

$$$FLG 

$$$<EY 

.ERROR 

.FLAGS 

.TEMP 

.TPARS 


000004 

000010 

GX 
GX 

000536  RG 

177777 

177777 


-  ****** 
=  ****** 


****** 
****** 


=  ****** 


GX 
GX 
GX 
GX 


REFERENCES 

#6-152 
#6-152 
•7-247 

7-250 
#7-246 
#6-152 
#6-152 
•7-256 
•7-253 
•7-251 

7-260 


7-262 
8-299 


8-301 


8-309 


TMPSVC 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:44     PAGE  3 


L  8 
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TMPUNT  -  CFE  PARSE  UNIT  DEFINIT  MACRO  V05.03b  Saturday  29-Jun-85  05:44 
SETDPR  -  SET  THE  LINE  DEAD  POLLING  RATIO 
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303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
31A 
315 
316 

317  000302 

318  000302 

319  000306 

320  00031A 

321  000322 

322  000326 

323  000330 

324  000334 

325  000336 

326  000342 


.SBTTL  SETDPR  -  SET  THE  LINE  DEAD  POLLING  RATIO 

'»**  -  SETDPR  -  SET  THE  LINE  DEAD  POLLING  RATIO 

INPUT: 

.PNUMB  --  LINE  DEAD  POLLING  RATIO 

.PNUMH  =  LINE  DEAD  POLLING  RATIO  (HIGH  ORDER) 

.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT 


THE  LINE  DEAD  POLLING  RATIO  IS  STORED  IN  C.DPR  OF  THE  TEMPLATE. 


016700 
016760 
052760 
005767 
001003 
105767 
001402 
062716 
000207 


OOOOOOG 
OOOOOOG  000016 
OOOOOOG  OOOOOOG 
OOOOOOG 

000001 G 


SETDPR: 


000002 


10$: 
20$: 


MOV 

MOV 

BIS 

TST 

BNE 

TSTB 

BEQ 

ADD 

RETURN 


.TEMP.RO 

. PNUMB, C.DPR(RO) 

#UN$DPR,C.STS(RO) 

.PNUMH 

10$ 

. PNUMB t1 

20$ 

#2,{SP) 


GET  START  OF  TEMPLATE 

;  STORE  THE  LINE  DEAD  RATIO  IN  THE  TEMPLATE 
;  REMEMBER  OPTION 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 

IS  THE  DEAD  POLLING  RATIO  IN  RANGE  ? 
IF  EO,  YES 
ELSE,  REJECT  THE  TRANSITION 


L  9 
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$TMX2P  -  BUILD  X2P  TEMPLATE 
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230 
231 
232 
233 
234 
235 
236 
237 
238 
259 
2A0 
2A1 
242 
243 
24A 
2A5  000276 

246  000276 

247  000300 

248  000304 

249  000310 

250  000314 

251  000316 

252  000322 

253  000326 

254  000332 

255  000336 

256  000340 

257  000344 

258  000350 

259  000354 

260  000356 

261  000362 

262  000364 

263  000370 

264  000376 

265  000402 

266  000404 
267 


010546 
012701 
004767 
010067 
005720 
010067 
012710 
005060 
005067 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


.SBTTL  $TMX2P  -  BUILD  X2P  TEMPLATE 

«♦♦  -  STMX2P  -  BUILD  X2P  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT; 

C-BIT  =  SUCCESS/FAILURE 

THE  CHANNEL  TEMPLATE  IS  BUILT  IN  THE  END  Of  TASK  BUFFER  SPACE. 


$TMX2P: 


000024 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
000010 
OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG        15$: 
20$: 


MOV 

MOV 

CALL 

MOV 

TST 

MOV 

MOV 

CLR 

CLR 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERROR$ 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

#C.LEN,R1 

$TALOC 

RO..TEMP 

(R0)  + 

RO, .FLAGS 

#CS.X2P,(R0) 

C.LIN+4(R0) 

.ERROR 

R1 

#X2PKTB,R2 

#X2P$TB,R5 

. TPARS 

20$ 

.  ERROR, RO 

15$ 

RO 

#-2,$ERR0R 

$ERROR 

(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  FOR  OPTION  SETTING 

INDICATE  THAT  THIS  IS  A  X2P$DF  TEMPLATE 

CLEAR  OPTIONAL  CONTROLLER  NUMBER 

NO  ERROR  DETAIL  YET 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

CHECK  FOR  ERROR  DETAIL  TEXT 

IF  EQ,  NO  DETAIL  TEXT 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


^  10 
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TMPX29  -  PARSE  X.29  CHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85  05:16 
$TMX29  -  BUILD  X29  TEMPLATE 
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167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182  000102 

183  000102 

184  000104 

185  000110 

186  000114 

187  000120 

188  000126 

189  000130 

190  000134 

191  000140 

192  000144 

193  000146 

194  000152 

195  000154 

196  000160 

197  000166 

198  000172 

199  000174 


.SBTTL  $THX29  -  BUILD  X29  TEMPLATE 

♦*•  -  $TMX29  -  8UILD  X29  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  Br  TPARS. 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

THE  X29  TE,^1PLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


010546 
012701 
004767 
010067 
012760 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


$TMX29: 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776  OOOOOOG 
OOOOOOG 


l-iS; 
20$: 


MOV 

MOV 

CALL 

MOV 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

MOV 

BEQ 

ERRORS 

MOV 

INC 

MOV 

RETURN 


R5,-(SP) 

*X$9LEN,R1 

STALOC 

RO,.TEMF       , 

#CS.X29,C.STS(R0) 

R1 

#X29KTB,R2 

#X29STB,R5 

.TPARS 


,R0 


20$ 

.ERROR, 

15$ 

RO 

#-2,$ERR0R 

SERROR 

(SP)+,R5 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  A  X29$DF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

GET  PARSE  ERROR 

IF  EQ,  NONE 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 
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$TMX3P  -  BUILD  X3P  TEMPLATE 
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261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 

276  000610 

277  000610 

278  000612 

279  000616 

280  000622 

281  000626 

282  000634 

283  000636 
28A  000642 

285  000646 

286  000652 

287  000654 

288  000660 

289  000662 

290  000666 

291  000674 

292  000700 

293  000702 


.SBTTL  $TMX3P  -  BUILD  X3P  TEMPLATE 

♦♦*  -  $TMX3P  -  BUILD  X3P  TEMPLATE 

THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  BY  TPARS. 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


010546 
012701 
004767 
010067 
012760 
005001 
012702 
012705 
004767 
103012 
016700 
001405 

012767 
005267 
012605 
000207 


$TMX3P: 


000021 
OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

000000' 
000000' 
OOOOOOG 

OOOOOOG 


177776 
OOOOOOG 


OOOOOOG 


C-BIT  =  SUCCESS/FAILURE 

THE  X3P  TEMPLATE  IS  BUILT  IN  THE  END  OF  TASK  BUFFER  SPACE. 


SAVE  R5 

GET  LENGTH  OF  NEEDED  ALLOCATION 

TRY  TO  ALLOCATE  A  CORE  BLOCK 

SAVE  TEMPLATE  ADDRESS 

;  INDICATE  THAT  THIS  IS  A  X3P$DF  TEMPLATE 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  If  NO  ERROR 

GET  PARSE  ERROR 

IF  EQ,  NONE 

PRINT  ACTION  ROUTINE  ERROR 

SUPPRESS  SYNTAX  MESSAGE 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


MOV 

R5,-(SP) 

MOV 

#C.LEN,R1 

CALL 

$TALOC 

MOV 

RO,.TEMP       ; 

MOV 

#CS.X3P,C.STS(R05 

CLR 

R1 

MOV 

#X3PKTB,R2 

MOV 

#X3PSTB,R5 

CALL 

. TPARS 

BCC 

20$ 

MOV 

. ERROR, RO 

BEO 

15$ 

ERROR$ 

RO 

MOV 

#-2,$ERR0R 

15$: 

INC 

$ERROR 

20$: 

MOV 
RETURN 

(SP)+,R5 
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220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23'.  000122 

235  000122 

236  000126 

237  000152 

238  000131 

239  O0O1A0 

240  000144 

241  000150 
242 

243 
244 


.SBTTL  SETNUM  -  SET  THE  NEXT  NUMBER 

♦*♦  -  SETNUM  -  SET  UP  THE  NEXT  NUMBER 

INPUT: 

$0BUF  =  CURRENT  POSITION  IN  THE  OUTPUT  BUFFER 

NEXT  :  ADDRESS  OF  NEXT  LOCATION  IN  THE  TEMPLATE  FILE 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

$OBUF  =  NEXT  LOCATION  IN  OUTPUT  BUFFER 


016700  OOOOOOG 

016702  177646 

012201 

010267  177640 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


000001 


SETNUM: 


MOV 

$OBUF,R0 

MOV 

NEXT,R2 

MOV 

(R2)+,R1 

MOV 

R2,NEXT 

CALL 

$CNVD 

MOV 

R0,$OBUF 

RETURN 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

GET  ADDRESS  OF  NEXT  LOCATION  IN  TEMPLATE 

GET  NEXT  VALUE 

SAVE  NEXT  LOCATION  IN  TEMPLATE 

CONVERT  NUMBER  TO  DECIMAL 

SAVE  CURRENT  POSITION  IN  BUFFER 

RETURN  TO  CALLER 


.END 
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UPDCHN     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:47     PAGE  2 
MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

EPRINT 

#4-79 

ERRORS 

#4-68 

PRINT 

#4-65 

SPTNMB 

#4-112 

tPTNUM 

#4-111 

6-155 

6-156 

SPTRSO 

#4-116 

$$$PTN 

#4-91 

4-ni 

4-112 

L  H 

♦♦F!LE«»1D««UPDCNT 


UPDCNT  CREATED  BV     MACRO     ON  29-JUN-S5  AT   05;48 

SYMBOL    CROSS  REFERENCE 


K  15 

PAGE    1 

CREf        04.00 


SYMBOL 

VALUE 

REFERENCES 

CNTKIB 

000000 

RG 

»5-'y5 

t\%l 

CNTSTB 

000000 

RG 

»b-95 

6-170 

CS.CNT 

~      ****** 

GX 

6-155 

CS.MOD 

=      ****** 

GX 

6-162 

C.CNT 

000004 

#4-82 

7-197 

C.CSR 

000010 

#4-84 

9-238 

C.LEN 

=  000016 

#4-87 

C.PRl 

000012 

#4-85 

10-259 

C.STS 

-      ****** 

GX 

6-155 

6-162 

C.URM 

oooou 

#4-86 

":?§o 

C.VEC 

000006 

#4-83 

8-217 

F.NRBD 

=    ****** 

GX 

.6-164 

SETCNT 

000114 

R 

#7-194 

SETCSR 

000170 

R 

#9-236 

SETPRI 

000216 

R 

#10-257 

SETURM 

000244 

R 

#11-278 

SETVEC 

000142 

R 

#8-215 

TEMP 

000000 

R 

#4-74 

.6-161 

SALPHA 

=  000022 

#5-95 

$ANY 

=  000020 

#5-95 

SBLANK 

=  000006 

#5-95 

$BUFI 

r     ****** 

GX 

6-164 

SCNVO 

-     ****** 

GX 

8-219 

9-240 

SDIGIT 

=  000^24 

#5-95 

SONUMB 

=  000014 

#5-95 

$EOS 

=  000012 

#5-95 

SERROR 

=   ****** 

GX 

*6-173 

SEXIT 

=  000000 

#5-95 

SfAIL 

=  177777 

#5-95 

SGPRM 

z       ****** 

5-95 

SLAMDA 

=  000000 

#5-95 

SMOVPT 

r     ****** 

GX 

7-195 

SMOVST 

=   ****** 

GX 

6-166 

SNUMBR 

=  000002 

#5-95 

SOBUF 

=    ****** 

GX 

8-218 

.8-220 

SOFDB 

=    ****** 

GX 

»6-164 

$RAD50 

=  000016 

#5-95 

SRONLY 

r     ****** 

5-95 

5-95 

SSTRNG 

=  000004 

#5-95 

SSUBXP 

=  000010 

#5-95 

STMLST 

-    ****** 

GX 

6-151 

SUPCNT 

000002 

RG 

#6-150 

$$$FLG 

=   177777 

#5-95 

$$$KEY 

-   177777 

#5-95 

.CONER 

r     ****** 

GX 

6-179 

.PNUMB 

=     ****** 

GX 

7-197 

.TPARS 

-     »***«* 

GX 

6-171 

7-196  8-216  9-237  10-258 


10-261  11-283 


11-279 


9-239  *9-241  10-260         *10-262 

5-95 


11-282 


11-284 


UPDCNT 


CREATED  BY     MACRO     ON  29-JUN-85   AT   05:48 
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UPDDDM  -  CFE  UPDATE  DEVICE   PROC  MACRO  V05.03b  Saturday  ?9-Jun-85  05 
Table  ot  consents 

UPDATE   DDM  DEFINTION 

CHEC<  PROCESS  NAME 

SETUP   THE    FLAGS  WORD 

SET    THE   PRIORITV 

STORE   NUMBER  OF   LINE    TABLES 

STORE    NUMBER   OF    CONTROLLER   TABLES 


''\ 


6- 

188 

SUPDDM 

/- 

2V 

SETNAM 

H- 

?SS 

SETFLG 

y- 

290 

SETPRI 

10- 

SETNLT 

11- 

332 

SETNCT 

L  16 

UPDDDM  -  CFE  UPDATE  DEVICE  PROC  MACRO  V05.03b  Saturday  29-Jun-85  05:A8  Page  3 


,»FILE«'1D««TMPREM 


L    1 


TTTTITTTTT 

m 

MM 

PPPPPPPP 

RRRRRRRR 

EEEEEEEEEE 

MM     MM 

TTTTT'TTTT 

m 

MM 

PPFPPPPP 

RRRRRRRR 

EEEEEEEEEE 

MM      MM 

MMMM 

MMMM 

PP      PP 

RR      RR 

EE 

MMMM  MMMM 

mm 

MMMM 

PP      PP 

RR      RR 

EE 

MMMM  MMMM 

MM 

*1M  MM 

PP      PP 

RR      RR 

EE 

MM  MM  MM 

MM 

MM  MM 

PP      PP 

RR      RR 

EE 

MM  MM  MM 

MM 

MM 

PPPPPPPP 

RRRRRRRR 

EEEEEEEE 

MM     m 

MM 

MM 

PPPPPPPP 

RRRRRRRR 

EEEEEEEE 

MM     MM 

MM 

MM 

PP 

RR  RR 

EE 

MM     MM 

MM 

MM 

PP 

RR  RR 

EE 

MM     MM 

MM 

MM 

PP 

RR    RR 

EE 

MM     MM 

MM 

MM 

PP 

RR    RR 

EE 

MM      MM 

MM 

MM 

PP 

RR      RR 

EEEEEEEEEE 

MM      MM 

MM 

MM 

PP 

RR      RR 

EEEEEEEEEE 

MM      MM 

SSSSSSS5 

TTTTT 

TTTTT 

SSSSSSSS 

TTTTT 

TTTTT 

SS 

SS 

SS 

SS 

SSS5SS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

«   1 

-:f    ciB<;p    OFMOTF    HFFIW   MAfSn   i/OS-O^b   Sai-urdav   29-Jun-85    05:40 


♦-FILE' 
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TMPSER  -  CFE   PARSE   REMOTE   CHARA  MACRO  V05.03b  Saturday  29-Jun-85 
STHAD   -   STORE    HARDWARE    ADDRESS 


hs-.t 


453  000530 
A5A  000532 

455  000534 

456  000536 

457  000540 

458  000542 

459  000544 

460  000550 
461 

462 
463 
464 


001402 
010123 
103371 
112614 

000402 
062716 
000207 


000C01 


000002 


BEQ 

35$ 

33$: 

MOV 

R1.(R3)t 
30i 

BCC 

35$: 

MOVB 

(SP)+,(R4) 

RESRG 

R3 

BR 

50$ 

40$: 

ADD 

#2,(SP) 

50$: 

RETURN 

.DSABL 

LS8 

.END 

1  Page  10-1 


NO 


Tf 
Sf 


STORE  CONVERTED  VALUE 

IF  CC,  MORE 

RESTORE  TRAILING  CHARACTER 

RESTORE  REGISTER 

THAT'S  ALL,  FOLKS 

REJECT  TRANSITION 


M  4 

TMPSdR  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05:41  Page  10-2 


I 


TMPSLT  - 
SETNAM  - 

286 
287 
288 
289 
290 
291 
292 
293 
29^ 
295 
296 
297 
298 
299 
300 
301 
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CFE  PARSE  LINE  DEFINIT  MACRO  VO5.03b  Saturday  29-Jun-85  05:42  Page  7 
SET  UP  PROCESS  NAME 

.SBTTL  SETNAM  -  SET  UP  PROCESS  NAME 

***  -  SETNAM  -  SETUP  PROCESS  NAME 

THIS  ACTION  ROUTINE  SETS  UP  THE  PROCESS  NAME 

INPUT: 


.PSTPT  =  START  ADDRESS  OF  THE  PROCESS  NAME  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  PROCESS  NAME 


OUTPUT: 


000506 


SSLNAM  =  RAD50  PROCESS  NAME 


SETNAM:  $GTR50  #S$LNAM,*1 
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1 

2 

3 

A 

5 

6 

7 

8 

9 
10 
11 
\2 
13 

15 
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19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


.TITLE   TMPSTA  -  CFE  PARSE  STATION  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  3E  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  STATION  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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TMPSVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:44     PAGE  3 

MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

CALLR 

#4-122 

DBGTPS 

#6-152 

#6-174 

#6-181 

#6-206 

#6-223 

EPPINT 

#4-76 

ERRORS 

#4-65 

7-264 

ISTATS 

#4-122 

6-152 

MTRAN$ 

#6-152 

PRINT 
STATES 

#4-60 
#4-122 

6-156 

#6-158 

#6-160 

#6-162 

#6-164 

#6-166 

#6-168 

#6-172 

#6-175 

#6-179 

#6-182 

#6-186 

#6-188 

#6-192 

#6-194 

#6-198 

#6-200 

#6-204 

#6-207 

#6-210 

#6-213 

#6-219 

#6-221 

#6-228 

SVCDFS 
TRANS 

#4-122 
#4-122 

4-124 
#6-157 

#6-159 

#6-161 

#6-163 

#6-165 

#6-167 

#6-169 

#6-173 

#6-174 

#6-176 

#6-180 

#6-181 

#6-183 

#6-187 

#6-189 

#6-193 

#6-195 

#6-199 

#6-201 

#6-205 

#6-206 

#6-208 

#6-211 

#6-214 

#6-220 

#6-222 

#6-223 

SGTNMB 
SGTNUM 

#4-98 
#4-88 

8-295 

8-297 

8-299 

8-301 

8-303 

8-305 

8-307 

$GTR50 

#4-110 

8-309 

8-311 

n  8 
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328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 

342  000344 

343  000344 

344  000350 

345  000356 

346  000364 

347  000370 

348  000372 

349  000376 

350  000400 

351  000404 
352 

353 


.SBTTL  SETPCH  -  SET  THE  PROTOCAOL  EMULATOR  CHARACTERISTICS 

'»•*  -  SETPCH  -  SET  THE  PROTOCAOL  EMULATOR  CHARACTERISTICS 

INPUT: 

.PNUMB  =  PROTOCAOL  EMULATOR  CHARACTERISTICS 

.PNUMH  =  PROTOCAOL  EMULATOR  CHARACTERISTICS  (HIGH  ORDER) 

.TEMP  =  TEMPLATE  ADDRESS 


OUTPUT 


SETPCH: 


016700 

OOOOOOG 

MOV 

.TEMP.RO 

016760 

OOOOOOG  000024 

MOV 

. PNUMB, C  PCH(RO) 

052760 

OOOOOOG  OOOOOOG 

BIS 

#UN$PCH,C.STS(RO) 

005767 

OOOOOOG 

TST 

.PNUMH 

001003 

BNE 

10$ 

105767 

000001 G 

TSTB 

. PNUMB +1 

001402 

BEQ 

20$ 

062716 

000002        10$: 

ADD 

*2,(SP) 

000207 

20$: 

RETURN 

THE  PROTOCAOL  EMULATOR  CHARACTERISTICS  C.PCH  OF  THE  TEMPLATE. 


GET  START  OF  TEMPLATE 

;  STORE  THE  LINE  DEAD  RATIO  IN  THE  TEMPLATE 
;  REMEMBER  OPTION 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  -  REJECT 

IS  THE  DEAD  POLLING  RATIO  IN  RANGE  ? 
IF  EQ,  YES 
ELSE,  REJECT  THE  TRANSITION 


000001 


.END 
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TMPUNT 
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TMPX2P 
SETWSZ 


^   10 

PARSE  X.25  LEVEL  2  PRO  MACRO  V05.O3b  Saturday  29-Jun-85  05:A5 


-  SET  WINDOW  BLOCK  SIZE 


Page  8 


269 

270 

271 

272 

273 

27A 

275 

276 

277 

278 

279 

280 

281 

282 

283 

28; 

285 

286  000406 

287 

288  000A26 

289 

290  000446 

291 

292  000466 

293 

294  000506 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310  000526 

311 

312  000542 

313 

314  000562 

315 

316 


.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 

**  SETWSZ 

**  SET8SZ 

**  SETRTC 

**  SETRTT 

»*  SETHBT 

INPUTS: 

OUTPUT: 

SETWSZ:  SGTNUM 

SETBSZ:  SGTNUM 

SETRTC:  SGTNUM 

SETRTT:  SGTNUM 

SETHBT:  SGTNUM 


.SBTTL 
.SBTTL 
.SBTTL 


SETWSZ  -  SET  WINDOW  BLOCK  SIZE 

SETBSZ  -  SET  BLOCK  SIZE 

SETRTC  -  SET  RETRANSMIT  COUNT 

SFTRTT  -  SET  RETRANSMIT  TIMER 

SETHBT  -  SET  HOLDBACK  TIMER 

-  SET  WINDOW  BLOCK  SIZE 

-  SET  BLOCK  SIZE 

-  SET  RETRANSMIT  COUNT 

-  SET  RETRANSMIT  TIMER 

-  SET  HOLDBACK  TIMER 

.TPARS  CONVENTIONS. 
VALUE  SET  IN  TEMPLATE. 


#C.WSZ,#1,*7. 

#C.8SZ,*21.,#1029. 

#C.RTC,,*255. 

#C.RTT,,*1000. 

#C.HBT,,*600. 


SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 
SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 
SETUNI  -  SET  UNIT  NUMBER  IN  LINE  ID 


000001 


**  SETDEV  -  SET  DEVICE  NAME  IN  LINE  ID 

**  SETCON  -  SET  CONTROLLER  NUMBER  IN  LINE  ID 

**  SETUNI  -  SET  UNIT  NUMBER  IN  LINE  ID 

INPUTS:       .TPARS  CONVENTIONS. 

OUTPUT:       VALUE  SET  IN  TEMPLATE. 

SETDEV:  SGTR50  #C.LIN,#1 

SETCON:  SGTNUM  #C.LIN+2 

SETUNI:  SGTNUM  #C.LIN+4  , ,  ,*CS.UNI 
.END 
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TMPX29  - 
SETMXC  - 

201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 


PARSE  X.29  fHARACTERIS  ""lACRO  V05.03b  Saturday  29-Jun-85 

SET  MAXIMUM  (  IRCUIIS 


05:46 


Page  8 


.SBTTL 
.SBTIL 
»• 
♦•  SETMXC  - 
**  SETCT  - 

INPUTS 

OUTPUT 


SETMXC  -  SET  MAXIMUM  CIRCUITS 
SETCT  -  SET  CALI  TIMER  VALUE 

SET  MAXIMUM  CIRCUITS 
SET  CALL  TIMER  VALUE 

.TPARS  VARIABLE. 

VALUE  PUT  INTO  CURRENT  TEMPLATE 


000176 
000216 


000001 


SETMXC:  $GTNUM  #X$9MXC 
SETCT:  SGTNMB  #X$9CT , ,*255. 

.END 


n  11 
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TMPX3P 
SETDFP 


PARSE   X.^  level  3  CHA  MACRO  V05.03b  Saturday  29-Jun-85  05:46     Page  8 
SET   DEFAULT   BLOCK    SIZE 


l55:?6 


295 

296 

297 

298 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3K 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324  000704 

325 

326  000724 

327 

328  000744 

329 

330  000764 

331 

332  001004 

333 

334  001024 

335 

336  001044 

337 

338  001064 

339 

340  001104 

341 

342  001124 

34  3 

344    001144 

345 

346 

347 


000001 


.S8TTL 
.S8TTL 
.S8TTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 

SETPFP  - 
SETMXP  - 
SETDW  - 
SETMW  - 
SETCT  - 
SETKT  - 
SETRT  - 
SETST  - 
SETKM  - 
SETRM  - 
SETSM  - 


SETDFP  -  SET  DEFAULT  BLOCK  SIZE 
SETMXP  -  SET  MAXIMUM  BLOCK  SIZE 
SETDW  -  SET  DEFAULT  WINDOW  SIZE 
SETMW  -  SET  MAXIMUM  WINDOW  SIZE 
SETCT  -  SET  CALL  TIMER  VALUE 
SETKT  -  SET  CLEAR  TIMER  VALUE 
SETRT  -  SET  RESET  TIMER  VALUE 
SETST  -  SET  RESTART  TIMER  VALUE 
SETKM  -  SET  MAXIMUM  CLEAR  VALUE 
SETRM  -  SET  MAXIMUM  RESETS  VALUE 
SETSM  -  SET  MAXIMUM  RESTARTS  VALUE 


SET  DEFAULT  BLOCK  SIZE 
SET  MAXIMUM  BLOCK  SIZE 
SET  DEFAULT  WINDOW  SIZE 
SET  MAXIMUM  WINDOW  SIZE 
SET  CALL  TIMER  VALUE 
SET  CLEAR  TIMER  VALUE 
SET  RESET  TIMER  VALUE 
SET  RESTART  TIMER  VALUE 
SET  MAXIMUM  CLEAR  VALUE 
SET  MAXIMUM  RESETS  VALUE 
SET  MAXIMUM  RESTARTS  VALUE 

INPUTS        .TPARS  VARIABLE. 

OUTPUT        VALUE  PUT  INTO  CURRENT  TEMPLATE 

SETDFP:  SGTNUM  #C.DFP,#21 .  ,#1029. 

SETMXP:  SGTNUM  *C.MXP,#21 . ,#1029. 

SETDW:  «GTNMB  #C.DW,#1 . ,#127. 

SETMW:  SGTNMB  #C.MW,#1 . ,#127. 

SETCT:  SGTNMB  #C.CT,,#255. 

SETKT:  SGTNMB  #C.KT,,#255. 

SETRT:  STTNMB  #C.RT,,#255. 

SETST:  SGTNMB  #C.ST,,#255. 

SETKM:  SGTNMB  #C.KM,,#255. 

SETRM:  SGTNMB  #C.RM,,#255. 

SETSM:  SGTNMB  #C.SM,,#255. 

.END 
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BUFKTB 
BUFSTB 


UPOBUf  -  CFE  UPDATE  BUFFER  DEFI  MACRO  VO5.03b  Saturday  29-Jun-85 
Symbol  table 


W^ 


OOOOOORG 
OOOOOORG 


CS.BUF=  •«»•♦•  GX 


CS.MOD 
C.CBNM 
C.CBSZ 
C.LEN  ^ 
C.RBNM 
C.RBSZ 


«♦*••  GX 
00000^ 
000006 
000022 
000010 
000012 


005  C.SBNM 
002  C.SBS2 
C.STS  = 
C.THSH 
EXIT 
F.NRBD= 
NEXT 
SETNUM 
$ALPHA= 


OOOOU 

000016 

»♦*««*  GX 

000020 

000064R 

*•«»»»  GX 

OOOOOOR 

000122R 

000022 


$ANY  =  000020 

$BLANK=  000006 

SBUFl  =  *»*»«♦  GX 

$CLNUP=  ******  GX 

002  SCNVD  =  ******  GX 

$DIGIT=  000024 

$DNUMB=  OOOOU 

$EOS  =  000012 

$ERROR=  »*♦**«  GX 
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$EXir  =  OOOOOQ 
177777 


000000 

****** 


$FAIL  = 
$LAMDA= 
$HOVPT= 

$HO\/ST=  ****** 
$NUMBR=  000002 
$0BUF  =  ****** 
iOFDB  =  ****** 
$RAD50=  000016 


GX 
GX 

GX 
GX 


$STRNG=  000004 
$SU8XP=  000010 
STMLST 
SUPBUF 


******  GX 
000002RG 


$$$fLG=  ]77777 

$$$KEY=  U7777 

$$$STA=  00006'iR 

.CONER=  **««*•  GX 

,TPARS=  ******  GX 


002 


000022 
000152 
000106 
000000 
000000 
Errors  detected: 


.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000 
001 
002 
003 
OOA 
0 


(RW.I.GBL.ASS.OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON> 


»♦•  Ajsembler   statistics 

Work      file     reads;  0 

Work      file   writes;  0 

Size  of   xork    file:  10630  Words      (   42  Pages) 

Size  of   core  pool:  14440  Words      (   55  Pages) 

Operating     system:  RSX-IIM/PLUS 

SYfuPDBUF!v2;[°32??34]UPDBUF/CR/-SP=Sr:C1,1]RSXMCM.SML/ML,C130,110]NETU8/ML,[132,10JUPD8UF 


UPDBUF 
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NN 
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DD 
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NN 
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NN 
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DD 

DD 

NN 

NN 
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pp 

DDDDDDDD 

cccccccc 

NN 

NN 
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pp 

DDDDDDDD 

cccccccc 

NN 

NN 

ssssssss 

TTTTT 

TTTTT 
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TTTTT 

mil 

ss 

ss 

ss 

5S 

SS5SSS 

SSSSSS 

SS 

SS 

SS 

ss 

LLLLLLLLLL 
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LLLLLLLLLL 
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n  u 
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UPDCNT     CREATED  BV  MACRO  ON  29-JUN-85  AT  05:48 
MACRO  CROSS  REi^ERENCE 


L  15 

PAGE  2 

CREF   04.00 


MACRO  NAME 

REFERENCES 

RBGTPt 

#5-95 

#5-12? 

ISTATS 

#4-68 

5-95 

MTRANt 

#5-95 

3R1NT 

#4-59 

STATEt 

#4-68 

5-97 

#5-100 

#5-125 

#5-128 

#5-130 

IRANI 

#4-68 

#5-98 

#5-101 

#5-123 

#5-126 

#5-129 

#5-103 
#5-133 
#5-104 
#5-131 


#5-106 
#5-136 
#5-107 
#5-134 


#5-109 
#5-110 


#5-112 
#5-113 


#5-115 
#5-116 


#5-118 
#5-119 


#5-121 
#5-122 
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UPDDDM  -  CFE  UPDATE  DEVICE  PROC  MACRO  V05.03b  Saturday  ?9-Jun-85 


^sl? 
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1 
2 
3 

5 
6 

7 

8 
9 

10 
11 
•,2 
13 
U 
15 
16 
17 
18 
19 

?0 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

50 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


.TITLE  UPDDDM  -  CFE  UPDATE  DEVICE  PROCESS  DEFINITION  IN  CETA8 
.IDENT  /V05.00/ 

COPyRIGHT  (C)  1979,  1980,  1982,  1983.  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  DDM  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-IIM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 
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H     1 

TPupREW  -   CfE   01R5E   ciEMC'E   DE'lNi  MACRO  vOS.OSb  Saturday  29-Jun-85  05:40 
Tat'.e  ot  contents 

SETUP   REMOTE    TEMPLATE 

FIND   NEXT   REMOTE    IN   SOR'        LIST 

SETUP   REMOTE   NODE    NAME 

SET   UP   REMOTE   AREA 

SET   UP  RE^'OTE   ADDRESS 


V7 

STMREM 

'fr 

FINREM 

'4S 

SETNAM 

(H. 

SEtARE 

t")S 

SE^ADD 

N     1 

Txip»fw  -   rff   BAR5E   REMCU   DEFIN  MACRO  v05.O3b  Saturday  29-Jun-85  05:A0     Page  3 


M  2 

TMPROU  -  CFE  PARSE  ROUTING  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:40 
Table  ot  contents 

6-  208    STMROU  -  SETUP  ROUTING  TEMPLATE 


N  2 


T!«|pRou  -  CFE  PARSE  ROUTING  DEFI  MACRO  VO5.03b  Saturday  29-Jun-85  05:40  Page  3 


n  3 

■MPit^  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05:41 
Table  of  contents 

$TMSEi<  -  SETUP  REMOTE  CHARACTERISTICS  TEMPLATE 

SETADD  -  SET  UP  REMOTE  ADDRESS 

HOSADD  -  SET  UP  HOST  ADDRESS 

SETARE  -  SET  UP  REMOTE  AREA 

STCIR  -  STORE  SERVICE  CIRCUIT 

SERDV  -  STORE  SERVICE  DEVICE 

DADDR  -  STORE  DUMP  ADDRESS 

DCT   -  STORE  DUMP  COUNT 

PAS   -  SERVICE  BLOCK  PASSWORD 

STHAO  -  STORE  HARDWARE  ADDRESS 


6- 

??? 

l- 

■fSH 

!- 

?M) 

T- 

?H9 

H- 

VA 

9- 

W 

9- 

^S^ 

9- 

";S4 

10- 

S96 

10- 

59/ 

N    3 
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L_ 


n  4 

TMPSdR  -  CFE  PARSE  REMOTE  CHARA  MACRO  V05.03b  Saturday  29-Jun-85  05:41 
Symbol  table 
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ALPNUM 

CIRC 

CIRC10 

CIRC20 

CIRC30 

CIRCS 

CS.SERi 

DADDR 

DCT 

ENOHEX 

EXIT 

HEXSTR 

HOSADD 

HOSARE 

PAS 

REJ 

SERDV 

SERFLG 

.  ABS. 

SSTATE 

$KTAB 

SKSTR 


000350R 

000266R 

000322R 

000334R 

000342R 

000306R 

******   GX 

000344R 

000366R 

000022R 

000360R 

000002R 

0001 40R 

0001 76R 

0004UR 

0002A2R 

000322R 

OOOOOOR 

000056 
000552 
00036A 
000004 
000016 


002  SERKTB 
002  SERSTB 
002  SERl 
002  SER10 
002  SER15 
002  SER20 
SER25 
SER30 
SER35 
SER40 
002  SER45 
SER5 
SER50 
SETADD 
SETARE 
SF.ADD= 
SF.CIR= 


OOOOOORG 

OOOOOORG 

000006R 

000060R 

000104R 

000126R 

0001 50R 

0001 72R 

00021 4R 

000236R 

000244R 

000042R 

000256R 

000146R 

000204R 

000001 

000010 


003  SF.DEV= 
002  SF.DPA= 
002  SF.DPC= 
002  SF.HAD= 
002  SF.HST= 
002  SF.PH3= 
002  SF.PSS= 
002  STCIR 
002  STHAD 
002  S$ADD 
002  S$CIR 
002  SSDEV 
002  S$DPA 
S$DPC 
S$FLG 
S$HAD 
S$HST 


000020 

000100 

000200 

000004 

000002 

000400 

000040 

000250R 

000402R 

000006 

000022 

000032 

000050 

000054 

000004 

000012 

000010 


S$LEN  = 

SSPSS 

S.LENX= 

$ALPHA= 

SANV  = 

$BLANK= 

$ByTMN= 

$CAT5  = 

$DIGIT= 

$DNUMB= 

$EOS  = 

$ERROR= 

$EXIT  = 

IFAIL  = 

$LAHDA= 

$NUMBR= 

$RAD50= 


000056 
000034 
******   GX 

000022 

000020 

000006 

»*»«**  GX 

******   GX 

000024 

000014 

000012 

*«♦*♦*  GX 

000000 

Mim 

000000 
000002 
000016 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


•**  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10452  Words   (  41  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

|Yf?^pSER]v2|[l'32°l3°]TMPSER/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[13?,10]TMPSER 


T^ 

SE 


******  GX 
000022RG 


$STRNG=  000004 
$SU8XP=  000010 
$TALOC 

STMSER  

$$$FL6=  177777 
$$$KEY=  000001 
$$$STA=  000000 
$$$TMP=  000007R 
.CAT5E=  *♦*«♦*  GX 
.ERROR=  ******   GX 
.FLAGS=  ******  GX 
.PNUMB=  ******  GX 
****** 


004 


.PNUMH= 
.PSTCN= 


GX 
GX 


.PSTPT=  ******  GX 


TEMP  =  ****** 
.TPARS= 


GX 
GX 


TMPSER 
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TMPSLT  - 
SETFLG  - 

303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3K 
315 
316 
317 
318 
319 
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CFE  PARSE  LINE  DEflNlT  MACRO  V05.03b  Saturday  29-Jun-85  05:42  Page  8 
SETUP  THE  FLAGS  WORD 

.SBTTL  SETFLG  -  SETUP  THE  FLAGS  WORD 
***  -  SETFLG  -  SETUP  THE  FLAGS  WORD 
INPUT: 


FLAG  =  THE  FLAGS  WORD 

.TEMP  =  START  ADDRESS  OF  THE  TEMPLATE 


OUTPUT 


000522 

000522  016700  OOOOOOG 

000526  016760  177246  OOOOOOG 

000534  000207 


SETFLG: 


THE  FLAGS  WORD  IS  MOVED  INTO  THE  TEMPLATE 


MOV     .TEMP.RO       ;  GET  START  OF  TEMPLATE 
MOV     FLAG,S$LFLG(RO)  ;  STORE  THE  FLAGS  WORD 
RETURN 


N  5 
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TMPSTA  -  CFE  PARSE  STATION  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05;«3  Page  A 


56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96  000000 

97  000002 
98 

99 
100 

101  000004 
102 
103 
104 
105 
106 

107  000000 
108 

109  000000 

110  000002 

111  000004 

112  000005 


000004 
004 


000000 


103 


106 


LOCAI 


MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRiNT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIf  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 


MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRINT 

•  ♦*** 

;  MACRO 

CALLS 

;  *  *  *  * 

.MCALL 

ISTATS, STATES, 

■  **** 

;  LOCAL 

DATA 

;  *  *  *  * 

TEMP: 

.BLKW 

1 

FLAG: 

.aLKW 

1 

.NLIST 

BEX 

.ENA8L 

LC 

EXSSEV 

=  4 

ERRSTA: 

.ASCIZ 
.EVEN 

<EXSSEV>/CFE  - 

.LIST 

BEX 

;  DEFINE  STATION  TEMPLATE 

.ASECT 

.=0 

.BLKW 

1 

.BLKW 

1 

C.STA: 

.8LKB 

1 

C.ADD: 

.BL/CB 

1 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


ADDRESS  OF  STATION  TEMPLATE 
STATION  FLAGS 


Too  many  stations/ 


C.LNK 

C.STS 

STATION  NUMBER 

STATION  ADDRESS 


N  6 
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TMPSvc  -  PARSE  SWITCHED  VIRTUAL  MACRO  V05.03b  Saturday  29-Jun-85  05:« 
Table  ot  contents 


4- 

55 

MACRO  DEFINITIONS 

s- 

128 

LOCAL  DATA 

(S- 

U? 

TPARS  STATE  TABLES 

7- 

231 

$TMSVC  -  BUILD  SVC  TEMPLATE 

R- 

271 

SETNAM  -  SET  DLM  NAME 

8- 

272 

SETPSZ  -  SET  PACKET  SIZE 

8- 

273 

SETUSZ  -  SET  WINDOW  SIZE 

«- 

27A 

SETFLG  -  SET  FLAGS 

8- 

275 

SETRCL  -  SET  MAXIMUM  RECALLS 

8- 

276 

SETTIM  -  SET  RECALL  TIMER 

8- 

277 

SETDTE  -  SET  DTE  ADDRESS 

8- 

278 

SETCWN  -  SET  OWNER  OF  SVC 

N  7 
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SSS5SSSS 
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LL 
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ss 

_L 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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CS.UNT= 

C.CSR 

C.CST 

C.CWO 

C.CWI 

r.oPR 

C.LEN  = 

C.PCH 

C.STS 

CUNT 

LINCST 

.    ABS. 

SSTATE 

$KTAB 

SKSTR 


»»*»»»   GX 

000012 

GOOOU 

000006 

000010 

000016 
=  000026 

000024 
=  »».*»«  GX 

OOOOOA 

000034R 

000026 
000406 
000102 
000000 
000000 


LINDPR 
MXCSTL= 
PCHA 
SECCSR 
SETCSR 
SETCST 
SETCWO 
SETCU1 
SETDPR 
SETPCH 
002  SETUNT 


000046R 

******  GX 

000064R 

000024R 

0001 72R 

000236R 

0001 16R 

0OOU4R 

000302R 

0003A4R 

000062R 


002  TEMP 

UNTKT8 
002  UNTSTB 
002  UN$CST= 
UN$DPR= 
UN$PCH= 
UN$SCS= 
$ALPHA= 
$ANY  = 
$BLANK= 
$DJGIT= 


OOOOOOR 

OOOOOORG 

OOOOOORG 

******  GX 

******  GX 

******  GX 

******  G)! 

000022 

000020 

000006 

000024 


$DNUMB= 
003  $E0S  = 
002  $ERR0R= 
$EXIT  = 
SfAlL  = 
$LAMDA= 
$NUM8R= 
$RAD50= 
$STRNG= 
$SU8XP= 


000014 
000012 
****** 
000000 

Mim 

000000 
000002 
000016 
000004 
000010 


GX 


$TALOC=  ******  GX 

STHUNT  000002RG 

$$$FLG=  ynm 

$$$KEY=  177777 

$$$STA=  000000 

.FLAGS=  ******  GX 

.PNUMB=  ******  GX 

.PNUMH=  ******  GX 


.TEMP  =  ****** 
.TPARS=  ****** 


GX 
GX 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RU,1,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,RE1  ,CON) 
(RU,D,LCL,REL,CON) 


«*«   Assembler   statistics 

Work      file     reads:  0 

WorK      f i le  writes:  0 

Size  of  work    file:  10406  Words     (   41    Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating     system:  RSX-IIM'PLUS 

SYfTMPUNr.v2ic?32J34]tMPUNT/CR/-SP=SY:[1,nRSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]rMPUNT 


TMPUNT 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:45 
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TMPX2P  -  PARSE 
Symbol  table 
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CS.UNI  = 

CS.X2P= 

C.BSZ 

C.HBT 

C.LEN  = 

C.LIN 

C.RTC 

C.RTT 

C.WS2 

ERRBSZ 

ERRHBT 


»»♦•••  GX 

*«»♦««  GX 

OOOOK 

000022 

00002^ 

OOOOOA 

000016 

000020 

000012 

000065R 

000231 R 


ERRLIN 

ERRRTC 

ERRRTT 

ERRWSZ 

EX$SEV= 

LINID 

LINO 

SETBSZ 

SETCON 

SETDEV 

SETHBT 


OOOOOOR 

0001 20R 

000162R 

000030R 

000004 

0001 26R 

0001 50R 

000A26R 

0005A2R 

000526R 

000506R 


SETRTC 

000A46R 

$DIGIT= 

000024 

$STRNG= 

000004 

SETRTT 

000A66R 

$DNUHB= 

000014 

$SUBXP= 

000010 

SETUNl 

000562R 

$EOS  = 

000012 

$TALOC= 

******  GX 

SETUSZ 

000406R 

$ERR0R= 

**4*«A 

GX 

$TMX2P 

00g276RG 

X2PKTB 

OOOOOORG 

003 

$EXIT  = 

000000 

$$$FLG= 

mn 

nn? 

X2PSTB 

OOOOOORG 

002 

$FAIL  = 

177777 

$$$KEY= 

M7777 

nn? 

$ALPHA= 

000022 

$GTNUM= 

****** 

GX 

$$$STA= 

000000 

$ANY  = 

000020 

$GTR50= 

****** 

GX 

.ERROR= 

******  GX 

$81  ANK= 

000006 

$LAMDA= 

000000 

.FLAGS= 

******  GX 

$CrERR= 

*»»«**  GX 

$NUMBR= 

000002 

.TEMP  = 

******  GX 

$ClERR= 

******  GX 

$RAD50= 

000016 

.TPARS= 

«♦*♦«*  GX 

000024 
000610 
000156 
000000 
000000 
Errors  detected: 


.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


*♦«   Assembler   statistics 


0 

0 

11C48  Words 

14440  Words 

RSX-11M/PLUS 


Work  file  reads: 
Work  f i le  writes: 
Size  of  work  file: 
Size  of  core  pool: 
Operating     system: 

5y:TMPX2p!v2!cn2?°^4]TMPX2P/CR/-5P=Sy:[1,l]RSXMCM.SML/ML,C130,110]NETL18/ML,C132,10]TMPX2P 


(  44  Pages) 
(  55  Pages) 


TMPX2P 


CREATED  BV  MACRO  ON  29-JUN-85  AT  05:45 
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TMPX29  -  PARSE  X.29  CHARACTERI5  MACRO  V05.03b  Saturday  29-Jun-85  05:16 
Symbol  table 


CS.X29=  **••»♦  GX 
C.STS  =  •*♦*•*  GX 
ERRCI   000042R 
ERRMXC  OOOOOOR 
EXSSEV=  000001 
SETCT   000216R 
SETMXC  0001 76R 
X$9CT  =  «»♦**»  GX 


.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000000 
000236 
000031 
000000 
000000 


Errors  detected: 


000 
001 
002 
003 
004 
0 


X$9LEN=  ♦**•♦*  GX 
X$9MXC=  •**»*»  GX 
X29KTB  OOOOOORG 
X29STB  OOOOOORG 
$ALPHA=  000022 
$ANY  =  000020 
$BLANK=  000006 
$CFERR=  ♦♦****  GX 

(RU,],GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


$CLERR=  ******  GX 

$DIGIT=  000021 

003  $DNUM8=  000011 

002  $E0S  =  000012 

$ERR0R=  ******  GX 

$EXIT  =  000000 

$FAIL  =  \m71 

$GTNM8=  ******  GX 


Page  8-1 


$GTNUM=  ******  GX 
$LAHDA=  000000 
$NUM8R=  000002 
$RAD50=  000016 
$STRNG=  000001 
ISU8XP=  000010 
$TALOC=  ******  GX 


$TMX29  000102RG 

$$$FLG=  \nm 

$$$KEY=  \mn 

$$$STA=  000000 

.ERROR=  ******  GX 

.TEMP  =  ******  GX 

.rPARS=  ******  GX 


»*♦  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  11008  Words  (  13  Pages) 

Size  of  core  pool:  11110  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Sy1'tmPX29'v2![i'32??31]TMPX29/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLI8/ML,C132,10]TMPX29 
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Symbol  table 
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CS.X3P= 

C.CT 

C.DfP 

C.DW 

C.KM 

C.KT 

C.LEN  = 

C.MW 

C.MXP 

C.RM 

CRT 

C.5M 

C.ST 


.  ABS. 

SSTATE 

$<TAB 

SKSTR 


000012 
000004 
000010 
000016 
000015 
000021 
000011 
000006 
000017 
OOOOK 
000020 
000015 


000021 
0011 64 
000234 
000000 
000000 


GX 


C.STS  = 

ERRCT 

ERRDFP 

ERRDU 

ERRKM 

ERRKT 

ERRMW 

ERRMXP 

ERRRM 

ERRRT 

ERRSM 

ERRST 

EX$SEV= 


«••»**  GX 

000216R 

OOOOOOR 

000106R 

000427R 

000257R 

0001 52R 

000043R 

000473R 

000321R 

000540R 

000363R 

000004 


SETCT 

SETDFP 

SETDW 

SETKM 

SETKT 

SETMU 

SETMXP 

SETRM 

SETRT 

SETSM 

SETST 

X3PKTB 

X3PSTB 


001004R 

000704R 

000744R 

001104R 

001024R 

000764R 

000724R 

001124R 

001044R 

001144R 

001064R 

OOOOOORG 

OOOOOORG 


$ALPHA= 
$ANY  = 
$BLANK= 
$CFERR= 
$CLERR= 
$DJGIT= 
$DNUHB= 
$EOS  = 
$ERROR= 
$EXIT  = 
$FAIL  = 
003  $GTNMB= 
002  $GTNUM= 


000022 
000020 
OOOC^'O 
****** 
****** 
000024 
000014 
000012 

****** 

000000 
U7777 

****** 
****** 


GX 


$LAMDA= 

$NUMBR= 

$RAD50= 

$SIRNG= 

$SUBXP= 

$rALOC= 

$TMX3P 

$$$FLG= 

$$$KEY= 

$$$SIA- 

.ERROR= 

.TEMP  = 

.TPARS= 


000000 
000002 
000016 
000004 
000010 
******  GX 
00061  ORG 
\77777 
\77777 
000000 
******  GX 
******  GX 
******  GX 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RU,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON) 


*♦♦  Assembler  statistics 


0 

0 

11032  Words 

14440  Words 

RSX-11M/PLUS 


(  44  Pages) 
(  55  Pages) 


Work  file  reads: 
Work  tile  writes: 
Size  of  work  file; 
Size  of  core  pool : 
Operating  system: 

SvfTMPX3r.v2!c°32J34]fMPX3P/CR/-SP=SY:[1,1JRSXMCM.SML/ML,[1 30, 110JNETL  IB/ML,  [132, 10]TMPX5P 
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CftEf   OA.OO 


SYMBOL  VALUE 


BUFKTB 

BUFSTB 

CS.BUF 

CS.MOD 

C.CBNM 

C.CBSZ 

C.LEN 

C.RBNM 

C.RB5Z 

C.SBNM 

C.SBSZ 

C.STS 

C.THSH 

F.NRBD 

NEXT 

SETNUM 

SALPHA 

$ANY 

SBLANK 

SBUFI 

tCNVD 

SDIGF 

SDNUMB 

$EOS 

SERROR 

tEXIT 

$FA1L 

SGPRM 

SLAMDA 

SMOVST 

SNUMBR 

SOBUF 

$OFDB 

$RAD50 

SRONLY 

SSTRNG 

SSUBXP 

STMLST 

SUPBUF 

SSSFLG 

$$$ICEY 

.CONER 

.TPAR5 


000000  RG 
000000  RG 


GX 
GX 


GX 
GX 


=  ****** 
=  ****** 

OOOOOA 

000006 
=  000022 

000010 

000012 

OOOOU 

000016 

~      ♦****♦ 

000020 

-  ****** 

000000 
^^122 

-  .  ^2 
=  OOUuJO 
=  000006 

r  ****** 
=  ****** 

=  000024 
=  OOOOU 
=  000012 

=  ****** 

=  000000 
=  177777 

r  ****** 

=  000000 

-  ****** 

=  000002 

=  ****** 

r  ****** 

=  000016 
=  ****** 

=  000004 
=  000010 

i:  ****** 

000002  RG 
=  1777^7 
=  177777 

;  ******    GX 

-  ....**  GX 


GX 
GX 


GX 


GX 


GX 
GX 


GX 


REFERENCES 

#5-117 
#5-117 

6-193 

6-200 
#4-101 
#4-102 
#4-108 
#4-103 
#4-104 
#4-105 
#4-106 

6-193 
#4-107 
♦6-202 
#4-111 
#7-234 
#5-117 
#5-117 
#5-117 

6-202 

7-239 
#5-117 
#5-117 
#5-117 
•6-212 
#5-117 
#5-117 

5-117 
#5-117 

6-205 
#5-117 

7-235 
»6-202 
#5-117 

5-117 
#5-117 
#5-117 

6-189 
#6-188 
#5-117 
#5-117 

6-218 

6-210 


6-208 
6-209 


6-204 

6-200 
«6-199 


♦6-204 


7-236 


♦7-238 


♦7-240 
5-117 


5-117 


UPDBUF 


CREATED  BY     MACRO     ON  29-JUN-85   AT  05:47  riAGE   2 


N  13 


n  u 

UPDCNT  -  CFE  UPDATE  CONTRCLLBI*  MACRO  V05.0?b  Saturday  29-Jun-8'i  05:48 
Table  ot  contents 

6-  138  SUPCNT  -  UPDATE  CONTROLLER  DEFINITION 

?-  181  SETCNT  -  CHECK  CONTROLLER  NUMBER 

8-  202  SETvEC  -  SETUP  THE  VECTOR  ADDRESS 

9-  223  SETCSR  -  SET  THE  CSR  ADDRESS 

10-  24A    SETPRI  -  SET  THE  PRIORITY 

11-  265    SETURM  -  SET  UNItiUS  RUN  MASK 
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56 
57 

60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 

QQ 

89  000000 

90  000002 

91  000011 

92  000020 

93  000027 

94  000036 

95  000045 

96  000054 

97  000063 

98  000072 
99 

100 

101 

102 

103 

104  000000 

105 

106  000000 

107  C00002 

108  000004 

109  000006 

110  000010 

111  000012 


• » *  *  * 
;  LOCAL 
'  *  t  *  * 


MACROS 


2'FLG' 


LB: 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  FLAG,  FLG 

.ASCII  /ZF.'FLG'!/ 

Z'FLG'L  =  .  -  Z'FLG' 

.ENDM  FLAG 


.MACRO  PUTfLG  FLA,  D=<>,  ?LB 

BIT  *ZF.'FLA',C.FLG(R5)  ;  BIT  SET 

BEQ  LB 

MOV  «'D'Z'FLA',R1 

MOV  #'D'Z'FLA'L,R2 

CALL  SMVASC 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


IF  EQ,  NO 

ELSE  POINT  TO  TEXT 

GET  LENGTH 

MOVE  IT 


.ENDM   PUTFLG 


;  MACRO 


CALLS 

.MCALL   1STAT$,STATEI., TRANS 


000000 


;  LOCAL 

DATA 

;  **** 

TEMP: 

.6LKW 

1 

FLAG 

DDM           ; 

FLAG 

DLC 

FLAG 

KMX 

FLAG 

MUX 

FLAG 

LMC 

FLAG 

PSF 

FLAG 

DIA 

FLAG 

DVP 

FLAG 

MAN 

.EVEN 

;  DEFINE  DDM  TE 

MPLATE 

.ASECT 

.=0 

.8LKW 

.BLKW 

C.NAM: 

.6LKU 

C.FLG: 

.8LKW 

C.PRI: 

.BLKW 

C.NLT: 

.BLK8 

ADDRESS  OF  DDM  TEMPLATE 

MARK  PROCESS  AS  A  DDM 

PROCESS  IS  A  DLC 

PROCESS  IS  A  KMC  DEVICE 

PROCESS  IS  A  MUX  DEVICE 

PROCESS  NEEDS  MICRO-CODE 

PROCESS  HAS  PSEUDO  SLT 

PROCESS  HAS  DIAGNOSTIC  MICROCODE 

PROCESS  RUNS  AT  DEVICE  PRIORITY 

PROCESS  HAS  NET.  MAN.  QNIRY  POINT 


C.LNK 

C.STS 

DDM  PROCESS  NAME 

DDM  FLAGS  WORD 

DDM  PROCESS  PRIORITY 

NUMBER  OF  LINE  TABLES  IN  PROCESS  SPACE 


E  10 


M  14 


N  1 
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3 

>, 

5 

6 
y 

8 
9 
10 
11 
■  2 
13 
■^ 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE   TMPREM  -  CFE  PARSE  REMOTE  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979.  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

TH'S  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  HAY  BE  USED  AND  COPIED 
0  Y  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INf    HON  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 

and  sho  not  be  construed  as  a  commitment  by  digital  equipment 
corporat;  .. 

digital  assumes  no  responsibility  for  the  use  or  reliability  of  its 
software  on  equipment  which  is  not  supplied  by  digital. 

module  description: 

state  table  to  parse  the  remote  definitions 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
L/E^iet-11M-PIus  V5.0 
Dtt-et-MiVro/RS)!   Vl.O 


N  2 
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10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2-^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  TMPRCU  -  CFE  PARSE  ROUTING  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  ROUTING  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY. 

1.00  ■  "DEC-79 

DECNET-11M/S  V3.0 
DECNET-llM-PLUS  VI. 0 

3.00  16-APr,'8' 

DECNET-  •  '3.1 
DECN:i"-  ■'■   PLUS  VI.  1 

4.00  07-NOV-3i 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DFCnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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1 
2 

t, 
5 
6 
7 
8 
9 
10 

n 

12 
13 

u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 


.TITLE  TMPSER  -  CFE  PARSE  REMOTE  CHARACTERISTICS  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 


COPYRIGHT  (C)  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION, 


MAYNARD,  MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  .S  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  REMOTE  CHARACTERISTICS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DE"net-Micro/RSX  VI. 0 


OF   ITS 


L 


TMPSER     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:42 
SYMBOL  CROSS  REFERENCE 


N  4 

PAGE  1 

CREf   04.00 


Tf 
Sf 


SYMBOL  VALUE 

CS.SER  =  ***** 

DADDR 

OCT 

ENDHEX 

HEXSTR 

HOSADD 

HOSARE 

PAS 

REJ 

SERDV 

SERFLG 

SERKTB 

SERSTB 

SETADD 

SETARE 

SF.ADD 

SF.CIR 

SF.DEV 

SF.DPA 

SF.DPC 

SF.HAD 

SF.HST 

SF.PH3 

SF.PSS 

STCIR 

STHAO 

S$ADD 

S$CIR 

SSDEV 

SSDPA 

S$PPC 

S$Fl.G 

S$HAD 

SSHST 

SSLEN 

S$PSS 

S.LENX 

SALPHA 

$ANY 

$BLAN< 

SBYTMN 

SCATS 

SDIGIT 

SDNUMB 

$EOS 

SERROR 

SEXiT 

SFAIL 

SGPRM 

SLAMDA 

SNUMBR 

$RAD50 


GX 


000344  R 
000366  R 
000022  R 
000002  R 
000140  R 
000176  R 
000414  R 
000242  R 
000322  R 
000000  R 
000000  RG 
000000  RG 
000146  R 
000204  R 
000001 
000010 
000020 
000100 
000200 
000004 
000002 
000400 
000040 
000250  R 
000402  R 
000006 
000022 
000032 
000050 
000054 
000004 
000012 
000010 
■   000056 
000034 

:  ****** 

:  000022 
:  000020 
:  000006 


GX 


****** 
****** 
000024 
000014 
000012 

****** 

000000 
177777 

****** 

OOOJO 
000002 
000016 


GX 
GX 


GX 


REFERENCES 

6-243 
#9-378 
#9-391 
#4-89 
#4-88 
#7-275 
#7-303 
#10-418 

7-280 
#9-364 
#4-87 
#5-96 
#5-96 
#7-277 
#7-305 
#4-74 
#4-77 
#4-78 
#4-80 
#4-81 
#4-76 
#4-75 
#4-82 
#4-79 
#8-336 
#10-414 
#4-61 
#4-64 
#4-65 
#4-67 
#4-68 
#4-60 
#4-63 
#4-62 
#4-69 
#4"66 

6-244 
#5-96 
#5-96 
#5-96 
•6-244 

9-365 
#5-96 
#5-96 
#5-96 
•6-253 
#5-96 
#5-96 

5-96 
#5-96 
#5-96 
#5-96 


7-282 

•6-237 
6-247 
6-248 


#7-318 
6-251 


8-337 


7-278 

8-336 

8-336 

•9-379 

*9-392 

•6-251 

10-414 

7-275 

6-238 

10-418 


7-306 

8-339 

•9-367 

*9-380 


7-303 


*6-254 
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SETCNT  -  SET  THE  CONTROLLER  NUMBER 


321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

53A  000535 

335 


.SBTTL  SETCNT  -  SET  THE  CONTROLLER  MUMBER 

•**  -  SETCNT  -  SET  THE  CONTROLLER  NUMBER 

INPUT: 

.PNUMB  =  CONTROLLER  NUMBER 

.PNUMH  =  CONTROLLER  NUMBER  (HIGH  ORDER) 

;  OUTPUT: 

THE  CONTROLLER  NUMBER  IS  STORED  IN  SSLCNT  OF  THE  TEMPLATE. 

SETCNT:  $GTNMB  #S$LCNT 
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113 

000006 

IK 

000007 

IIS 

000010 

lift 

000011 

^u 

000012 

118 

oooou 

114 

i;^o 

000036 

C.FLG: 

.BLKB   1 

C.CST: 

.BLKB   1 

C.APR: 

.BLKB   1 

.BLKB   1 

C.HTM: 

.8LKW   1 

.8LKW   1 

STATION  FLAGS 

STATION  COST 

ACTIVE  POLLING  RATIO 

AVAILABLE 

HELLO  TIMER 

UNUSED 


000016 


C.LEN=. 


.PSECT 
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1 
2 
3 

li 
5 
6 
7 
8 
9 
10 
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12 
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H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
57 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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.TITLE  TMPSVC  -  PARSE  SWITCHED  VIRTUAL  CIRCUIT  MACRO 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  SWITCHED  VIRTUAL  CIRCUIT  DESCRIPTOR 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-AUG-81 

"uCNET-llM/S  V3.1 
OECNET-llM-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet-llM-Ptus  V3.0 
DECnet-Mkro/RSX  VI. 0 


N  8 

TMPUNT  -  CFE  PARSE  UNIT  DEMNIT  MACRO  V05.03b  Saturday  29-Jun-85  05:4^ 
Table  ot  contents 

SETUP  UNIT  TEMPLATE 

SET  UP  UNIT  NUMBER 

SETUP  THE  CHARACTERISTICS  WORD  0 

SET  THE  CHARACTERISTICS  WORD  1 

SET  THE  SECONDARY  CSR  ADDRESS 

SET  THE-  LINE  COST 

SET  THE  LINE  DEAD  POLLING  RATIO 

SET  THE  PROTOCAOL  EMULATOR  CHARACTERISTICS 


6- 

150 

STMUNT 

l- 

180 

SETUNT 

R- 

206 

SETCWO 

9- 

228 

5ETCW1 

:()- 

253 

SETCSR 

11- 

278 

SETCST 

V- 

303 

SETDPR 

M- 

328 

SETPCH 

TMPUNT     CRUTED  BY  MACRO  ON  29-JUN-85  AT  05:45 
SYMBOL  CROSS  REFERENCE 


N  9 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CS.UNT 

r    ****** 

GX 

6-170 

C.CSR 

000012 

#4-85 

*10-?69 

C.CST 

OOOOK 

#4-86 

*ll-294 

C.CWO 

000006 

#4-83 

*8-222 

C.CUI 

000010 

#4-84 

*9-2^L 

C.DPR 

000016 

#4-87 

M2-319 

C.LEN 

=  000026 

#4-91 

6-165 

C.PCH 

000024 

#4-90 

•13-344 

C.STS 

:     *♦***♦ 

GX 

*10-270 

•11-295 

♦12-320 

•13-345 

CUNT 

000004 

#4-82 

•7-198 

MXCSTL 

::      ****** 

GX 

11-298 

SETCSR 

000172 

R 

#10-267 

SETCST 

000236 

R 

#11-292 

SETCWO 

000116 

R 

#8-220 

SETCWl 

000144 

R 

#9-245 

SETDPR 

000302 

R 

#12-317 

SETPCH 

000344 

R 

#13-342 

SETUNT 

000062 

R 

»7-196 

TEMP 

000000 

R 

#4-74 

UNTKTB 

000000 

RG 

#5-99 

6-172 

UNTSTB 

000000 

RG 

#5-99 

6-173 

UNtCST 

=  ****** 

GX 

11-295 

UNSDPR 

-  ****** 

GX 

12-320 

UNSPCH 

r     ****** 

GX 

13-345 

UNSSCS 

-     ****** 

GX 

10-270 

$ALPHA 

=  000022 

#5-99 

$ANY 

=  000020 

#5-99 

$8LANK 

=  000006 

#5-99 

SDIGIT 

=  000024 

#5-99 

$DNUMB 

=  000014 

#5-99 

SEOS 

=  000012 

#5-99 

SERROR 

-      ****** 

CX 

*6-176 

SEXIT 

=  000000 

#5-99 

SFAIL 

=   177777 

#5-99 

$GPRM 

=      *♦♦*♦* 

5-99 

SLAMDA 

=  000000 

#5-99 

SNUMBR 

=  000002 

#5-99 

$RAD50 

=  000016 

#5-99 

SRONLY 

-      ****** 

5-99 

5-99 

5-99 

SSTRNG 

=  000004 

#5-99 

SSUBXP 

=  000010 

#5-99 

STALOC 

-    ****** 

GX 

6-166 

STMUfvT 

0Ar'-,o2 

RG 

#6-163 

S$$FLG 

=   i?,V77 

#5-99 

$$$KEY 

=   177777 

#5-99 

.FLAGS 

=      **^  **  * 

GX 

*6-169 

.PNUMB 

-      ****** 

GX 

7-198 
12-323 

7-201 
13-344 

8-222 
13-348 

9-247 

.PNUMM 

-      ****** 

GX 

7-199 

8-223 

9-248 

10-271 

.TEMP 

-      ♦♦**** 

GX 

•6-167 

7-197 

8-221 

9-246 

.TPARS 

~        «♦•  *  •  V 

GX 

6-174 

10-269 

10-273 

11-294 

11-298 

12-319 

11-296 

12-321 

13-346 

10-268 

11-293 

12-318 

13-343 

TMPX2P  CREATED  BV     MACRO     ON  29-JUN-85  AT   05:45 

SYMt,)L    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CS.UN! 

r    ****** 

6X 

8-314 

CS.X2P 

=     ****** 

GX 

7-252 

C.BSZ 

OOOOU 

#5-139 

8-288 

C.HBT 

000022 

#5-142 

^-??4 

C.LEN 

=  00002A 

#5-143 

7-247 

C.LIN 

000004 

#5-136 

•7-253 

C.RTC 

000016 

#5-140 

8-290 

C.RTT 

000020 

#5-141 

8-292 

C.WSZ 

000012 

#5-138 

8-286 

ERriBSZ 

000065 

R 

#5-152 

ERRHBT 

000231 

R 

#5-155 

ERRLIN 

000000 

R 

#5-150 

ERRRTC 

000120 

R 

#5-153 

ERRRTT 

000162 

R 

#5-154 

ERRWSZ 

oooo-.o 

R 

#5-151 

EXSSEV 

=  000004 

#5-149 

5-150 

SETBSZ 

000426 

R 

#8-288 

SETCON 

000542 

R 

#8-312 

SETDEV 

000526 

R 

#8-310 

SETHBT 

00G506 

R 

#8-294 

SETRTC 

nnr..46 

R 

#8-290 

SETRTT 

-    J466 

R 

#8-?92 

SETUNI 

000562 

R 

#8-314 

SETUSZ 

000406 

R 

#8-?86 

X2PKTB 

000000 

RG 

#6-164 

7-256 

X2PSTB 

000000 

RG 

#6-164 

7-257 

SALPHA 

=  000022 

#6-164 

$ANY 

=  000020 

#6-164 

SBLANK 

=  000006 

#6-164 

SCFERR 

r     ****** 

GX 

7-262 

SDIGIT 

=  000024 

#6-164 

SDNUMB 

=  000014 

#6-164 

$EOS 

=  000012 

#6-164 

SERROR 

~      ****** 

GX 

*7-263 

*7-264 

SEXIT 

=  000000 

#6-164 

Si-AIL 

=   177777 

#6-164 

SGPRM 

=      ****** 

6-164 

SGTNUM 

=      ****** 

GX 

8-286 

8-288 

$GTR50 

ZT       ****** 

GX 

8-310 

SLAMDA 

=  000000 

#6-164 

SNUMBR 

-  000002 

#6-164 

$RAD50 

=  000016 

#6-164 

SRONLY 

-   ****** 

6-164 

6-164 

SSTRNG 

=  000004 

#6-164 

SSUBXP 

=  000010 

#6-164 

STALOC 

-    ****** 

GX 

7-248 

$TMX2P 

000276 

RG 

#7-245 

$$$FLG 

=   ^77777 

#6-164 

$$$KEY 

=    ^77777 

#6-164 

.ERROR 

—   ****** 

GX 

*7-254 

7-260 

.FLAGS 

-    ****** 

GX 

» 7-2 51 

8-314 

.TEMP 

=    ,»*«.* 

GX 

♦7-249 
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8-310 


8-312 


8-314 


5-151 


5-152 


5-153 


5-154 


5-155 


8-290 


6-164 


8-292 


8-294 


8-312 


8-314 


TMPX29     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:46 
SYMBOL  CROSS  REFtRENCE 


N  11 

PAGE  T 

CREF   OA.OO 


SYMBOL  VALUE 


CS.X29 

C.STS 

ERRCT 

ERRMXC 

EXSSEV 

SETC: 

SETMXC 

X$9CT 

Xt9LEN 

X$9MXC 

X29KTB 

X29STB 

SALPHA 

tANY 

SBLANK 

SCFERR 

SDIGIT 

SDNUMB 

$EOS 

SERROR 

tEXIT 

SFAIL 

SGPRM 

SGTNMB 

SGTNUM 

SLAMDA 

SNUMBR 

$RAD50 

SRONLY 

SSTRNG 

$SUBXP 

STALOC 

$TMX29 

S$$FLG 

$$$KEY 

.ERROR 

.TFMP 

.TPARS 


»..««♦  GX 
•»♦♦»•  GX 

000042  R 
OOOOOO  R 
000004 
000216  R 
000176  R 
*«»♦»♦  GX 
»»*«♦»  GX 
»**»*»  GX 
OOOOOO  RG 
OOOOOO  IG 

00002: 

000020 
000006 

000024 
000014 
000012 


GX 


GX 


OOOOOO 
■{77777 

****** 
****** 
****** 

OOOOOO 
000002 
000016 
****** 
000004 
000010 

****** 

000102  RG 
■\777n 
}77777 
******     GX 
******     GX 
.*..•*     GX 


GX 
GX 


GX 


REFERENCES 

7-187 
♦7-187 
#5-134 
#5-133 
#5-132 
#8-214 
#8-212 

8-214 

7-184 

8-212 
#6-143 
#6-143 
#6-143 
#6-143 
#6-143 

7-195 
#6-143 
#6-143 
#6-143 
*7-196 
#6-143 
#6-143 

6-143 

3-214 

8-212 
#6-143 
#6-143 
#6-143 

6-143 
#6-143 
#6-143 

7-185 
#7-182 
#6-143 
#6-143 

7-193 

»7-186 

7-191 


5-133 


7-189 
7-190 


•7-197 


5-134 


6-143 


6-143 
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SYMBOl    CROSS   REFERENCE 


N  12 

PAGE    1 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

CS.X3P 

=  ****** 

GX 

7-281 

C.CT 

000012 

#5-139 

8-332 

C.DFP 

000004 

#5-135 

8-324 

C.UW 

000010 

#5-137 

§-^?§ 

C.KM 

000016 

#5-143 

8-340 

C.KT 

000013 

#5-140 

8-"^ 

C.LEN 

=  000021 

#5-146 

7-278 

C.MW 

000011 

#5-138 

8-330 

C.MXP 

000006 

#5-136 

8-326 

C.RM 

000017 

#5-144 

8-342 

CRT 

000014 

#5-141 

8-336 

C.SM 

000020 

#5-145 

8-344 

C.ST 

000015 

#5-142 

8-338 

C.STS 

=  ****** 

GX 

•7-281 

ERRCT 

000216 

R 

#5-157 

ERRDFP 

000000 

R 

#5-153 

ERROW 

000106 

R 

#5-155 

ERRKM 

000427 

R 

#5-161 

ERRKT 

000257 

R 

#5-158 

ERRMW 

000152 

R 

#5-156 

ERRMXP 

000043 

R 

#5-154 

ERRRM 

000473 

R 

#5-162 

ERRRT 

000321 

R 

#5-159 

ERRSM 

000540 

R 

#5-163 

ERRST 

000363 

R 

#5-160 

EXSSEV 

=  000004 

#5-152 

5-153 

5-154 

5-161 

5-162 

5-163 

SETCT 

001004 

R 

#8-332 

SETDFP 

000704 

R 

#8-324 

SETDW 

000744 

R 

#8-328 

SETKM 

001104 

R 

#8-340 

SETKT 

001024 

R 

#8-334 

SETMW 

000764 

R 

#8-330 

SETMXP 

000724 

R 

#8-326 

SETRM 

001124 

R 

#8-342 

SETRT 

001044 

R 

#8-336 

SETSM 

001144 

R 

#8-344 

SETST 

001064 

R 

#8-338 

X3PKTB 

000000 

RG 

#6-172 

7-283 

X3PST8 

000000 

RG 

#6-172 

7-284 

SALPHA 

=  000022 

#6-172 

$ANY 

=  000020 

#6-172 

SBLANK 

=  000006 

*6-172 

SCFERR 

=  ****** 

GX 

7-289 

SCIGIT 

=  000024 

#6-172 

SDNUMB 

=  000014 

#6-172 

$EOS 

=  000012 

#6-172 

SERROR 

r  ***■■.** 

CX 

*7-290 

•7-291 

SEXIT 

=  000000 

#6-172 

SFAIL 

^   177777 

#6-172 

SGPRM 

-   ****** 

6-172 

SGTNMB 

=   .»**»* 

GX 

8-328 

8-J30 

8-332 

5-155 


5-156 


5-157 


5-158 


5-159 


5-160 


8-334 


8-336 


8-338 


8-340 


8-342 


8-344 
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MACRO  CROSS  REi^ERENfE  CREF   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 

#5-117 

#5-162 

EPRINT 

#4-75 

LRRORt 

#4-64 

1STAT$ 

#4-88 

5-117 

•ITRANt 

#5-117 

PRINT 
STATES 

#4-59 
#4-88 

5-121 

#5-124 

#5-127 

#5-130 

#5-133 

#5-136 

#5-139 

#5-148 

#5-151 

#5-154 

#5-157 

#5-160 

#5-163 

#5-165 

#5-172 

TRANS 

#4-88 

#5-122 

#5-125 

#5-128 

#5-131 

#5-134 

#5-137 

#5-140 

#5-149 

#5-152 

#5-155 

#5-158 

#5-161 

#5-162 

#5-164 

#5-166 

#5-142    #5-145 
#5-143     #5-146 


UPOCN^ 


N  U 
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1 
2 
3 

4 
5 
6 
7 
8 
9 

10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
?8 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  UPDCNT  -  CfE  UPDATE  CONTROLLER  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

COPVRIGHT  (C)  1979,  1980,  1982,  1983,  1985  Br 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  CONTROLLER  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl  ' 

4.00  07-NOV-83 

DELNET-11M  V4.0 
DECNET-11M-PLU5  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  V1.0 
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Tabi e  of  contenrs 

i.-  57    MACRO  CALLS  AND  LOCAL  DATA 

A-  58    MACRO  DEFINITIONS 

5-  1^1     LOCAL  DATA  ,„   ,, 

6-  152    tUPCUG  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 


TMPREM 


2 
2 
2 

2 
2 
G  2 


2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
5 
3 
3 

<; 

A 
4 

U 

5 
5 
5 
5 
5 
5 
=; 
5 


TMPROU 


TMPSER 


TMPSLT 


K 

5 

L 

5 

M 

5 

N 

5 

B 

6 

C 

6 

D 

6 

E 

F 

§ 

G 

^ 

H 

6 

I 

6 

J 

6  TMPSTA 

K 

6 

L 

6 

M 

6 

N 

6 

B 

7 

C 

7 

D 

7 

E 

7 

F 

7 

G 

7 

H 

7 

I 

7 

J 

7 

K 

7 

L 

7  TMPSVC 

M 

7 

N 

7 

B 

8 

C 

8 

D 

8 

E 

8 

F 

8 

G 

8 

H 

8 

I 

8 

J 

8 

K 

8 

L 

8 

M 

8  TMPUNT 

N 

8 

B 

9 

C 

9 

D 

9 

E 

9 

F 

9 

G 

9 

H 

9 

I 

9 

J 

9 

K 

9 

L 

9 

M 

9 

N 

9 

B 

10 

C 

10  TMPX2P 

10 
10 
10 


VA 


10 
10 
10 


M  10 
N  10 

B  r 

C  1 


F  1 
G  1 
H  1 
1  1 


L  1 
M  1 
N  1 
B  12 


12 
12 


TMPX29 


TMPX3P 


D  10 


Mi 

SI 
I  ■ 

K 


N  1 

B  1? 

n 

6 

H 

I 

J 

K 

L 

M 

N  13 

B  H 

C  U 

D  U 

'  1^ 
J* 

u 

u 

u 
11 


UPDSUF 


UPDCHN 


M  U 
N  U 
B  15 

D  15 
E  15 
F  15 
G  15 
H  15 
1  15 
J  15 
K  15 
L  15 
M  15 
N  15 
B  16 
C  16 

0  16 
E  16 
F  16 
G  16 
H  16 

1  16 
J  16 
K  16 
L  16 
M  16 


UPDCUG 


UPRDDM 


UPDCMT 
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000013  C.NCT:   .8LKB   1  ;  NUMBER  OF  CONTROLLER  TABLES 

,5        OOOOH  C.LEN=. 

IK  000102  .PSECT 
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05:4f 
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•  ♦F1LE«»ID««UPDD-;C 


UPC 
SEl 


UU    uu 

pppppppp 

DDDDDDDD 

DDDDDDDD 

EEEEEEEfc'EE 

CCCCCCCC 

uu    uu 

PPPPPPFP 

DDDDDDDD 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC 

uu    uu 

pp    PP 

DD 

DD 

DD 

DD 

EE 

uu    uu 

PP    pp 

DD 

DD 

DD 

DD 

EE 

uu    uu 
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DD 

DD 

DD 

DD 

EE 

uu    uu 
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DD 

DD 

DD 

DD 

EE 

uu    uu 

pppppppp 

DD 

DD 

DD 

DD 
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pppppppp 

DD 

DD 

DD 

DD 
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pp 

DD 

DD 

DD 

DD 

EE 

uu    uu 

pp 

DD 

DD 

DD 

DD 

EE 

uu    uu 

pp 

DD 

DD 

DD 

DD 

EE 

uu    uu 

pp 

DD 

DD 

DD 

DD 

EE 

uuuuuuuuuu 

pp 

DDDDDDDD 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC 

uuuuuuuuuu 

pp 

DDDDDDDD 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC 

SSSSSSSS 

TTTTTTTTH 

SSSSSSSS 

TTTTTTTTTT 

SS 

ss 

SS 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

Sj 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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UPI 
5E 
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SETDEW  -  DELAY   WEIGHT 


306 
507 
308 
309 
510 
311 
512 
513 
31A 
315 
516 
517 

518  000550 

519  000550 

520  00055A 
321  000556 
522  0005A2 
525  0005A6 
524  000352 
325  000556 


.SBTTL   SETDEW  -  DELAV  WEIGHT 

*«*  -  SETDEW  -  SEIUP  DELAY  WEIGHT 

INPUT: 

TEMP  =  TEMPLATE  ADDRESS 

SOeU'^  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 

OUTPUT: 


016702 
005001 
156201 
016700 
00A767 
010067 
000207 


1774AA 

000017 
OOOOOOG 
OOOOOOG 
OOOOOOG 


SETDEW: 


MOV 

TEMP,R2 

CLR 

Rl 

BISB 

r.DELW(R2),R1 

MOV 

SOBUF.RO 

CALL 

SCNVD 

MOV 

RO,$OBUF 

RETURN 


GET  START  OF  TE^'PLATE 
GET  DELAY  WEIGHT 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


UPDDEi  -  CFE  UPDATE  DECIDE  DEF 
SETIPL  -  INPUT  PACKET  LIMITER 


MACRO  V05.03b  Saturday  29-Jun-85  05:49  Page  U 
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T; 


96 

97 

98 

99 
100  000020 
101 

102  000020 

103  000020 
10A 

105  000020 

106  000020 
107 

108  000020 

109  000020 
110 

111  00002C 

112  000020 
113 

11A  000020 

115  000020 

116  000020 
117 

118  000020 

119  000020 
120 

121  000020 

122  000020 

123  000020 

124  000020 

125  000020 
126 

127  000020 

128  000020 
129 

130  OOOO'O 

131  000020 
13? 

133  000020 
13A  000020 
135  000020 
136 

137  000020 

138  000020 

139  000020 
UO 

iAl  000020 

IA2  000020 

143  000020 

U4 

U5   000020 

1 46  00C020 

147 

148  000020 

149  000020 
150 

151  000020 

152  000020 


INITIALIZE  TABLE  GENERATION 
*** 

ISTATS 

DLCST8,DLC<TB 

STATES 
TRANS 

SRAD50,,SETNAM 

STATES 
TRANS 

<',>,, SMOVPT 

STATES 
TRANS 

'.If 

STATES 
TRANS 

"DLC" 

STATES 
TRANS 
TRANS 

BITS 

•!,BITO 

SLAMDA, PRIOR, SETFLG 

STATES 
TRANS 

BITO 
IZF 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 

"TIM", BITS 
"MFL",BITS 
"COU",B!TS 
"MAN", BITS 

STATES 
TRANS 

PRIOR 
<',>,, SMOVPT 

STATES 
TRANS 

SNUMBR,,SETPRI 

STATES 
TRANS 
TRANS 

SEOS,EXIT 
<',>,, SMOVPT 

STATES 
TRANS 
TRANS 

SNUMeR,NCT,SCTNLT 
SLAMDA 

STATES 
TRANS 
TRANS 

NCT 

SEOS,EXIT 
<',>,, SMOVPT 

STATES 
TRANS 

SNUMeR,EXIT,SETNCT 

STATES 
TRANS 

ZF 
"ZF" 

STATES 
TRANS 

'.,$EXIT 

;    NUMBER  OF    CONTROLLER   UBLES 
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Table  ot  contents 

A-       57  MACRO   CALLS   AND  LOCAL    DATA 

4-  58    MACRO  DEFINITIONS 

5-  131    LOCAL  DATA 

6-  153    SUPDSA  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 
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UPt)D5C   -  UPDATE   DESIINATION   CAL  MACRO  V05.03b   Saturday   29-Jun-85 
MACRO  DEHNITIONS 


u 


0     Page  ^l-l 


IK 
115 
116 
117 
118 
119 
120 
121 
122 
125 
124 
125 
126 
127 
128 
129 


PUT  RAD50  TEMPLATE  FIELD  TO  SUFFER 
OFS,WC,OPT,?L 


.MACRO 

$PTR50 

.IF  MB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTCPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

MOV 

WC.RI 

CALL 

$PTR50 

.IFT 

.ENDC 

.EMDM 

UPUDSC  -  UPDATE  DESIINATION  CAL  MACRO  V05.03b  Saturday  29-Jun-8'i 
LOCAL  DATA 


U 


0  Page  5 
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ymboL  table 


C,  .TS<= 
C.LEN  = 
C.NAM 
C.OB  J 
C.PR! 


******  (^x 
000020 
000006 
00001 3 
U00012 


.  ABS   000020 
00021 A 
Errors  detected; 


000 
001 
0 


C.TSK   00001A 
C.TYP   000004 
DSTDF   OOOOOOR 
DSTLN  =  000010 
F.NRBD=  »»**»*  GX 

(RU,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON> 


SBUfI  =  ***•*♦  GX 
$MVASC=  •****♦  GX 
$OBUF  =  »**«**  GX 
$OFDB  =  ******  GX 
$PTNMB=  »♦*•*»  GX 


$PTOPT=  ******  GX 

$PTR50=  ******  GX 

$UPDST  000010RG 

$WDATA=  ******  GX 


.BUFF  =  ******  GX 

.COMMA=  ******  GX 

.FLAGS=  ******  GX 

.TEMP  =  ******  GX 


*»*  Assembler  statistics 


Work   file   reads:  0 

Work  file  writes:  0 

Size  of  work  f'le:  8830  Words   (  35  Pages) 

Size  of  core  pool:  KAAO  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:05.38  ^  ,^ 

SY:UPDDST.V2,[132,13A]UPDDST/CR/-SPi3Y::i,1]RSX,»1CM. 


;  /ML , L 1 30 , 1 1 0]NE  TL IB/ML , [ 1 32 , 1 0IUPDD  S  r 


UPODST 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:51 


PAGE  1 


C  7 
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MACRO  CROSS   REFERENCE 
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CREF        04.00 


MACRO  NAMfc 

REFERENCES 

CALLR 

#4-132 

EPRINT 

#4-79 

ERRORt. 

#4-68 

PRINT 

#4-63 

SPTNMB 

#4-112 

tPTNUM 

#4-111 

6-190 

6-191 

;-230 

$PTR50 

#4-116 

6-188 

6-193 

7-226 

$$$PTN 

#4-91 

4-111 

4-112 

UF 
S^ 
S' 


7-236 


7-242 
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**FILE«MD*«UPDEVT 


UPDEVT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:51 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


BUFF 
CONL 
CONSLE 
CS.EVT 
C.CL5 
C.EVT 
C.LEN 
SNK 
5TS 
EVTDEF 
EVTDF 
EVTKTB 
EVTLEN 
EVTLN 
EVTOFF 
EVrSTB 
FF.ADD 
FF.CIR 
FF.CCN 
FF.FIL 
FF.HST 
FF.LIN 
FF.MOD 
F  F . MON 
FF.MS< 
fF.PRT 
FF.QUL 
FF.REM 
FILE 
FILEL 
F.ADD 
F.CEV 
F.CIR 
F.CLS 
F.EVT 
F.FLG 
F.LEN 
F.LIN 
.LNK 
F.MOD 
F.NRBD 
F.REM 
F.SEV 
LA 

MONITR 
MONL 
RA 

SETCLS 
5ETMS< 
SETNUM 
SETSN*; 
TEMP 


000062  A 
=  000007 
000053  R 

r  ****** 

000004 

000006 

=  000020 

0OOC16 


GX 


****** 


GX 


000004 
000030  R 
000000  RG 

=  000023 

=  000010 
000002  R 
000000  RG 

=  000020 

=  000040 

=  000001 

=  000002 

=  040000 

=  000010 

=  000100 

=  000004 

=  00007/ 

=  000200 

=  000370 

=  100000 
000047  R 

:--  000004 
000016 
000030 
000024 
000002 
000004 
000014 
000016 
000020 
000000 
000022 


000026 

000004 

=  000074 

000040  ft 
=  000007 
^  000076 
000360  R 
000400  R 
000422  R 
000440  R 
000000  R 


GX 


REFERENCES 

#5-95 
*5-94 
#5-93 

7-176 
#5-104 
#5-105 
#5-107 
#5-106 

7-176 
#5-85 
#5-87 
#6-118 
#5-86 
#5-88 
#5-84 
#6-118 
#4-71 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#5-91 
#5-92 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
#4-73 
*7-170 
#4-73 
#4-73 
#5-81 
#5-89 
#5-90 
#5-82 
#8-220 
#9-240 

8-223 
#11-279 
#5-83 


7-170 

11-292 

5-94 

8-222 
8-221 

11-281 

5-86 
5-88 
7-189 
7-190 
7-185 
♦8-221 
7-192 
4-73 
4-73 

11-289 

4-73 
4-73 
11-285 

4-73 


5-92 
11-288 


»7-199 


5-90 
11-284 


9-244 
*7-182 
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7-183  7-198 

11-291 


7-191 
7-184 


9-241 


*9-243 


11-287 


•7-203 


11-283 


#10-258 
8-220     9-240 


11-280 


UPDEVT 
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Tabic  ot  contents 


126 
170 


SUPFEA  -  UPDATE  FEATURES  DEFIMITION 
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SEOS 
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SERROR 

- 

****** 

GX 
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lEXlT 

:; 

000000 

#5-94 

tFAlL 

= 

177777 

#5-94 

$GPRM 

= 

****** 

5-94 

SLAMDA 

- 

000000 

#5-94 

SMOVPT 

- 

****** 

GX 

7-240 

SMOVST 

r 

****** 

GX 

6-211 

SMVASC 

- 

**  +  *  *  * 

GX 

8-267 

8-272 

8-277 
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SNUMBR 

~ 

000002 

#5-94 

SOBUF 

= 

****** 

GX 
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13-406 

9-324 
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SOFDB 

- 
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GX 
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#5-94 
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****** 
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5-94 
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#5-94 

SSUBXP 
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000010 

#5-94 

tTMLSI 

- 

****** 

GX 

6-196 

SUPLLC 
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RG 

*6-195 

SZMFL 

r 

****** 

GX 

8-275 

$7MFlL 

r 

****** 

GX 

8-276 

$ZTIM 

r 

*****' 

GX 

8-270 

SZTIML 

r 

**  t »  *♦ 

GX 

8-271 

$S$FLG 

r 

177777 

#5-94 

$S$<EY 

- 

177777 

#5-94 

.CONER 

- 

****** 

GX 

6-224 

.PSTPT 

r 

****** 

GX 

7-241 

.TPARS 

****** 

GX 

6-216 
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MACRO  NAME 

REFERENCES 

DBGTPS 
ISTATS 
MTRANS 

#5-101 
#4-69 

#5-101 

#5-127 
5-101 

#5-140 

#5-155 

PRINT 
STATES 

TRANS 

#4-60 
#4-65 
#5-132 
#4-69 

#5-130 

5-104 
#5-135 
#5-105 
#5-133 

#5-107 
#5-138 
#5-108 
#5-136 

#5-110 
#5-142 
#5-111 
#5-139 

#5-115 
#5-145 
#5-114 
#5-140 

#5-116 
#5-150 
#5-117 
#5-143 

#5-119 
#5-153 
#5-120 
#5-146 
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#5-157 
#5-123 

#5-151 

#5-125 
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#5-155 

c  u 

♦*FILE«*ID«'UPD08J 


UPDOBj     created  by  macro  on  29-JUN-85  AT  05:5^ 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


BUFF 

CS.OBJ 

C.CPY 

C.FLG 

C.LEN 

C.NAM 

C.STS 

C.TYP 

F.NRBD 

LA 

OBJDEF 

OBJDF 

GBJKTB 

OBJLEN 

OBJLN 

08JSTB 

RA 

SETCPY 

SETfLG 

SETNAM 

SETVFY 

SETYPE 

TEMP 

SALPHA 

SANY 

SBLANK 

$BUFI 

SCNVD 

SCNVO 

$C5TA 

SDIGIT 

SDNUMB 

$EOS 

SERROR 

SEXIT 

SFAIL 

$GPRM 

SLAMOA 

IMVASC 

SNUMBR 

$OBUF 

SOFDB 

$RAD50 

SRONLY 

SSTRNJG 

$SUBXP 

STMlST 

$'JP0BJ 

SiJDATA 

$$$F,G 

StSREV 


GX 


GX 


000027  R 

****** 

000012 
000005 
000013 
000006 
****** 
0000C4 
«***•*  GX 
00007A 
000002  R 
000017  R 
000000  R6 
00001A 
000010 
OOOOOC  RG 
000076 
00053^  R 
000500  R 
000356  R 
000A4A  R 
000326  R 
000000  R 
000022 
000020 
000006 


-  ****** 


00002A 
OOOOU 
000012 

000000 

\nm 

OOJOOO 

»**•  +  ** 

000002 


=  000016 


GX 
GX 
GX 
GX 


GX 


GX 
GX 


GX 


OOOOOA 
000010 
******  GX 
000150  RG 
******   (ix 
177777 
177777 


REFERENCES 

#A-81 

6-160 
#4-93 
#A-91 
#4-95 
#4-92 

6-160 
#4-90 
»6-154 
#4-74 
#4-77 
#4-79 
#5-104 
#4-78 
#4-80 
#5-104 
#4-75 
#11-312 
#10-287 
#8-229 
#9-262 
#7-205 
#4-76 
#5-104 
#5-104 
#5-104 

6-187 

7-210 

9-268 

8-239 
#5-104 
#5-104 
#5-104 
*6-179 
#5-104 
#5-;04 

5-104 
#5-104 

6-170 
#5-104 
•  6-171 
«10-294 
*6-154 
#5-lC4 

5-104 
#5-104 
#5-104 

6-156 
#6-153 

6-184 
#5-104 
#5-104 


6-154 

11-315 
9-266 

8-231 

7-209 
*6-183 

4-78 

4-80 

6-173 

6-174 

6-169 

6-176 


•6-166 


10-293 
8-242 


6-181 
11-313 
•6-183 

5-104 


6-167 

10-291 
8-233 

•6-187 

6-175 
6-168 
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295  000360  010067 

296  000364  000207 
297 


0  MACRO  V05.03b  Saturday  29-Jun-85 


V^^ 


Page  10 


.SBTTL   SETTOP  -  SETUP  TOP  FLAG 
SETTOP  -  SETUP  TOP  FLAG 
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OUTPUT: 


177'<50 

OOOOOOG  OOOOOOG 

OOOOOOG 

000002' 

000003 

OOOOOOG 

OOOOOOG 


SETTOP: 


10$: 


MOV 

en 

BEQ 

MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


TEMP.RO 

#CS. rOP,C.STS(RO) 

10$ 

$OBUF,R0 

#T0PSW,R1 

#T0PL,R2 

$MVASC 

R0,$0BUF 


POINT  AT  TEMPLATE 

;  TOP  DOWN  LOADING  ? 

IF  EQ,  NO  ..  LEAVE 

POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  R1  AT  INPUT  STRING 

AND  LENGTH 

MOVE  STRING  INTO  OUTPUT  BUFFER 

UPDATE  POINIER  INTO  OUTPUT  BUFFER 
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120  000102 

121 

122  000102 

123  000102 
12^ 

12i  000102 
126  000102 
127 

128  000102 

129  000102 
130 

000102 
000102 


131 
132 
133 
134 


.,.   000102 

135  000102 

136  000102 
137 

138  000102 

139  000102 
HO 

1A1  000102 
1A2  000102 
U3  000102 
KA  000102 
U5  000102 
1A6  000102 
1A7  000102 
K8  000102 
K9  000102 

150  000102 

151  000102 

152  000102 
153 

154  000102 

155  000102 
156 

157  000102 

158  OC  02 
159 

160  000102 

161  000102 

162  000102 
163 

164  000102 

165  000102 

166  :00102 
167 

168  000102 

169  000102 

170  000102 
171 

172  000102 
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ISTATS     DDMSTB,DDMICTB 


STATES 
TRANS 

SRAD50,,SErNAM 

STATES 
TRANS 

<■,>,, SMOVPT 

STATES 
TRANS 

IZf 

STATES 
TRANS 

"DDM" 

STATES 
TRANS 
TRANS 

BITS 

■!,BITO 

SLAflDA, PRIOR, SETFLG 

STATES 
TRANS 

BITO 
IZF 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

"TJM",BITS 
"MEL", BITS 
"DLC",BITS 
"MUX", BITS 
"LMC",BITS 
"KMX",B1TS 
"C0U",B1TS 
"PSE",BIT3 
"DIA",BITS 
"DVP",BITS 
"MAN", BITS 

STATES 
TRANS 

PRIOR 
<',>,, SMOVPT 

STATES 
TRANS 

$NUMBR,,SETPRI 

STATES 
TRANS 
TRANS 

SEOS,EXIT 
<',>,, SMOVPT 

STATES 
TRANS 
TRANS 

SNUf-iBR,NCT,SETNLT 
SLAMDA 

STATES 
TRANS 
fRANS 

NCT 
SEOS,E)'!T 

STATES 
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7- 

182 

SETLKS  -  NUMBER  OF  LOGICAL  LINKS  PROCESS  SHOULD  SUPPORT 

a- 

202 

SETNDC  -  NUMBER  OF  NODE  COUNTERS 

q- 

222 

SETINC  -  INCOM  NG  TIMER 

in- 

2^3 

SETOUT  -  OUTGO  NG  TIMER 

11- 

26A 

SETINA  -  INACTIVITY  TIMER 

r?- 

285 

SETDEF  -  DELAY  FACTOR 

M- 

306 

SETDEW  -  DELAY  WEIGHT 

K- 

327 

SETIPL  -  INPUT  PACKET  LIMIIER 

1S- 

3m8 

SETLST  -  LINK  SERVICE  THRESHOLD 

16- 
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V- 
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.SBTTL   SETIPL  -  INPUT  PACKET  LIMITER 
«»  -  SETIPL  -  SETUP  INPUT  PACKET  LIMITER 


UPDDEi-  -  CFE  UP 

3ATE  DEC 

!.DF  DEFl 

SETIPL  -  INPUT 

PACKET  LIMITER 

527 

528 

329 

530 

551 

552 

335 

55^. 

555 

536 

557 

533 

559  000560 

5A0  000560 

016702 

1774K 

5A1  00056A 

005001 

5A2  000566 

156201 

000020 

3A3  000372 

016700 

OOOOOOG 

54A  000376 

00A767 

OOOCOOG 

5'.5  000A02 

010067 

OOOOOOG 

546  000A06 

000207 

INPUT: 


Tr'P   =  TEMPLATE  ADDRESS 

$08UF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


OU'^PUT: 


SETIPL: 


MOV 

TEMP,R2 

CLR 

R1 

BIS8 

C.IPL(R2),R1 

MOV 

$08UF,RO 

CALL 

$CNVD 

MOV 

RO.SOBUF 

RETURN 


GET  START  OF  TEMPLATE 
GET  INPUT  PACKET  LJMITER 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 
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DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
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lil 

152 

133 

134 

135 

136  000000 

137 

138  000000 

139  000002 
HO  000004 
141  000032 
142 

143  000000 

144 

145  000000 

146 

147 

148 

149 


.SQTTl   LOCAL  DATA 


;  DEFINE  THE  DSt.  DESCRIPTOR  BLTCK 


000000 


U00C60 


Oil 
000010 


104 


123 


.ASECT 

.=0 

.BLKW 

1 

.BLKU 

1 

C.MSK: 

.8LKU 

11. 

C.VAL: 

.BLKU 

11. 

C.LEN= 

.PSECT 

.NLIST 

BEX 

DSCDF: 

.ASCII 

<11^/DSC$DF/<11> 

DSCLN=. 

-DSCDF 

-LIST 

BEX 

.EVEN 

C.LN< 

C.STS 

CALL  MASK  (1.-32.  HEX  DIGITS) 

CALL  VALUE  (1.-32.  HEX  DIGITS) 

LENGTH  UF  THE  BLOCK 
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SYMBOL 

VALUE 

REFERENCES 

CS.TSK 

:;:      *  t  *»*  * 

GX 

6-181 

C.ILN 

=  000020 

*5-U5 

C.NAM 

000006 

#5-H1 

6-178 

C.OBJ 

000013 

#5-Ui 

6-180 

C.PRl 

000012 

#5-A2 

6-179 

C.TSK 

OOOOH 

*5-  44 

6-181 

C.TYP 

000004 

#5-140 

6-177 

DSTDF 

000000 

R 

#5-148 

5-149 

6- 

1/3 

DSTLN 

=  000010 

*5-149 

6-174 

F.NRBD 

~    *+**** 

GX 

*6-167 

•6-184 

•6- 

■186 

SBUFI 

=    «■***** 

GX 

6-186 

SMVASC 

-    ****** 

GX 

6-175 

SOBUF 

-    ****** 

GX 

*6-176 

6-18? 

tOFOS 

-    ****** 

GX 

*6-167 

•6-184 

•6- 

•186 

SPTNMB 

=    ****** 

GX 

6-179 

6-180 

SPTOPT 

-    ****** 

GX 

6-181 

$PTR50 

~    ****** 

GX 

6-177 

6-178 

6- 

-181 

SUPDST 

000010 

RG 

#6-166 

SWDATA 

-    ****** 

GX 

6-185 

.BUFF 

-    ****** 

GX 

6-167 

6-172 

6 

-I8i 

.COMMA 

-    ****** 

GX 

*6-171 

.FLAGS 

-    ****** 

GX 

•6-170 

.TEMP 

-    ****** 

GX 

*6-168 
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CREF   DA. 00 


SYMBOL 

VALUE 

REFERENCES 

SALPHA 

; 

000022 

#6-118 

SANY 

= 

000020 

#6-118 

$BLAN< 

r 

000006 

#6-118 

tBUF! 

= 

****** 

GX 

7-203 

tCNVO 

r 

*•*♦*-« 

GX 

10-250 

tDIGIT 

- 

OOOC24 

#6-118 

SDNUMB 

- 

ooon^ 

#6-118 

$FOS 

- 

000012 

#6-118 

SERROR 

- 

****** 

GX 

»7-195 

SEX  IT 

r 

000000 

#6-118 

SFAIL 

r 

177777 

#6-118 

SGPRM 

- 

****** 

6-118 

SLAMDA 

- 

000000 

#6-118 

tMVASC 

- 

****** 

GX 

7-186 

11-293 

$NUMBR 

-- 

000002 

•■<6-118 

SOBUF 

~ 

****** 

GX 

.7-187 

7-197 

10-259 

SOFDB 

r 

****** 

GX 

*7-170 

.7-199 

.7-203 

$RAD50 

r 

000016 

#6-118 

SRONLY 

- 

****** 

6-118 

6-r8 

6-118 

SSTRNG 

000004 

#6-18 

SSUBXP 

- 

000010 

#6-18 

STMLST 

- 

****** 

GX 

7-172 

SUPEVT 

000202 

RG 

#7-169 

SWDATA 

- 

****** 

GX 

7-200 

SSSFLG 

= 

Mim 

#6-118 

$$$KEY 

= 

177777 

#6-118 

.TPARS 

= 

•**.». 

GX 

7-193 

.10-261 


11-282 


.1 1-294 


UPDEVT 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
51 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 

46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   UPDFEA  -  CFE  UPDATE  FEATURES  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 

rOPYRlGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  U  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPOT.SIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  FEATURES  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC~79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI .0 

3.00     16-APR-82 

DECNET-11M   V3.1 
DECNET-11M-PLUS   VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Ptus  V3.0 
DECnet-Mi'cro/RSX  Vl.O 
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90 

91 

92 

95 

9A  00005A 

95 

96  00005^. 

97  00005A 
98 

99  000051 
100  000054 
101 

"  000054 
000054 


000054 
000054 


102 
103 
104 
105 
106 
107 

108  000054 

109  000054 

110  000054 
111 

112  000054 

113  000054 
114 

115  000054 

116  000054 

117  000054 

118  000054 
000054 
000054 
000054 
000054 


119 
120 
121 
122 
123 
124 
125 
126 

127  000054 

128  000054 
129 
130 
131 
132 

133  000054 

134  000054 
135 

136  000054 

137  000054 

138  000054 
139 

140  0OOC54 

141  000054 
"  0C0054 


000054 
000054 


000054 
000054 


142 
143 
144 
145 
146 


000054 
000054 
000054 


"initialize  TABLE  GENERATION 

ISTATS 

LLCST8,LLCKTB 

STATES 
TRANS 

SRAD50,,SErNAM 

STATES 
TRANS 

<',>,,SM0VPT 

STATES 
TRANS 

IZF 

STATES 
TRANS 

"LLC" 

STATES 
TRANS 
TRANS 

BITS 

'I.BITO 

SLAMPA, PRIOR, SETFL6 

STATES 
TRANS 

BITO 
IZF 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

"TIM", BITS 
"MFL",BITS 
"MTM",B1TS 
"COU",BITS 
"X3P",BITS 
"SLI",BITS 
"INI", BITS 

STATES 
TRANS 

PRIOR 
<',>,,SMOVPT 

STATES 
TRANS 

SNUM6R,,SETPRI 

STATES 
TRANS 

<',>,,SnOVPT 

STATES 
TRANS 

$NUM6R,,SETLIN 

STATES 
TRANS 
TRANS 

SEOS,EX!T 
<',>,,SMOVPT 

STATES 
TRANS 
TRANS 

SSTRNCNLT.SMOVPT 
SLAMDA 

STATES 
TRANS 
TRANS 

NLT 

SEOS.E'IT 
<',>,, SMOVPT 

U°DLLC 
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MACRO  C^OSS  REFERENCE  CREf   0^.00 

MACRO  NAME 

D8GTP$ 


REFERENCES 

#5-9A 

#5-110 

#5-117 

#5-U6 

#5-150 

#5-154 

#^-66 

5-9A 

*4-66 

4-68 

#^-66 

4-69 

*5-9A 

#^,-5" 

#A-66 

5-96 

#5-99 

#5-130 

#5-133 

#5-136 

#5-170 

#5-173 

#5-178 

#^-66 

#5-97 

#5-100 

#5-118 

#5-119 

#5-120 

#5-138 

#5-141 

#5-142 

#5-158 

#5-161 

#5-162 

#5-118    #5-119    #5-120    #5-121     #5-122    #5-138    #5-142 
#5-158    #5-162 


ISTATt 
LLCTPS 
MSGDF$ 
MTRANS 

"""       BSo    #^:^^3    ii:'.i    ^    ^n    :r-]ii    ^n    '.t-wi    ^i^    '.tvd 

#4-66.  #5-?L  *5-]00  IIP  #5-106  #5-109  #5-110  #5-113  #5-116  #5-117 

#5-145  #5-146  #5-149  #5-150  #5-153  #5-154  #5-157 

#5-165  #5-171  #5-174  #5-179 


**FILE**ID*»UPDLOG 
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Table  ot  contents 

UPDATE  NODE  DEFINITION 

SET  UP  NODE  NAME 

SET  UP  NODE  ID 

SET  EXEC  AREA 

SET  NODE  NUMBER 

SET  HOST  NODE  AREA 

SET  HOST  NODE  ADDRESS 


(S- 

159 

SUPNOD 

7- 

202 

SETNAM 

H- 

227 

SETNID 

4- 

2';9 

SETNNA 

9- 

275 

SETNNM 

10- 

296 

SETHOA 

10- 

322 

SETHOS 
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SYMBOL    CROSS  REFERENCE  CREF        OA.OO 

SYMBOL      VALUE  REfEREiNiCES 

.TPARS      -    ......      GX  6-177 
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JPDPAR   -   fFE   UPDATE    PARTITION 
5ETSBP  -    SETUP   S8P00L    FLAG 


299 
300 
501 
502 
305 
50^ 
505 
506 
307 
508 
309 
510 
311 


D  MACRO  V05.05b   Saturday  29-Jun-8S 


W.l 


Page  11 


.SBTTL   SETS8P  -  SETUP  SBPODL  FLAG 
••*  -  SETSBP  -  SETUP  SBPOOL  FLAG 
INPUT: 


(TEMP)  =  TEMPLATE  ADDRESS 
(TEMP)K.STS  =  FLAGS  WORD 


00036D 
312  000366 
315  000572 
3K  000376 
315  000A02 

516  000A06 

517  f  •JA12 

518  )0A16 
319 

320 


016700  177406 

016700  OOOOOOG 

012701  000005' 

012702  000006 
00A767  OOOOOOG 
010067  OOOOOOG 
000207 

000001 


OUTPUT: 


SETSBP: 


10$: 


MOV 

TEMP.RO 

MOV 

$08UF,R0 

MOV 

#S8PSW,R1 

MOV 

*S8PL,R2 

CALL 

SMVASC 

MOV 

RO,$OBUf 

RETURN 

POINT  AT  TEMPLATE 

POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  R1  AT  INPUT  STRING 

AND  LENGTH 

MOVE  STRING  INTO  OUTPUT  BUFFER 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


.END 


UPDPAR  -  CFE  UPDATE  PARTITION 
Symbol  table 
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UPDDDM  -  CFE  UPDATE  DEVICE  PROC  MACRO  V05.03b  Saturday  29-Jun-85  05:A8  Page  5-1 

173  000102  TRANS  SNUMSR.EXl r.SETNCT 

17A 

175  000102 

176  000102 
177 

178  000102 

179  000102 
180 
181 
'82 

183  000102 

184  000102 
185 
186  000102  STATES 


STATES 
TRANS 

?,^,., 

STATES 
TRANS 

•..SEXIT 

':    EXIT  STATE 

STATES 
TRANS 

EXIT 

SEOS, SEXIT, SCLNUP 

UPDDDM  -  CFE  UPDATE  DEVICE  PROC  MACRO  V05.03b  Saturday  29-Jun-85  05:48  Page  6 
tUPDDM  -  UPDATE  DDM  DEFINTICM 
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UPI 
SE 


1 
2 
3 
A 
5 
6 

7 

8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 


.TITLE 
.IDENV 


UPDDEC  -  CFE  UPDATE  DECSDF  DEFINITION  IN  CETA8 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTlERWHE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  UPDATE  THE  DECSDF  MACRO 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  26-JUN-84 

MODULE  CREATION 

5.00  22-JUL-85 

DECnet-ilM/S  V4.2 
DECnet-llM-Pi^s  Vi.O 
DECnet-  viicro/RSX  Vi.O 


UPDDEC  -  CFE  UPDATE  DECSDF  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:49  Page 
MACRO  DEFINITIONS 


UP 
SE 


0  3 

CFE  UPDATE  DECSDF  DEFl  MACRO  V05.03b  Saturday  29-Jun-85  05;'.9 


UPDDEC  -  CFE  UP 

DATE  DEC 

$DF  DEFI 

SETLST  -  LINK  SERVICE  T 

HRESHOLD 

3A8 

3A9 

350 

351 

352 

353 

35', 

355 

356 

357 

358 

359 

360  000^10 

361  000410 

016702 

177364 

362  00041 A 

005001 

363  000416 

156201 

000021 

364  000422 

016700 

OOOOOOG 

365  000426 

004767 

OOOOOOG 

366  000432 

010067 

OOOOOOG 

367  000436 

000207 

Page  15 


.SBTTL 
*♦♦  -  SETLST 
INPUT: 


SETLST  -  LINK  SERVICE  THRESHOLD 
-  SETUP  LINK  SERVICE  THRESHOLD 


TEMP  =  TEMPLATE  ADDRESS 

$OBUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


OUTPUT: 


SETLST: 


MOV 

TEMP,R2 

CLR 

R1 

Bise 

C.LST(R2) 

MOV 

$08UF,RO 

CALL 

$CNVD 

MOV 

RO.SOBUF 

,R1 


GET  STAKi  OF  TCMPLATE 

GET  LINK  SERVICE  THRESHOLD 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


RETURN 


UPUDEr  -  CFt  UPDATE  DECSDF  DEFl  MACRO  VO5.05b  Saturday  29-Jun-85  05:49  Page  16 
SETRET  -  RETRANSMIT  FACTOR 
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tUPDLC  -  UPDATE  DLC  DEflNTlON 


Uf 
M/ 


161 
162 
163 
16A 
165 
166 
167 
168 
169 
170 
171 
172 

173  000020 

174  000020 

175  00002A 

176  000026 

177  000030 

178  000032 

179  OOOOAO 
180 

181 
182 

183  00C042 

184  000044 

185  000050 

186  000056 

187  000060 

188  000066 

189  000070 

190  000074 

191  000076 

192  000100 

193  000104 

194  000110 

195  000114 

196  000116 

197  000122 

198  000124 
199 

200 
201 
202  000126 


.SBTTL  SUPDLC  -  UPDATE  DLC  DEFINTION 
'♦**  -  SUPDLC  -  UPDATE  DLC  DEFINITION 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT; 


012700 
010001 
011000 
001436 
122760 
001371 


011011 
010067 
032760 
001004 
012767 
000416 
004767 
010545 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPDLC: 
10$: 


OOOOOOG  OOOOOOG 


C-eiT  =  SUCCESS/FAILURE 


MOV  #$THLST,RO 

MOV  RO.Rl 

MOV  (RO),RO 

BEQ  101$  , 

CMPB  #CS.DLC,C.STS(RO) 

BNE  10$ 


POINT  AT  START  OF  TEMPLATES 

SAVE  PREVIOUS  TEMPLATE  ADDRESS 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

:  IS  THIS  AN  LLC  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


177730 

OOOOOOG  OOOOOOG 

OOOOOCG  OOOOOOC 

0000006        15$: 


000000' 
000000' 
OOOOOOG 

OOOOOOG 

20$: 
30$: 


MOV 

MOV 

BIT 

BNE 

^,0V 

BR 

CALL 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


(R0),(R1) 

RO.TEMP 

#CS.MOD,C.STS( 

15$ 

#$8UFI,$0FDB+F 

30$ 

$MOVST 

R5,-(SP) 

Rl 

#DLCKTB,R2 

#DLCSTB,R5 

. TPARS 

20$ 

$ERR0R 

(SP)+,R5 


000167  OOOOOOG 


ERROR  CONDITIONS 
i01$:   JMP     .CONER 


;  REMOVE  TEMPLATE  FROM  CHAIN 

;  SAVE  TEMPLATE  ADDRESS 

RO)  ;  WAS  THIS  TEMPLATE  MODIFIED  ? 

;  IF  NE,  VES  ..  UPDATE  THE  RECORD 
.NRBD+2  ;  ELSE,  OUIPUT  THE  INPUT  BUFFER 

;  AND  LEAVE 

;  MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

;  SAVE  R5 

;  IGNORE  BLANKS 

;  KEYWORD  TABLE 

;  STATE  TABLE 

;  PARSE  THE  REST  OF  THE  LINE 

;  NORMAL  RETURN  IF  NO  ERROR 

;  INDICATE  SYNTAX  ERROR 

;  RESTORE  R5 


CONSISTENCY  ERROR 


E  4 
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SETNAM  -  CHECK  PROCESS  NAME 
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UPDC-SA  -  UPDATE 
MACRO  CALLS  AND 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8^, 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104  - 

105 

106 

107 

108 

109 

110 

111  uOOOOO 

112  000000 
113 


0  5 

DESTINATION  ADD  MACRO  V05.03b  Saturday  29-jun-85  05:50  Page  A 
LOCAL  DATA 


.SBTTL 
.S8TTL 

LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDH 


MACRO  CAlLS  and  LOCAL  DATA' 
MACRO  DEFINITIONS 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRJNT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 


.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRINT 

MERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN  ROM 

.MACRO 

•ROU    OFS.OaCOPT.TL 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  N8 

<ocrL> 

MOV 

SP,R1 

.IFF 

CLR 

R1 

.ENDC  . 

IF  NB  vOCTl;' 

CALL 

'ROU 

.IFT   , 

IF  NH  <OPT> 

.END. 

•F  MD  <OPT> 

.ENDM  , 

J 

.ENDM  . 

;4..PTN 

$SSPT^' 

SPTNUM 

SIT'  ::y 

SPTNMB 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  ,0  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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:t 
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1S1 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163  000010 

! 

164  000010 

012767 

OOOOOOG  ooooooc 

165  0U0016 

010567 

OOOOOOG 

166  000022 

005725 

167  000024 

010567 

OOOOOOG 

168  000030 

012767 

177777  OOOOOOG 

169  000036 

012700 

OOOOOOG 

170  000042 

012701 

000000' 

171  000046 

012702 

000010 

172  000052 

004767 

OOOOOOG 

173  000056 

010067 

OOOOOOG 

174  000062 

175  00C110 

176  000136 

016701 

OOOOOOG 

177  000142 

162701 

OOOOOOG 

178  000146 

010167 

ooooooc 

179  000152 

004767 

OOOOOOG 

180  000156 

012767 

OOOOOOG  OOOOOOC 

181  000164 

000207 

182 

183 

184 

000001 

.SBTTL  SUPDSC  -  UPDATE  DESTINATION  CALL  PARAMETERS 

**♦  -  SUPDSC  -  UPDATE  DESTINATION  CALL  PARAMETERS 

INPUT: 

R5  -  TEMPLATE  ADDRESS 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


SUPDSC: 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

SPTRSO 

$PTR50 

MOV 

SUB 

MOV 

CALL 

MOV 

RETURN 


£ND 


*.BUFF,S0FDB+F.NRBD+2  ;  SET  NEW  OUTPUT  BUFFER 


R5,.TEMP 

(r5)  + 

R5, .FLAGS 

#-1,. COMMA 

#.eUFF,RO 

#DSCDF,R1 

#DSCLN,R2 

SMVASC 

RO.SOBUF 

#C.MSK,#11.,#CS.MSK 

#C.VAL,*11.,#CS.VAL 

SOBUF.Rl 

#.aUFF,Rl 

Rl.SOFDB+F.NRBD 

SWDATA 


SAVE  TEMPLATE  ADDRESS 

POINT  TO  C.STS 

SAVE  ADDRESS  OF  FLAGS  WORD 

INITIALI7E  FOR  OPTIONS 

POINT  AT  START  OF  OUTPUT  BUFFER 

POINT  AT  START  OF  DSC  DEFINITION 

GET  LENGTH  OF  DSC  DEFINITION 

MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

SET  CALL  MASK 
_  .  SET  CALL  VAL'Il 
CALCULATE  LENGTH  OF  BUFFER 


SET  LENGTH  OF  BUFFER 

WRITE  THE  RECORD  TO  THE  OUTPUT  F.ILE 


#S8UFI,S0FDB+F.NfiBD+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 
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MACRO  CROSS  REFERENCE  CEF   OA.OO 


MACRO  NAME 

REFERENCES 

EPRINT 

#A-79 

ERRORS 

#4-68 

PRINT 

#4-63 

SPTNMB 

#4-112 

6-179 

6-180 

$PTNUM 

#4-111 

$PTR50 

#4-116 

6-177 

6-178 

$$$PTN 

#4-91 

4-111 

4-112 

6-181 
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Table  ot  contents 

4-  56    MACRO  DEMNITIONS 

5-  75    LOCAL  DATA 

6-  111  STATE  TABLES 

7-  157  tUPEVT  -  SETUP  EVENT  DEFINITION 

8-  20b  SETCLS  -  WRITE  OUT  EVENT  CLASS 

9-  225  SETMSK  -  WRITE  OUT  EVENT  MASK 

10-  2A6    SETNUM  -  WRITE  OUT  NUMBER 

11-  26A    SETSNK  -  WRITE  OUT  SINK  NAME 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 
FLTDFS 
ISTATt 
MTRANS 

#6-118 
#4-71 
#4-71 
#6-118 

#6-153 
4-73 
6-118 

PRINT 
STATES 

#4-62 
#4-71 

6-121 

#6-124 

#6-127 

#6-130 

#6-133 

#6-136 

#6-142 

#6-148 

#6-151 

TRANS 

#6-155 

#4-71 

#6-153 

#6-122 

#6-125 

#6-128 

#6-131 

#6-134 

#6-157 

#6-143 

#6-149 

#6-152 

E  9 


♦♦FILE**ID*«UPDFIL 


0  10 

UPOFEA  -  CF:  update  features  DE  macro  V05.03b  Saturday  29-Jun-85  05:52  Page  4 


55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74  000000 

75 

76 

77 

78  000000 

79  000000 

80  000000 

81  000002 

82  000004 

83  000006 

84  000010 

85  000012 

86  000014 

87  OOOG02 


•  **** 

■  LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


■  MACRO  CALLS 


.MCALL   ISTATS, STATES, TRANS 


LOCAL  DATA 


TEMP:    .BLKW   1 

DEFINE  FEATURES  TEMPLATE 


C.DEV 
C.WD1 
C.WD2 
C.WD3 
C.LEN= 


.ASECT 

.=0 

.8LKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.PSFCT 


ADDRESS  OF  FEATURES  TEMPLATE 


C.LNK 

C.STS 

2  CHARACTER  DEVICE  NAME 

INITIAL  FEATURES 

STATES  SETTABLE 

CURRENT  STATES 
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K7 

U8  000054 

•,1,9   000054 

150  000054 

151 

152  000054 

153  000054 

154  000054 
155 

156  000054 

157  000054 

158  000054 
159 

160  000054 

161  000054 

162  0C0054 
163 

164  000054 

165  OCOO'^4 
166 

1  >7 
168 
169 

170  000054 

171  000054 
172 

173  000054 

174  000054 
175 

176 
177 

178  n00054 

179  ■}00G?4 

181   000054 


STATES 
TRANS 
TRANS 

SNUMeR,E)(T,SETNLT 
SLAMDA 

STATES 
TRANS 
TRANS 

EXT 

SEOS,EXIT 

<',>,,SHOVPT 

STATES 
TRANS 
TRANS 

SNUH8R,CTIM,SETEXT 
SLAMDA 

STATES 
TRANS 
TRANS 

CTIM 

SEOS.EXIT 

<',>,,SMOVPT 

STATES 
TRmNS 

$NUMBR,EX1T,SETCTM 

;  SUB-EXPRESSION  TO  PARSE  "ZF." 

STATES 
TRANS 

ZF 
"ZF" 

STATES 
TRANS 

'..SEXIT 

;  EXIT  STATE 

STATES 
TRANS 

EXIT 

SEOS, SEXIT, SCLNUP 

STATES 
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.TITLE  UPDNOD  -  CFE  UPDATE  NODE  DEFINITION  IN  CETA8 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LKENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  ^HIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  NODE  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/fiSX  VI. 0 
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Table  ot  contents 

SETUP  OBJECT  DEFINITION 

WRITE  OUT  OBJECT  TYPE 

WRITE  OUT  OBJECT  NAME 

SETUP  OBJECT  VERIFICATION  LEVLL 

WRITE  OUT  THE  FL'jS  BYTE 

WRITE  OUT  THE  MAXIMUM  NUMBEP  OF  COPIES  ALLOWED 


6- 

Kl 

SUPOBJ 

7- 

190 

SETYPE 

8- 

214 

SETNAM 

9- 

247 

SETVFY 

10- 

272 

SETFLG 

M- 

297 

SETCPY 
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MACRO  (ROSS  REFERENCE  CREF   OA.OO 

MACRO  NAME      REFERENCES 

DBGTPS        #5-104 

ISTATS        #4-68      5-104 

MTRANt         #5-104 

STATES        #4-68      5-107    #5-110    #5-113    #5-116    #5-119    #5-122    #5-125    #5-128    #5-131 

TRANS         #4-63^    #5-108    #5-111    #5-114    #5-117    #5-120    #5-123    #5-126    #5-129    #5-132 
#5-137 
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UPDPAR  -  CFF  UPDATE  PARIUION  t)  MACRO  V05.03b  Saturday 

29-Jun-85  05 

Symbol  table 

ALLC    OOOIO^R 

002 

PARSIB  OOOOOORG 

002 

TOPSW 

000002R 

CS.PAR=  ••••••  GX 

SaCHK   0001 20R 

002 

UMRS 

000056R 

CS.TOP=  »*«••♦  GX 

SBPL  =  000006 

$ALPHA= 

000022 

CALL   000016 

5BPSW   000005R 

$ANV  = 

000020 

C.EXT   OOOOU 

SETALL  000240R 

$BLANK= 

000006 

C.LEN  =  000020 

SETNMO  000106R 

$BYTMN= 

**««»«  GX 

C.NAMO  OOOOO'i 

SETNMl  0001 70R 

$BYTXT= 

»»•.».  GX 

C.NAMl  000010 

SETSBP  000366R 

$CLNUP=: 

»»*•«»  GX 

C.STS  =  .♦•♦*•  GX 

SETTOP  000324R 

$CNVD  = 

»**«**  QX 

EXIT    000136R 

002 

TEMP    0000"OR 

3C5TA  = 

»»»*»»  GX 

NEXT    000012R 

002 

TOP     0000'.4R 

002 

$DIGIT= 

000024 

PARKTB  OOOOOORG 

003 

TOPL  =  000003 

.  ABS.  000020 

000 

(RW,I,G8L,ABS,0VR) 

OOOA20 

001 

(RW,I,LCL,REL,C0N) 

SSTATE  000144 

002 

(RU,D,LCL,REL,CON) 

SKTAB   000006 

003 

(RW,D,LCL,REL,CON) 

SKSTR   000020 

004 

(RW,D,LCL,REL,CON) 

Errors  detected: 

0 

»••  Assembler  statistics 

Work  iHe     reads 

0 

Uork   fUe  writes 

0 

Si?e  of  work  file 

10349  Words   t  41  Pages) 

Size  of  core  pool 

:  14440  Words  (  55  Pages) 

Operating  system 

:  RSX- 

11M/PLUS 

T7 

\ 
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$DNUMB= 
002  $EOS  = 
$ERROR= 
$EXn  = 
$FAIL  = 
$LAMDA= 
$MOyPT= 
$MOVST= 
$MVASC= 
$NUMBR= 
$08UF  = 


GX 


000014 
000012 

****** 

'im 

000000 
******  GX 
******  GX 
******  GX 
000002 
******  GX 


$RAD50=  000016 

$STRNG=  000004 

$SUBXP=  000010 

$TMLST= 

SUPPAR 

$I$FLG= 

$$$KEV= 

$$$STA= 

$$$TMP= 

.C0NER= 

.TPARS= 


*♦***«  GX 
000014RG 

\mn 

000002 
000000 
00001 IR 

»***♦♦   G) 
******  GX 


004 


SY'?UPDPAR!v2;C132,134]UPDPAR/CR/-SP=Sy:[1,1]RSXMCr.SML/ML,[130,110]NETLI8/ML,[132,10JUPDPAR 
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188 
189 
190 
191 
192 

;  ***  - 

.SBTTL 
$UPDDM 

JUPDDM  -  UPDAlb  DOn   UtHNIlUN 
-  UPDATE  DDM  DEFINITION 

;  INPUT 

193 

■r3-R5 

-  TPARS  REGISTERS 

194 

195 

•  OUTPUT: 

196 

C-BIT  = 

SUCCESS/FAILURE 

197 

198 

;- 

199 

200  000102 

SUPDDM: 

201  000102 

012700 

OOOOOOG 

'mov 

#$TMLST,RO 

POINT  AT  START  OF  TEMPLATES 

202  000106 

010001 

10$: 

MOV 

RO.RI 
(RO),RO 

SAVE  ADDRESS  OF  CURRENT  TEMPLATE 

203  000110 

011000 

MOV 

GET  NEXT  TEMPLATE 

204  000112 

001436 

BEQ 

101$          ; 
#CS.DDH,C.STS(RO) 

IF  EQ,  END  OF  TEMPLATES 

205  OOOITA 

122760 

OOOOOOG 

0000006 

CMPB 

;  IS  THIS  A  DDM  TEMPLATE  ? 

206  000122 

207 

208 

001371 

BNE 

10$ 

IF  NE,  NO  ..  KEEP  LOOKING 

;  ASSUME  THIS 

S  THE  RIGHT  TEMPLATE 

209 

210  000124 

011011 

MOV 

(R0),(R1) 

REMOVE  TEMPLATE  FROM  CHAIN 

211  000126 

010067 

177646 

MOV 

RO.TEMP        ; 
#CS.M0D,C.STS(R0) 

SAVE  TEMPLATE  ADDRESS 

212  000132 

032760 

OOOOOOG 

OOOOOOG 

BIT 

;  WAS  THIS  TEMPLATE  MODIFIED  ? 

213  000140 

001004 

BNE 

15$ 

IF  NE,  YES  ..  UPDATE  THE  RECORD 

214  000142 

012767 

OOOOOOG 

OOOOOOC 

MOV 

#$BUFI,$0FDB+F.NRBD+2  ;  ELSE,  OUTPUT  THE  INPUT  BUFFER 

215  000150 

000416 

BR 

30$ 

AND  LEAVE 

216  000152 

004767 

OOOOOOG 

15$: 

CALL 

$MOVST 

MOVE  FIRST  F'ELD  INTO  OUTPUT  BUFFER 

217  000156 

010546 

MOV 

R5,-(SP) 

SAVE  R5 

218  0001^0 

005001 

CLR 

R1 

IGNORE  BLANK'- 

219  000162 

012702 

000000' 

MOV 

#DDMKTB,R2     ; 

KEYWORD  TABLE 

220  000166 

012705 

000000" 

MOV 

#DDMSTB,R5 

STATE  TABLE 

221  000172 

004767 

OOOOOOG 

CALL 

.TPARS 

PARSE  'HE  REST  OF  THE  LINE 

222  000176 

103002 

BCC 

20$ 

NORMAL  RETURN  IF  NO  ERROR 

223  000200 

005267 

OOOOOOG 

INC 

$ERROR 

INDICATE  SYNTAX  ERROR 

224  000204 

012605 

20$: 

MOV 

(SP)+,R5 

RESTORE  R5 

225  000206 

226 

227 

228 

229  000210 

000207 

30$: 

RETURN 

■  ERROR 

CONDITIONS 

000167 

OOOOOOG 

i01$: 

J  MP 

.CONER 

CONSISTENCY  ERROR 

F      1 
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48 
19 
50 
51 
52  000000 


h:Z9 


000000 

000000 
000002 
000004 
000006 
000010 
C00012 
000013 
UOOOU 
000015 
000016 
000017 
000020 
000021 

000000 
53  OOOOOC 
54 
55 
56 
57 
58 
59  000000 


000000 


000022 
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.SBTTi.  MACRO  DEFINITIONS 
•  MACRO  CALLS 


UP 
SE 


.MCALL   ISTATS, STATES, TRANS, MSGDF$,DECTP$ 
DECTPS  LIST  ;  DEFINE  OECSDF  TEMPLATE  OFFSETS 

•  DEFINE  DEC  TEMPLATE 


C.LNK 

C.STS 

SEGMENT  SIZE 

MAXIMUM  NODE  COUNTERS 

MAXIMUM  LOGICAL  LINKS 

INCOMING  TIMER 

OUTGOING  TIMER 

INACTIVITY  TIMER 

RETRANSMIT  FACTOR 

DELAY  FACTOR 

DELAY  WEIGHT 

INPUT  PACKET  LIMITER 

LINK  SERVICE  THRESHOLD 


.ASECT 

.=0 

.8LKU   1 

.BLKW   1 

C.SEG: 

.BLKW   1 

C.N./C: 

.8LKW   1 

C.LKS: 

.BLKW   1 

C.INCT 

.BLKB   1 

C.OUTT 

.BLKB   1 

C.INAC 

.BLKB   1 

CRETE 

.BLKB   1 

C.DELF 

.BLKB 

C.DELW 

.BLKB   1 

C.IPL: 

.BLKB   1 

C.LST: 

.BLKB   1 

CD.LEN 

.PSECT 

MSGDFS 

;•  LOCA 

.  DATA 

TEMP: 

.BLKW   1 

ADDRESS  OF  DEC  TEMPLATE 


F  2 

UPDDEC  -  CFE  UPDATE  DECSDF  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:49 
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369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
38A 
385 
386 
387 
388 


.S8TTL 
***  -  SETRET 
INPUT: 


SETRET  -  RETRANSMIT  FACTOR 
-  SETUP  RETRANSMIT  FACTOR 


TEMP  =  TEMPLATE  ADDRESS 

$08UF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


000440 

000440  016702  177334 

000444  005001 

000446  156201  000015 

000452  016700  OOOOOOG 

000456  004767  OOOOOOG 

000462  010067  OOOOOOG 

000466  000207 


OUTPUT: 


SETRET: 


MOV 

TEMP,R2 

CLR 

R1 

BISB 

C.RETF(R2) 

MOV 

$08UF,R0 

CALL 

SCNVD 

MOV 

R0,$oeuF 

,R1 


RETURN 


GET  START  OF  TEMPLATE 
GET  RETRANSMIT  FACTOR 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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UPDDLC  - 

CFE  UPDATE  DLC 

PROCESS  MACRO 

V05.03b  Saturday  2 

SETNAM  - 

CHECK 

PROCESS 

NAME 

204 

.SBTTL 

205 

+ 

206 

*♦♦  -  SETNAM  - 

207 

208 

INPUT: 

209 

.PSTPT  = 

210 

.PSTCN  = 

211 

212 

OUTPUT: 

213 

C-BIT  = 

214 

215 
216 
217 

- 

000132 

SETNAM: 

218 

000132 

004767 

OOOOOOG 

CALL 

219 

000136 

016700 

OOOOOOG 

MOV 

220 

000142 

010701 

MOV 

221 

000144 

004767 

OOOOOOG 

CALL 

222 

000150 

016700 

17-'624 

MOV 

000154 

020160 

000004 

CMP 

224 

000160 

001402 

BED 

225 

000162 

062716 

000002 

ADD 

226 

000166 

000207 

10$:    RETURN 

E  4. 
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SETNAM  -  CHECK  PROCESS  NAME 
CHECK  PROCESS  NAME 


START  ADDRESS  OF  THE  PROCESS  NAME  IN  ASCII 
NUMBER  OF  CHARACTERS  IN  THF  .-PROCESS  NAME 


=  SUCCESS/FAILURE 


SMOVPT 

. PSTPT, RO 

PCfil 

SCATS 

TEMP.RO 

R1,C.NAM(R0) 

lOi 

#2,(SP) 


MOVE  THE  PROCESS  NAME  INTO  THE  OUTPUT  BUFFER 

GET  ADDRESS  OF  ASCII  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PROCESS  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

IS  THIS  THE  RIGHT  TEMPLATE  ? 

IF  EO,  YES  ..  OKAr 

ELSE,  REJECT  THE  TRANSITION 
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SETFLG  -  SETUP  THE  FLAGS  WORD 
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MACRO  DEFINITIONS 

1U  ;  PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 

116  '       .MACRO  $PTR50  0FS,UC,0PT,7L 

117  "  ■'"  '"""^ 
118 
119 
120 
121 
122 
123 
12^ 
125 

126  L: 

127 
128 
129 


.MACRO 

$PTR50 

.IF  N8 

<OPT> 

MOV 

0PT,R2 

CALL 

SPIOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

MOV 

WCRI 

CALL 

$PTR50 

.IFT 

.ENDC 

.ENDM 

f  5 

UPbujA  -  UPDATE  DESTINATION  ADD  MACRO  V05.03b  Saturday  29-Jun-85  05:50  Page  5 
LOCAL  DATA 


UPDDSC  -  UPDATE  DESTINATION  CAL  MACRO  V05.03b  Saturday  29-Jun-85  05; 
Symbol  table 


CS.MS<=  •♦**••  GX 
CS.VAL=  *♦«»**  GX 
C.L.EN  =  000060 
C.MSK   OOOOOA 


ABS.  000060    000 
000166    001 
Errors  detected;  0 


C.VAL   000032 
DSCDF   OOOOOOR 
DSCLN  =  000010 
F.NRBD=  ******   CiX 


(RW,I,GBL,AB5,0VR) 
(RW,I,LCL,REL,CON) 


SSUFI  =  ******  GX 

$MVASC=  ******  GX 

$08LIF  =  ******  GX 

$0FDB  =  ******  GX 
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$PTOPT=  ******  GX 
JPTR50=  ******  GX 
SUPDSC  00001  ORG 
$WDATA=  ******  GX 


.BUFF  =  **♦♦♦*  GX 

.COHMA=  ******  GX 

.FLAGS=  ******  GX 

.TEMP  =  **♦♦**  GX 


*••  Assembler  statistics 


Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  8830  Words   (  35  Pages) 

Size  of  core  pool:  1A440  Words   (  55  Pages) 

Operating  system:  RSX-IIM/PLUS 


SYtGpDDSc!v2;[°3^?°^°]UPDDSC/CR/-SP=SY:[1,l]RSXMCM.SML/ML,C130,110]NETLI8/ML,[132,10]UPDDSC 


UPDDSC 


r  uMDOi 


CREATED  BY  MACRO  ON  29-.JN-85  AT  05:51 
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.TITLE   UPDEVT  -  CFE  UPDATE  EVENT  DEFINITION  IN  CETAB 
.IDENT  /V05.00/ 
.NLIST  BEX 

COPYRIGHT  (C)  1979,  1980,  1982,  1933,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  EVENT  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  07-JUL-80 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-IIM-PlUS  V2.0 


5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 
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90 

91 

92 

93 

9A 

95  000002 

96 

97 

98  000002 

99  000002 
100 

101  000002 

102  000002 
103 

104  000002 

105  000002 
106 

107  000002 

108  000002 
109 

110  000002 

111  000002 
112 

113  000002 
lU  000002 
115 

116  000002 

117  000002 
118 

119 
120 

121  000002 

122  000002 
123 

124  000002 


•  INITIALIZE  TABLE  GENERAdON 

•  *  *  *  * 


ISTATS  FEASTB,FEAKTB 


STATES 
TRANS  SSTRNCSMOVPT 

STATES 
TRANS  <',>,,SMOVPT 

STATES 
TRANS  SNUM8R,,SM0VPT 

STATES 
TRANS  <',>,,SMO\/PT 

STATES 
TRANS  SNUMBR,,SMOVPT 

STATES 
TRANS  <',>,, SHOVPT 

STATES 
TRANS  SNUM8R,,SETWD3 

EXIT  STATE 

STATES     EXIT 
TfirtNS     SEOS,SEXIT,SCLNUP 

STATES 
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55:5; 
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183 

.SSTTL 

$UPLLC  -  UPDATE  L 

.C  OEHMITIL,. 

184 
185 

***  - 

$UPLLC 

-  UPDATE  LLC  DEFINITION 

186 
187 

INPUT 

188 

"r3-R5 

-  TPARS  REGISTERS 

189 
190 

OUTPUT: 

191 

C-BIT  = 

SUCCESS/FAILURE 

192 

193 

- 

194 

195  000054 

SUPLLC: 

196  000054 

012700 

OOOOOOG 

'mov 

#$TMLST,RO 

POINT  AT  START  OF  TEMPLATES 

197  000060 

010001 

0$: 

MOV 

RO.RI 
(RO),RO 

SAVE  PREVIOUS  TEMPLATE  ADDRESS 

198  000062 

011000 

MOV 

GET  NEXT  TEMPLATE 

1  f  \J         VV\/\/^rf^ 

199  000064 

001436 

BEQ 

101$          ; 
#CS.LLC,C.STS(RO) 

IF  EQ,  CANNOT  FIND  LLC  TEMPLATE 

200  000066 

122760 

OOOOOOG  OOOOOOG 

CMPB 

;  IS  THIS  AN  LLC  TEMPLATE  7 

201  000074 

202 

203 

001371 

BNE 

10$ 

IF  NE,  NO  ..  KEEP  LOOKING 

ASSUME  THIS 

S  THE  RIGHT  TEMPLATE 

204 

205  000076 

011011 

MOV 

(R0),(R1) 

REMOVE  TEMPLATE  FROM  CHAIN 

206  000100 

010067 

177674 

MOV 

RO.TEMP        ; 
#CS.MOD,C.STS(R0) 

SAVE  TEMPLATE  ADDRESS 

207  000104 

032760 

OOOOOOG  OOOOOOG 

BIT 

;  WAS  THIS  TEMPLATE  MODIFIED  ? 

208  000112 

001004 

BNE 

15$ 

IF  NE,  YES  ..  UPDATE  THE  RECORD 

209  000114 

012767 

OOOOOOG  OOOOOOC 

MOV 

#$8UFI,$0FDB+F.NReD<-2  ;  ELSE,  OUTPUT  THE  INPUT  BUFFER 

210  000122 

000416 

BR 

30$ 

AND  LEAVE 

211  000124 

004767 

OOOOOOG 

15$: 

CALL 

$M0VST 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

212  000130 

010546 

MOV 

R5,-(SP) 

SAVE  R5 

213  000132 

005001 

CLR 

Rl 

IGNORE  BLANKS 

214  000134 

012702 

000000' 

MOV 

#LLCKTB,R2     ; 

KEYWORD  TABLE 

215  000140 

012705 

OOjOOO' 

MOV 

#LLCST8,R5 

STATE  TABLE 

216  000144 

004767 

OOOOOOG 

CALL 

.TPARS 

PARSE  THE  REST  OF  THE  LINE 

217  000150 

103002 

BCC 

20$ 

NORMAL  RETURN  IF  NO  ERROR 

218  000152 

005267 

OOOOOOG 

INC 

$ERROR 

INDICATE  SYNTAX  ERROR 

219  000156 

012605 

20$: 

MOV 

(SP)+,R5 

RESTORE  R5 

220  000160 

221 

222 

223 

224  000162 

000207 

30$: 

RETURN 

;•  ERROR 

CONDITIONS 

00C167 

OOOOOOG 

ioi$: 

JMP 

.CONER 

CONSISTENCY  ERROR 
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UPDLOG  -  CFE  UPDATE  LOGGING  STA  MACRO  V05.05b  Saturday  29-Jun 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  DATA 

STATE  TABLES 

SUPLOG  -  UPDATE  LOGGING  STATE  TEMPLATE 

SETNUM  -  SET  THE  NEXT  NUMBER 


-80  55:53 


A- 

55 

S- 

9,> 

(S- 

m 

7- 

vy 

8- 

^5 
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56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

71, 

75 

76 

77   000000 

78 

79 

80 

81 

82  000000 

83 

8A  000000 

85  000002 

86  000004 

87  000006 

88  000010 

89  000012 

90  000052 
00005A 


\   15 

05:5 
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000074 
000076 


000000 


91 

92 

93  000002 

94 


000056 


•  **** 

;  LOCAL 

MACROS 

;  *  *  *  * 

.MACRO 

PRINT   TEXT 

MOV 

TEXT.RO 

CALL 

SPRINT 

.ENDM 

PRINT 

•  *»** 

;  MACRO 

CALLS 

;  *  *  *  * 

.MCALL 

ISTATS, STATE 

•  **** 

;  LOCAL 

DATA 

;  *  *  *  * 

LA  =  •< 

RA  =  '> 

TEMP: 

.8LKW 

1 

■  DEFINE  NODE 

TEMPLATE 

' 

.ASECT 

.=0 

.8LKW 

.8LKW 

C.NAM: 

.8LKW 
.8LKW 

C.NID: 

.8LKW 

.8LK8 

32. 

C.NUM: 

.8LKW 

C.HOS: 

.BLKW 

C.LEN=. 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  8RACKET 
ADDRESS  OF  NODE  TEMPLATE 


C.LNK 
C.STS 
NODE  NAME  CRADSO) 

NODE  id" 
LENGTH  AND  STRING 
NODE  ADDRESS 
HOST  NODE  ADDRESS 


.PSECT 
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05:54 


Page  i 


1 

2 

! 

A 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.riTLE 
.IDENT 


UPDQSJ  -  CFE  UPDATE  OBJECT  DEFINITION  IN  CETAB 
/V05.00/ 


COP'.RIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  Of  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  OBJECT  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-ITM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/ftSX  VI. 0 
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AA 
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LL 
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TTTTT 

TTTTT 

LL 
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TTTTT 

TTTTT 

LL 

ss 

LL 

ss 
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ss 

LL 

ss 

LL 
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LL 

SSbjSS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLlLLILL 

SSSSSSSS 

F  15 

UPOPAR  -  CFE  UPDATE  PARTITION  D  MACRO  V05.03b  Saturday  29-Jun-85  05:54 
Table  of  contents 


UPDPAR  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:54 

SVMBOL    CROSS  REFERENCE 


E  16 

PAGE   1 
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SYMBOL 

VALUE 

REFERENCES 

CS.PAR 

=  ««<*•* 

GX 

6-164 

rS.TOP 

=  ft t**  *% 

GX 

10-289 

CALL 

000016 

#4-81 

C.EXT 

OOOOU 

#4-80 
#4-82 

C.LEN 

=  000020 

C.NAMO 

000004 

#4-78 

7-201 

7-203 

7-206 

C.NAM1 

000010 

#4-79 

8-229 

8-231 

8-234 

C.5TS 

r  ****** 

GX 

6-164 

10-289 

PARKTB 

000000 

RG 

#5-90 

6-174 

PARSTB 

000000 

RG 

#5-90 

(>:HK 

SBPL 

=  000006 

#4-69 

11-315 

SBPSW 

000005 

R 

#4-68 

4-69 

11-314 

SETALL 

000240 

R 

#9-255 

SETNMO 

000106 

R 

#7-198 

SETNM1 

000170 

R 

#8-226 

SETSBP 

000366 

R 

#11-311 

SETTOP 

000324 

R 

#10-287 

TEMP 

000000 

R 

#4-64 

*6-170 

7-200 

7-205 

TOPL 

=  000003 

#4-67 

10-293 

T0P5W 

000002 

R 

#4-66 

4-67 

10-292 

SALPHA 

=  000022 

#5-90 

$AN^ 

=  000020 

#5-90 

SBLANK 

=  000006 

#5-90 

SBYTMN 

=           **  !^*** 

GX 

9-260 

9-262 

SBYTXT 

=     ♦****» 

GX 

9-257 

tCNVD 

=            ****** 

GX 

9-271 

$C5TA 

=     ****** 

GX 

7-204 

7-210 

8-230 

8-235 

SDIGIT 

=  000024 

#5-90 

SDNUMB 

=  000014 

#5-90 

$EOS 

=  000012 

#5-90 

SERROR 

=   ****** 

GX 

•6-178 

$EX1T 

=  000000 

#5-90 

SFAIL 

=  177777 

#5-90 

$GPRM 

=   *♦*♦** 

5-90 

SLAMDA 

=   000000 

#5-90 

SMOVST 

=  ****** 

GX 

6-171 

SMVASC 

=  ****** 

GX 

10-294 

11-316 

SNUMBR 

=  000002 

#5-90 

$OBUF 

-   ****** 

GX 

7-199 
*11-317 

*7-211 

8-227 

*8-236 

$RAD50 

=  000016 

#5-90 

$RONLY 

=  ****** 

5-90 

5-90 

5-90 

SSTRNG 

=  000004 

#5-90 

SSUBXP 

=  000010 

#5-90 

STMLST 

-   ****** 

GX 

6-160 

SUPPAR 

000014 

RG 

#6-159 

$$$FLG 

=  177777 

#5-90 

$$$KEY 

=  )77777 

#5-90 

.CONER 

~       ****** 

GX 

6-184 

.TPARS 

r  ****** 

GX 

6-176 

7-209 


7-208 


8-228 


8-233 


10-288 


11-312 


9-256 


»9-272 


10-291 


♦10-295 


11-313 
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SETNAM  -   CHECK  PROCESS   NAME 


F  1 
29-Jun-85  05:48 


Page  7 


?M 

.SBTTL 

?',;> 

t 

?^^^ 

.»*  -  SETNAM 

?^A 

?« 

INPUT: 

?^6 

.PSTPT 

?37 

.PSTCN 

?',H 

?',9 

OUTPUT: 

?4n 

C-BIT  - 

?4i 

?44 

~ 

0002U 

3ETNAM: 

?4S 

000214 

004767 

OOOOOOG 

CALL 

?46 

000220 

016700 

OOOOOOG 

MOV 

?47 

000224 

010701 

MOV 

?4R 

000226 

004767 

OOOOOOG 

CALL 

?A9 

000232 

016700 

177542 

MOV 

?sn 

000236 

020160 

000004 

CMP 

?S1 

000242 

001402 

BEQ 

?S2 

000244 

062716 

000002 

ADD 

21)3 

000250 

000207 

10$:    RETURN 

SETNAM  -  CHECK  PROCESS  NAME 
-  CHECK  PROCESS  NAME 


START  ADDRESS  Of  THE  PROCESS  NAME  IN  ASCII 
NUMBER  OF  CHARACTERS  IN  THE  PROCESS  NAME 


SUCCESS/FAILURE 


SMOVPT 

. PSTPT, RO 

PCRl 

$CAT5 

TEMP.RO 

R1,C.NAM(R0) 

lOi 

#2,(SP) 


MOVE  THE  PROCESS  NAME  INTO  THE  OUTPUT  BUFFER 

GET  ADDRESS  OF  ASCII  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PROCESS  NAME  TO  RAD50 

GET  START  OF  TEMPLATE 

IS  THIS  THE  RIGHT  TEMPLATE  ? 

IF  EQ,  YES  ..  OKAY 

ELSE,  REJECT  THE  TRANSITION 
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UPDDEC  -  CFE  UPDATE  DECSDF 
DECtDF  PARSE  TABLES 

61 

62 

63 

64 

65 

66 

67  000002 

68 

69  000002 

70  00000? 
71 

72  000002 

73  000002 
74 

75  000002 

76  000002 
77 

78  000002 

79  000002 
80 

81  000002 

82  000002 
83 

84  000002 

85  000002 
86 

87  000002 

88  000002 
89 

90  000002 

91  000002 
92 

93  000002 

94  000002 
95 

96  000002 

97  000002 
98 
99  000002 

100  000002 
101 

102  000002 

103  000002 
104 

105  000002 

106  000002 
107 

108  000002 

109  000002 
110 

111  000002 

112  000002 
113 

114  000002 

115  000002 
116 
117  000002 
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DEFl  MACRO  V05.03b  Saturday  29-Jun-85  05:49  Page  •= 

.SBTTL  DECSDF  PARSE  TABLES 
INITIALIZE  TABLE  GENERATION 

ISTATS  DECSTB.DECKTB 

STATE$ 
TRANS  $NUMBR,,SETLKS 

STATES 
TRANS  <',>,, SHOVPT 

STATES 
TRANS  SNUM8R,,SETNDC 

STATES 
TRANS  <",>,, SMOVPT 

STATES 
TRANS  SNUMBR,,SETINC 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUMBR,,SETOUT 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETINA 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETDEF 

STATES 
TRANS  <",>,, SMOVPT 

STATES 
TRANS     SNUMBR,,SETDEW 

STATES 
TRANS  <',>,, SHOVPT 

STATES 
TRANS  $NUM8R,,SET;PL 

STATES 
TRANS  <',>,, SMOVPT 

STATES 


UP 
SE 


MAXIMUM  LOGICAL  LINKS 


MAXIMUM  NODE  COUNTERS 


INCOMING  TIMER 


OUTGOING  TIMER 


INACTIVITY  TIMER 


DELAY  FACTOR 


DELAY  WEIGHT 


INPUT  PACKET  LIMITER 
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DECSDF    PARSE    TABLES 
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SETSEG  -  ECL  SEGMENT  SIZE 
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390 
391 
392 
393 
39A 
395 
396 
397 
398 
399 
400 
401 

402  000470 

403  000470 

404  000474 

405  000500 

406  000502 

407  000506 

408  000512 

409  000516 

410  000522 
411 

412 


.SBTTL 
'**»  -  SETSEG 
INPUT: 


SETSEG  -  ECL  SEGMENT  SIZE 
-  SETUP  ECL  SEGMENT  SIZE 


TEMP  =  TEMPLATE  ADDRESS 

$OBUF  =  CURRENT  POSITION  IN  OUTPUT  BUF'"?R 


016702  177304 

016201  000004 
001402 

162701  000022 

016700  OOOOOOG 

004767  OOOOOOG 

010067  OOOOOOG 
000207 

000001 


OUTPUT: 


SETSEG: 


5$: 


MOV 

TEMP,R2 

MOV 

C.SFG(R2),R1 

BEQ 

5$ 

SUB 

#N$$0VR,R1 

MOV 

$0BUF,R0 

CALL 

$CNVD 

MOV 

R0,$OBUF 

RETURN 

GET  START  OF  TEMPLATE 

GET  ECL  SEGMENT  SIZE 

IF  EQ  BRANCH 

ELSE  REMOVE  INTERNAL  BIAS 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


.END 
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2?8 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 

240  000170 

241  000170 

242  000172 

243  000176 

244  000202 

245  000206 

246  000212 

247  000216 

248  000224 

249  000226 

250  000232 

251  000236 

252  000242 

253  000250 

254  000252 

255  000256 

256  000262 

257  000266 

258  000274 

259  000276 

260  0003C2 

261  000306 

262  000312 

263  000320 

264  000322 

265  000326 

266  000332 

267  000336 

268  000340 

269  000344 

270  000346 


010546 
016705 
016700 
012701 
012702 
004767 
032765 
001406 
012701 
012702 
004767 
032765 
001406 
012701 
012702 
004767 
032765 
001406 
012701 
012702 
004767 
032765 
001406 
012701 
012702 
004767 
105740 
010067 
012605 
000207 


.SBTiL  SETFLG  -  SETUP  THE  FLAGS  WORD 

♦**  -  SETFLG  -  SETUP  THE  FLAGS  UORD 

INPUT: 

TEMP  =  START  ADDRESS  Of  THE  TEMPLATE 

OUTPUT: 

THE  FLAGS  WOPn  BIT  DEFINITIONS  ARE  UPDATED 


SETFLG: 


177602 

OOOOOOG 

000002' 

000007 

OOOOOOG 

OOOOOOG  000006 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  000006 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  000006 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  000006 

000011 ' 

000007 

OOOOOOG 

OOOOOOG 


10$: 


20$: 


30$: 


40$: 


MOV  R5,-(SP) 

MOV  TEMP,R5 

MOV  $OBUF,RO 

MOV  *ZDLC,R1 

MOV  #ZDLCL,R2 

CALL  $MVASC         , 

BIT  #ZF. TIM, C.FL6(R5) 

BEQ  10$ 

MOV  #$ZTIM,R1 

MOV  #$ZTIML,R2 

CALL  SMVASC         , 

BIT  #ZF.|V|FL,C.FLG(R5) 

BEQ  20$ 

MOV  *$ZMFL,R1 

MOV  #$ZMFLL,R2 

CALL  $MVASC         , 

BIT  #ZF.C0U,C.FLG(R5) 

BEQ  30$ 

MOV  #$ZC0U,R1 

MOV  #$ZC0UL,R2 

CALL  $MVASC         , 

BIT  #ZF.MAN,C.FLG{R5) 

BEQ  40$ 

MOV  #ZMAN,R1 

MOV  *ZMANL,R2 

CALL  $HVASC 

TSTB  -(RO) 

MOV  RO,$OBUF 

MOV  (SP)+,R5 

RETURN 


SAVE  R5 

GET  START  OF  TEMPLATE 

POINT  RO  AT  CURRENT  POSITION  IN  OUTPUT  SUFFER 

POINT  R1  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  TIMER  SUPPORT  NEEDED  ? 

IF  EQ,  NO 

POINT  R1  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  MARK  FOR  LOAD  ? 

IF  EO,  NO  ..  LEAVE 

POINT  AT  INPUT  STRING 

..AND  LENGTH 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  DLC  SUPPORT  COUNTERS  ? 

IF  EQ,  NO 

POINT  R1  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  SUPPORT  FOR  NETWORK  MANAGEMENT  REQUESTS  ? 

IF  EQ,  NO 

POINT  R1  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

BACK  UP  OVER  LAST  "!" 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 

RESTORE  R5 
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LOCAL  DATA 

.SBTTL  LOCAL  DATA 
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131 

132 

133  ^ 

13^ 

135 

136  000000 

137 

000000 

138  000000 

139  000002 

HO  OOOOOA 

U1  000016 

U2  000020 

U3  000022 

UA 

000026 

145  000000 

146 

147  000000 

Oil 

148 

000010 

149 

150 

151 

104 


123 


;  DEFINE 

THE  DSA  DESCRIPTOR  BLOCK 

.ASECT 

.=0 

.BLKW 

1 

.BLKW 

1 

C.NUM: 

.BLKW 

5 

C.SLO: 

.BLKW 

1 

C.SHI: 

.BLKW 

1 

C.CUG: 

.BLKW 

2 

C.LEN=. 

.PSECT 

.NLIST 

BEX 

DSADF : 

.ASCII 

<11>/DSA$0F/<11> 

DSALN=. 

-DSADF 

.LIST 

BEX 

.EVEN 

C.LNK 

c.srs 

REMOTE  DTE  NUMBER  (1.- 
SUBADDRESS  LOW  RANGE 
SUBADDRESS  HI  RANGE 
USER  GROJP  NAME 
LENGTH  OF  THE  BLOCK 


15.  DECIMAL  DIGITS) 
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SYMBOL 

VALUE 

REFERENCES 

CS.MSK 

- 

****** 

GX 

6-1 7A 

CS.VAL 

= 

****** 

GX 

6-175 

C.LEN 

r 

000060 

#5-H2 

C.MSK 

OOOOOA 

#5-U0 

6-174 

C.VAL 

000032 

*5-K1 

6-175 

DSCDF 

000000 

R 

#5-U5 

5-146 

6-170 

DSCLN 

=: 

000010 

#5-K6 

6-171 

F.NRBD 

- 

*■•*♦** 

GX 

*6-16'i 

•6-178 

•6-180 

SBUFI 

r 

****** 

GX 

6-180 

SMVASC 

r 

****** 

GX 

6-172 

$OBUF 

- 

****** 

GX 

*6-173 

6-176 

$OFDB 

- 

****** 

GX 

*6-164 

♦6-178 

•6-180 

SPTOPT 

~ 

****** 

GX 

6-174 

6-175 

$PTR50 

r 

****** 

GX 

6-1 7A 

6-175 

SUPDSC 

000010 

RG 

#6--  63 

tUOATA 

- 

****** 

GX 

6-179 

.BUFF 

= 

****** 

GX 

6-164 

6-169 

6-177 

.COMMA 

= 

****** 

GX 

•6-168 

.FLAGS 

- 

****** 

GX 

♦6-167 

.TEMP 

= 

****** 

GX 

*6-165 

UPDDSC 
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Table  of  contents 


^- 

57 

MACRO  CALLS  AND  LOCAL  DATA 

A- 

58 

MACRO  DEFINITIONS 

S- 

135 

LOCAL  DATA 

6- 

165 

SUPDTE  -  UPDATE  DTE  DEFINITION 

J- 

?n? 

SETSTA  -  SET  STATE 

7- 

203 

SETLIN  -  SET  LINE  ID 

G  ? 
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UPDEVT  -  CFE  UPDATE  EVENT  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:51  Page  « 
MACRO  DEFINITIONS 


56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73  000000 


.SBTTL  MACRO  DEFINITIONS 


■  *♦«* 

;  LOCAL  MACROS 

•  **** 


MOV     TEXT.RO        ;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
CALL    SPRINT         ;  PRINT  MESSAGE 
.ENDM   PRINT 


MACRO  CALLS 


.MCALL   I  STATS, STATES, TRANS, FLTDFS 

FLTDFS  ;  DEFINE  FILTER  BLOCK  SYMBOLS 
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LOCAL  DATA 


UPDFIL  -  CFE  UPDATE  REMOTF  CHAR  MACRO  V05.03b  Saturday  29-Jun-85  05 
Table  of  consents 

A-   ^6    MACRO  CALLS  AND  LOCAL  DATA 

5-  90    SUPFIL  -  SETUP  REMOTE  DEFINITION 

6-  1^1    PUTFIL  -  WRITE  OUT  FILE  SPEC 


:?2 
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UPDFEA  -  CfE  UPDATE  FEATURES  DE  MACRO  vn5.03b  Saturday  29-Jun-85  05:52  Page  6 
tUPFEA  -  UPDATE  FEATURES  DEFINITION 


126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 

138  000002 

139  000002 
HO  000006 
U1  000010 
142  000012 
U3  OOOOU 
144  000022 
145 

146 
147 

148  000024 

149  000026 

150  000032 

151  000040 

152  000042 

153  000050 

154  000052 

155  000056 

156  000060 

157  000062 

158  000066 

159  000072 

160  000076 

161  000100 

162  000104 

163  000;06 
164 

165 
166 
167  000110 


012700 
010001 
011000 
001436 
122760 
001371 


011011 
010067 
032760 
001004 
012767 
000416 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


.SBTTL  SUPFEA  -  UPDATE  FEATURES  DEFINITION 
•♦*  -  SUPFEA  -  UPDATE  FEATURES  DEFINITION 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


C-BIT   =    SUCCESS/FAILURE 


OOOOOOG 


SUPFEA:: 
lOS: 


OOOOOOG  OOOOOOG 


MOV  #STMLST,RO 

MOV  RO.Rl 

MOV  (RO),RO 

BEQ  101S  , 

CHPB  *CS.FEA,C.STS(RO) 

BNE  10$ 


GET  TEMPLATE  LISTHEAD  POINTER 

SAVE  ADDRESS  OF  CURRENT  TEMPLATE 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  FEATURES  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 


■ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


177746 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOt  M 

OOOOOOG        15S: 


000000' 
000000' 
OOOOOOG 

OOOOOOG 

20$: 
30$: 


MOV 

MOV 

BIT 

BNE 

MOV 

BR 

CALL 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


(R0),(R1) 

RO.TEMP 

#CS.MOD,C.STS 

15$ 

#$8UFI,$0FDB+ 

30$ 

SMOVST 

R5,-(SP) 

Rl 

#FEAKTB,R2 

#FEASTS,R5 

. TPARS 

20$ 

SERROR 

(SP)+,R5 


;  REMOVE  TEMPLATE  FROM  CHAIN 
;  SAVE  TEMPLATE  ADDRESS 
(R05  ;  WAS  THIS  TEMPLATE  MODIFIED  ? 

;  IF  NE,  YES  ..  UPDATE  THE  DEFINITION 
F.NRBD+2  ;  ELSE,  OUTPUT  THE  INPUT  BUFFER 

AND  LEAVE 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


000167  OOOOOOG 


ERROR  CONDITIONS 
01$:   JMP     .CONER 


CONSISTENCY  ERROR 
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??6 

- 

.SBTTL 

TH 

??R 

'*»  -  SETNAM 

PPt) 

?^n 

INPUT: 

?31 

.PSTPT 

■?^7 

.PSTCN 

7V^ 

?M 

OUTPUT: 

?35 

C-BIT 

?^6 

?V 

- 

I'lH 

?« 

000166 

5ETNAH: 

?^0 

000166 

004767 

OOOOOOG 

CALL 

?A1 

000172 

016700 

OOOOOOG 

MOV 

P'i^ 

000176 

010701 

MOV 

?4^ 

000200 

004767 

OOOOOOG 

CALL 

?4A 

000204 

016700 

177570 

MOV 

?4S 

000210 

020160 

000004 

CMP 

?4A 

0002U 

001402 

BEQ 

?A^ 

000216 

062716 

000002 

ADD 

2^18 

000222 

000207 

10$:    RETURN 

SETNAM  -  CHECK  IF  LLC  PROCESS  NAMES  MATCH 
-  CHECK  If  LLC  PROCESS  NAMES  MATCH 


ADDRESS  OF  THE  LLC  PROCESS  NAME 
LENGTH  OF  THE  LLC  PROCESS  NAME 


SUCCESS/FAILURE 


SMOVPT 

. PSTPT, RO 

PC.RI 

$CAT5 

TEMP,RO 

R1,C.NAM(R0) 

loi 

#2,(SP) 


MOV  THE  PROCESS  NAME  INTO  THE  OUTPUT  BUFFER 

GET  ADDRESS  OF  ASCII  LLC  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE  RAD50  CHARS 

CONVERT  PROCESS  NAME  TO  RADRO 

POINT  RO  AT  TEMPLATE 

IS  THIS  THE  RIGHT  TEMPLATE  ? 

IF  EQ,  YES  ..  OKAY 

ELSE  REJECT  THE  TRANSITION 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
53 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


UPDLOG  -  CFE  UPDATE  LOGGING  STATE  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  UPDATE  STATE  TABLE  TO  PARSE  THE  LOGGING  STATE  DEFINITION 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  07-JUL-80 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MACRO  DEFINITIONS 
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«6 

97 

98 

99 
100 

101  000002 
102 
103 

10A  000002 
105  000002 
106 

107  000002 

108  000002 
109 

110  000002 

111  000002 
112 

113  000002 

114  000002 
115 

116  000002 

117  000002 
118 

119  000002 

120  000002 
121 

122  000002 

123  000002 
124 

125  000002 

126  000002 

127  000002 
128 

129  000002 

130  000002 
131 

132  000002 

133  000002 
134 

135  000002 

136  000002 
137 

138  000002 

139  000002 

140  000002 
141 

142  000002 

143  000002 
144 

145  000002 

146  000002 
147 

148 
V9 
■]}0   000002 

131  000002 
152 


INITIALIZE  TABLE  GENERATIO;; 


ISTATS  NODSTB,NODKTB 


STATES 
TRANS  LA,,$MOVPT 

STATES 
TRANS  $RAD50,,SETNAM 

STATES 
TRANS  RA,,$M0VPT 

STATES 
TRANS  <',>,,SMOVPT 

STATES 
TRANS  LA,,SMOVPT 

STATES 
TRANS   IID,,SETNID 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,ADD2,SETNNA 
TRANS  SLAMDA,2,SETNNA 

STATES  ADD2 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM6R,,SETNNM 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUMeR,H0S2,SETH0A 
TRANS  $LAMDA,,SETHOA 

STATES  H0S2 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  $NUMBR,,SETHOS 

EXIT  STATE 

STATES     EXIT 
TRANS     $LAMDA,$EX!T,SCLNUP 
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55 

•  **** 

56 

;•  LOCAL 

MACROS 

57 
58 
59 

•  **  ** 

.MACRO 

PRINT   TEXT 

60 

MOV 

TEXT.RO        ;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 

61 

CALL 

SPRINT         ;  PRINT  MESSAGE 

62 

.ENDM 

PRINT 

63 

M 

•  »*»* 

65 

;  MACRO 

CALLS 

66 
67 
68 

;  *  ♦  *  * 

.MCALL 

ISTATS, STATES, TRANS 

69 

70 

•  ««»* 

71 

;  LOCAL 

DATA 

72 
73 
74 

;  *  *  ♦  * 

000074 

LA  =  '< 

;  LEFT  ANGLE  BRACKET 

75 

000076 

RA  =  '> 

RIGHT  ANGLE  BRACKET 

76  000000 

TEMP: 

.BLKW 

1 

ADDRESS  OF  OBJECT  TEMPLATE 

77  000002 

060 

054 

124 

OBJDEF: 

.ASCJ7 

/O, TASK, 0,0,0/ 

000005 

101 

123 

113 

000010 

054 

060 

054 

000013 

060 

054 

060 

000016 

000 

78 

000014 

OBJLEN= 

<.-0BJDEF>-1 

79  000017 

Oil 

117 

102 

OBJDF: 

.ASCII 

<11>/0BJSDF/<11> 

000022 

112 

044 

104 

000025 

106 

on 

80 

000010 

08JLN=. 

-OBJDF 

81  000027 

BUFF: 

.BLK8 

80.            ;  OUTPUT  BUFFER 

82 
83 
84 
85 

86  000000 

.EVEN 

;  DEFINE  OBJECT 

TEMPLAT' 

.ASECT 

87 

000000 

.=0 

88  000000 

.BLKW 

1 

C.LNK 

89  000002 

.BLKW 

1 

C.STS 

90  000004 

C.TYP: 

.BLKB 

1 

OBJECT  TYPE 

91  000005 

C.FLG: 

.BLKB 

1 

OBJECT  FLAG 

92  000006 

C.NAM: 

.BLKW 

2 

OBJECT  TASK  NAME  (RAD50) 

93  000012 

C.CPY: 

.BLKB 

1 

MAXIMUM  NUMBER  OF  COPIES  OF  A  TASK  TO  SPAWN 

94 

LIMIT  IS  63. 

95 

000013 

C.LEN=. 

96  000150 

.PSECT 

97 
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UPDPAR  -  CFE  UPDATE  PARIITION  D  MACRO  V05.03b  Saturday  29-Jun-85  05:5« 
Table  ot  contents 

UPDATE  PARTITION  DEFINITION 
SET  UP  PARTITION  NAME  0 
SET  UP  PARTITION  NAME  1 
SET  THE  BVTE-AREA  EXTENSION 
SETUP  TOP  FLAG 
SETUP  S8P00L  FLAG 


6- 

U7 

$UPPAR 

f- 

186 

SETNMO 

H- 

2H 

SETNMI 

9- 

2A0 

SETALL 

10- 

?7S 

SETTOP 

11- 

299 

SETSBP 
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MACRO  CROSS  REFERENCE  CREF        OA.OO 


MACRO  I^AME 

REFERENCES 

DBGTPI 

#5-90 

#5-94 

#5-110 

#5-114 

#5-118 

ISTATS 

#4-58 

5-90 

MTRAMt 

#5-90 

STATE$ 

#4-58 

5-92 

#5-96 

#5-99 

#5-102 

#5-126 

#5-130 

#5-133 

#5-137 

#5-142 

TRAN$ 

#4-53 

#5-93 

#5-94 

#5-97 

#5-100 

#5-114 

#5-117 

#5-118 

#5-121 

#5-122 

#5-135 

#5-138 

#5-143 

#5-122  #5-123  #5-128  #5-135 

#5-105  #5-108  #5-112  #5-116           #5-120 

#5-145 

#5-103  #5-106  #5-109  #5-110     #5-113 

#5-123  #5-127  #5-128  #5-131     #5-134 
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SETFLG  -  SETUP  THE  FLAGS  WORD 


255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 

267  000252 

268  000252 

269  00025;, 

270  000260 

271  00026A 

272  000270 

273  000274 

274  000300 

275  000324 

276  000350 

277  000374 

278  000420 

279  000444 

280  000470 

281  000514 

282  000540 

283  000564 

284  000610 
265  000634 

286  000636 

287  000642 

288  00064i 


.SBTTL  SETFLG  -  SETUP  THE  FLAGS  WORD 

»**  -  SETFLG  -  SETUP  THE  FLAGS  WORD 

!NPUT: 

TEMP  =  START  ADDRESS  OF  THE  TEMPLATE 

OUTPUT: 

THE  FLAGS  WORD  BIT  DEFINITIONS  ARE  UPDATED. 


010546 

016705  177520 

016700  OOOOOOG 

012701  000002' 

012702  000007 
004767  OOOOOOG 


SETFLG: 


105740 

010067  OOOOOOG 

012605 

000207 


MOV 

R5,-(SP) 

MOV 

TEMP,R5 

MOV 

$08UF,R0 

MOV 

#ZDDM,R1 

MOV 

#ZDDML,R2 

CALL 

SMVASC 

PUTFLG 

TJM,<$> 

PUTFLG 

MFL,<$> 

PUTFLG 

DLC 

PUTFLG 

C0U,<$> 

PUTFLG 

KMX 

PUTFLG 

LMC 

PUTFLG 

MUX 

PUTFLG 

PSE 

PUTFLG 

DIA 

PUTFLG 

DVP 

PUTFLG 

MAN 

TST8 

-{fiO) 

MOV 

R0,$O8UF 

MOV 

(SP)+,R5 

RETURN 

SAVE  R5 

GET  START  OF  TEMPLATE 

POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  R1  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MARK  PROCESS  AS  A  DDM 

TIMER  BIT  NEEDED  ? 

MARK  FOR  LOAD  ? 

IS  THIS  A  DLC  ? 

COUNTERS  SUPPORTED  ? 

KMC  DEVICE  ? 

LOAD  MICRO-CODE   ? 

IS  THIS  A  MUX  DEVICE  ? 

PSEUDO  SLT  FOR  THIS  DEVICE  ? 

DOES  DEVICE  REQUIRE  DIAGNOSTIC  u-CODE  ? 

DOES  PROCESS  RUN  AT  DEVICE  PRIORITY  ? 

DOES  PROCESS  HAVE  NET.  MAN.  ENTRY  POINT  ? 

BACK  UP  OVER  LAST  "I" 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 

RESTORE  R5 
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DECSDF    PARSE    TABLES 

118  000002 
119 

120  000002 

121  000002 
122 

123  000002 
12'!,  000002 
125 

126  000002 

127  000002 
128 

129  000002 

130  000002 
131 
132 
133 

13A  000002 
135  000002 
136 
137  000002 
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TRANS 

SNUM8R,,SETLST 

STATES 
TRANS 

<',>,,SM0VPT 

STATES 
TRANS 

SNUM8R,,SETRET 

STATES 
TRANS 

<',>,,SM0VPT 

STATES 
TRANS 

SNUMeR,,SETSEG 

EXIT  STATE 

STATES 
TRANS 

EXIT 
SEOS,SEXIT,SCLNUP 

LINK  SERVICE  THRESHOLD 


RETRANSMIT  FACTOR 


SEGMENT  SIZE 


STATES 
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Symbol  table 


CD.LEN= 

CS.DEC= 

CS.MOD= 

C.DELF 

C.OELW 

C.INAC 

C.INCT 

C.IPL 

C.LKS 

C.LST 

C.NDC 

C.OUTT 

C.RETF 

C.SEG 

C.STS  = 

DECKTB 


.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000022 
*».»«*  GX 

»».*♦♦  GX 

000016 

000017 

OOOOK 

000012 

000020 

000010 

000021 

000006 

000013 

00001 5 

000004 

******  GX 

OOOOOORG 


OECSTB 
EXIT 
F.NRBD= 
NM$ARA= 
NM$NOD= 
NT$AKD= 
NT$AKI= 
NT$CC  = 
NT$CON= 
NT$CTL= 
NT$DAT= 
NT$DC  = 
NT$DIS= 
NT$DLS= 
NT$ILS= 
003  NT$IMS= 


OOOOOORG 

0001 2AR 

**♦»**  GX 

176000 

001777 

000020 

000022 

000016 

000000 

000000 

000002 

000012 

OOOOU 

000006 

000010 

000002 


002  NT$INT= 
002  NT$RET= 
NT$ROU= 
NT$RTR= 
NT$TSP= 
N$$ACK= 
N$$HDR= 
N$$0VR= 
SETDEF 
SETDEW 
SETINA 
SETINC 
SETIPL 
SETLKS 
SETLST 
SETNDC 


000004 

SETOUT 

000220R 

SLAHDA= 

000000 

000032 

SETRET 

000440R 

$M0VPT= 

******  GX 

000024 

SETSEG 

000470R 

SM0VST= 

******  GX 

000030 

TEMP 

OOOOOOR 

SNUMBR= 

000002 

000026 

$ALPHA= 

000022 

SOBUF  = 

******  GX 

000011 

$ANY  = 

000020 

SOFDB  = 

******  GX 

000007 

$BLANK= 

000006 

SRAD50= 

000016 

000022 

SBUFJ  = 

******  GX 

$SrRNG= 

000004 

000300R 

$CLNUP= 

******  GX 

SSUBXP= 

000010 

000330R 

ICNVD  = 

*♦«***  GX 

$TMLST= 

******  GX 

000250R 

$D]G1T= 

000024 

SUPDEC 

000002RG 

0001 70R 

$DNUMB= 

000014 

SSSFLG= 

Mllll 

000360R 

$EOS  = 

000012 

$SSKEy= 

Mini 

000114R 

$ERROR= 

******  GX 

SSSSTA= 

000000 

000410R 

SEXIT  = 

000000 

.CONER= 

******  GX 

000K2R 

SFAIL  = 

Mini 

.TPARS= 

******  GX 

000022 
000524 
000132 
000000 
000000 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RU,I 
(RW,I 


,GBL,ABS,OVRJ 


,LCL,REL, 


(RW,D,LCL,REL 


(RW,D 
(RU,D 


CON) 
CON) 


LCL,REL,CON) 
,LCL,REL,CON) 


«♦*  Assembler  statistics 


Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10675  Words 

Size  of  core  pool:  14440  Words 

Operating  system:  RSX-11M/PLUS 


(  42  Pages) 
(  55  Pages) 
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SETPRI  -  SET  THE  PRIORITY 

27? 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

28'^  000350 

285  000350 

016702 

177424 

286  000354 

016201 

000010 

287  000360 

016700 

OOOOOOG 

288  00036A 

004767 

OnOOOOG 

289  000370 

010067 

OOOOOOG 

290  000374 

000207 

.S8TTL 
♦*•  -  SETPRI 
INPUT: 


SETPRI  -  SET  THE  PRIORITV 
-  SET  THE  PROCESS  PRIORITY 


.PNUM8  =  PRIORITY 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 


OUTPUT: 


SETPRI: 


MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


TEMP,R2 

C.PRI(R2),R1 

$OeUF,R0 

$CNVO 

R0,$0BUF 


GET  START  Of  TEMPLATE 

GET  THE  PROCESS  PRIORITY 

GET  THE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  BINARY  TO  OCTAL 

UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 
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153 
15A 
155 
156 
157 
158 
159 
160 
161 
162 
163 
16A 

165  000010 

166  000010 

167  000016 

168  000022 

169  000024 

170  000030 

171  000036 

172  0OOOA2 

173  000046 

174  000052 

175  000056 

176  000062 

177  000110 

178  000134 

179  000160 

180  000206 

181  000212 

182  000216 

183  000222 

184  000226 

185  000234 
186 

187 


.SBTTL  SUPDSA  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 
***  -  SUPDSA  -  UPDATE  PERMANENT  VIRTUAL  CIRCUIT 
INPUT: 


R5  -  TEMPLATE  ADDRESS 


OUTPUT: 


C-8JT   =   SUCCESS/FAILURE 


012767 
010567 
005725 
010567 
012767 
012700 
012701 
012702 
004767 
010067 


016701 
162701 
010167 
004767 
012767 
000207 

000001 


OOOOOOG  OOOOOOC 
OOOOOOG 

OOOOOOG 

177777  OOOOOOG 

OOOOOOG 

000000' 

000010 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG  OOOOOOC 


SUPDSA: 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

$PTR50 

SPTNUM 

SPTNUM 

$PTR50 

MOV 

sua 

MOV 
CALL 
MOV 
RETURN 

.END 


#.8UFF,$0F 

R5,.TEMP 

(R5)  + 

R5, .FLAGS 

#-1,. COMMA 

#.BUFF,RO 

#DSADF,R1 

#DSALN,R2 

SMVASC 

RO,$08UF 

#C.NUM,#5 

#C.SLO,,*C 

#C.SHI,,*C 

*C.CUG,#2, 

$08UF,R1 

*.8UFF,R1 

R1,$0FDB+F 

SWDATA 

#$8UFI,$0F 


DB+F.NRBD+2 
SAVE 


#CS.NUM 
S.SLO 
S.SHI 
#DA$CUG 


.NR8D 


SET  NEW  OUTPUT  BUFFER 
TEMPLATE  ADDRESS 
POINT  TO  C.STS 
SAVE  ADDRESS  OF  FLAGS  WORD 
INITIALIZE  FOR  OPTIONS 
POINT  AT  START  OF  OUTPUT  BUFFER 
POINT  AT  START  OF  DSA  DEFINITION 
GET  LENGTH  OF  DSA  DEFINITION 
MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 
SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

;  REMOTE  DTE  NUMBER 

;  SUBADDRESS  HIGH 

;  SUBADDRESS  LOW 

;  GROUP  NAME 
CALCULATE  LENGTH  OF  BUFFER 


SET  LENGTH  OF  BUhfER 
WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 
DB+F.NRBP+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 
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MACRO  NAME 

REFERENCES 

EPRINT 

#^-79 

ERRORS 

#A-68 

^RINT 

#4-63 

SPTNMS 

#4-112 

SPTNUM 

#4-111 

$PTR50 

#4-116 

6-174 

6-175 

$$$PTN 

#4-91 

4-111 

4-112 
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1 
2 
3 

5 
6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

:i 

32 
33 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  UPDDTE  -  UPDATE  LOCAL  DTE  DESCRIPTOR  IN  CETAB 
.IDENT  /V05.00/ 
.ENASL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  LOCAL  DTE  DESCRIPTOR  IN  CETAB 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MACRO  CALLS  AND  LOCAL  DATA 
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LOCAL  DATA 

.SBTTL  LOCAL  DATA 
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76 

77 

78 

79 

80 

81 

000074 

82 

000076 

85  000000 

8A  000002 

85  OOOOOA 

060 

054 

86 

000C23 

87  000030 

Oil 

105 

88 

000010 

89  OOOOAO 

115 

117 

90 

000007 

91  000047 

106 

111 

92 

000004 

93  000053 

103 

117 

94 

000007 

95  0OCO62 

96 

97 

98 

99 

100  000040 

101 

000000 

102  000000 

103  000002 

10A  000004 

105  000006 

106  000016 

107 

000020 

108  000202 

109 

074 
126 
116 
114 
116 


•  **** 

;  LOCAL 

DATA 

;  *  *  *  * 

LA  =  '< 

LEFT  ANGLE  BRACKET 

RA  =  '> 

RIGHT  ANGLE  BRACKET 

TEMP: 

.BLKW 

1 

ADDRESS  OF  EVENT  TEMPLATE 

EVTOFF: 

.BLKW 

1 

OFFSET  INTO  EVENTS 

EVTDEF: 

.ASCIZ 

/0,<0,0,0, 

0> 

CONSOLE/ 

EVTLEN= 

<.-EVTDEF>- 

1 

EVTDF: 

.ASCII 

<11>/EVT$0F/<11> 

EVTLN= 

-EVTDF 

MONITR: 

.ASCII 
MONL=.- 

/MONITOR/ 
■MONITR 

FILE: 

.ASCII 
FILEL= 

/FILE/ 
-FILE 

CONSLE: 

.ASCII 
C0NL=.- 

/CONSOLE/ 
■CONSLE 

BUFF: 

.BLKB 
.EVEN 

80. 

OUTPUT  BUFFER 

;•  DEFINE  EVENT 

TEMPLATE 

' 

.ASECT 

.=0 

.BLKW 

1 

C.LNK 

.BLKW 

1 

C.STS 

C.CLS: 

.BLKW 

1 

EVENT  CLASS 

C.EVT: 

.BLKW 

4 

•  EVENT  MASKS 

C.SNK: 

.BLKW 

1 

SINK  TYPE 

C.LEN=. 

.PSECT 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 


.TITLE 
.IDENT 


UPDFIL  -  CFE  UPDATE  REMOTE  CHARACTERISTICS  IN  CETAS 
/V05.00/ 


COPYRIGHT  (C)  1983,  1984,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  REMOTE  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF   ITS 
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MACRO  CALLS  AND  LOCAL  DATA 
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tUPFEA  -  UPDATE  FEATURES  DEFINITION 


169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 

184  0001 K 

185  000114 

186  000120 

187  000124 

188  000130 

189  000134 

190  000140 
191 

192 
193 


.SBTTL  SETWD3  -  UPDATE  THE  CURRENT  STATES  WORD 

»*•  -  SETWD3  -  UPDATE  THE  CURRENT  STATES  WORD 

INPUT: 

TEMP  =  THE  TEMPLATE  ADDRESS 

C.WD3(TEMP)  =  THE  CURRENT  STATES  WORD 

$08UF  =  THE  CURRENT  POSITION  IN  THE  OUTPUT  BUFFER 

OUTPUT: 

$OBUF  =  THE  NEW  POSITION  IN  THE  OUTPUT  BUFFER 


016700  OOOOOOG 

016702  177654 

016201  000012 

004767  OOOOOOG 

010067  OOOOOOG 
000207 


000001 


SETWD3: 


MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


.END 


SOBUf ,R0 

TEMP,R2 

C.WD3(R2),R1 

$CNVO 

RO, SOBUF 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  AT  THE  TEMPLATE 

GET  THE  CURRENT  STATES  WORD 

CONVERT  THE  NUMBER  TO  ASCII 

UPDATE  IHE  POSITION  IN  THE  OUTPUT  BUFFER 
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V:l 
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250 
251 
252 
253 
25A 
255 
256 
257 
258 
259 
260 

261  00022^ 

262  000224 

263  000226 
26A  000232 

265  000236 

266  000242 

267  000246 

268  000252 

269  000260 

270  000262 

271  000266 

272  000272 

273  000276 

274  000304 

275  000306 

276  000312 

277  000316 

278  000322 

279  000330 

280  000332 

281  000336 

282  000342 

283  000346 

284  000354 

285  000356 

286  000362 

287  000366 

288  000372 

289  000400 

290  000402 

291  000406 

292  000412 

293  000416 

294  000424 

295  000426 

296  000432 

297  000436 

298  000442 

299  000450 

300  000452 

301  000456 

302  000462 

303  000466 
504  000470 

305  000474 

306  000476 


.SBTTL  SETFLG  -  SETUP  THE  FLAGS  WORD 
*•♦  -  SETFLG  -  SETUP  THE  FLAGS  WORD 
INPUT: 


TEMP  =  START  ADDRESS  OF  THE  TEMPLATE 


OUTPUT 


THE   FLAGS   WORD  BIT   DEFINITIONS   ARE   UPDATED 


SETFLG: 


010546 

MOV 

016705 

177546 

MOV 

016700 

OOOOOOG 

MOV 

012701 

000002' 

MOV 

012702 

000007 

MOV 

004767 

OOOOOOG 

CALL 

032765 

OOOOOOG 

000006 

BIT 

001406 

BEQ 

012701 

OOOOOOG 

MOV 

012702 

OOOOOOG 

MOV 

004767 

OOOOOOG 

CALL 

032765 

OOOOOOG 

000006 

10$: 

BIT 

001406 

BEQ 

012701 

OOOOOOG 

MOV 

012702 

OOOOOOG 

MOV 

004767 

OOOOOOG 

CALL 

032765 

OOOOOOG 

000006 

20$: 

SIT 

001406 

BEQ 

012701 

000011' 

MOV 

012702 

000007 

MOV 

004767 

OOOOOOG 

CALL 

032765 

OOOOOOG 

000006 

30$: 

BIT 

001406 

BEQ 

012701 

000020' 

MOV 

012702 

000007 

MOV 

004767 

OOOOOOG 

CALL 

032765 

OOOOOOG 

000006 

40$: 

BIT 

001406 

BEQ 

012701 

000027' 

MOV 

012702 

000007 

MOV 

004767 

OOOOOOG 

CALL 

032765 

OOOOOOG 

000006 

50$: 

BIT 

001406 

BEQ 

012701 

000036' 

MOV 

012702 

000007 

MOV 

004767 

OOOOOOG 

CALL 

032765 

OOOOOOG 

000006 

55$: 

BIT 

001406 

BEQ 

012701 

000045' 

MOV 

012702 

000007 

MOV 

004767 

OOOOOOG 

CALL 

105740 

60$: 

TSTB 

010067 

OOOOOOG 

MOV 

012605 

MOV 

000207 

RETURN 

R5,-(SP) 

TEMP,R5 

$OSUF,R0 

#ZLLC,R1 

#ZLLCL,R2 

$MVASC  , 

#ZF.TIM,C.FLG(R5) 

10$ 

nZTIM,R1 

#$ZTIML,R2 

$MVASC  , 

#ZF.MFL,C.FLG(R5) 

20$ 

#$ZHFL,R1 

#$ZMFLL,R2 

$MVASC 

#ZF.MTM,C.FLG(R5) 

30$  ; 

#ZMTM,R1 

#ZMTML,R2 

$MVASC  ; 

#ZF.C0U,C.FLG(R5) 

40$ 

#ZC0U,R1 

#ZC0UL,R2 

$MVASC  , 

#ZF.X3P,C.FLG(R5) 

50$ 

#ZX3P,R1 

#ZX3PL,R2 

$MVASC  , 

*ZF.SLI,C.FLG(R5) 

55$ 

#ZSLI,R1 

#ZSLIL,R2 

$MVASC 

#ZF.JNI,C.FLG(R5 

60$ 

#ZINI,R1 

*ZINIL,R2 

$MVASC 

-(RO) 

R0,$OBUF 

(SP)t,R5 


SAVE   R5 

GET  START  OF  TEMPLATE 

POINT  AT  CURRENT  IN  OUTPUT  BUFFER 

POINT  R1  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  TIMER  BIT  NEEDED  ? 

IF  EQ,  NO 

POINT  R1  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  MARK  FOR  LOAD  ? 

IF  EQ,  NO 

POINT  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  MULTIPLE  TIMERS  ? 

IF  EQ,  NO 

POINT  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  SUPPORT  FOR  COUNTERS  ? 

IF  EQ,  NO  ..  LEAVE 

POINT  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  SUPPORT  FOR  X.25  LEVEL  3? 

IF  EQ,  NO  ..  LEAVE 

POINT  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  DOES  IT  USE  THE  SYSTEM  LEVEL  INTERFACE 

IF  EQ,  NO  ..  LEAVE 

POINT  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

;  DOES  IT  REQUIRE  INIT/EXIT  SUPPORT? 

IF  EQ,  NO  ..  LEAVE 

POINT  AT  INPUT  STRING 

..AND  LENGTH  OF  STRING 

MOVE  STRING  INTO  OUTPUT  BUFFER 

BACK  UP  OVER  LAST  "I" 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 

RESTORE  R5 
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UPDLOG  - 
MACRO  OFF 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
lU 
75 
76 

n 

78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 


CFE  UPDATE 
IMTIONS 


LOGGING  STA  MACRO  V05.03b  Saturday  29-Jun-85  05:53  Page  K 

.SBTri  MACRO  DEFINITIONS 


■  LOCAL  MACROS 
•  *  •  ♦  • 


.MACRO  PRINT   TEXT 


MOV 

CALL 

.ENDM 


TEXT.RG 

SPRINT 

PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRJNT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DJF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


MACRO  CALLS 
**** 

.MCALL 


ISTATS, STATES, TRANS 
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LOCAL  DATA 


05:53 
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155  000002  STATES  ID 

15^  000002  TRANS  RA,$EXIT 

155  000002  TRANS  SANV.ID 

157  000002  STATES 
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SUPNOD  -  UPDATE  NODE  DEFI^:ITION 
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99 
100 

101 

102 

105 

10A  000150 

105 

106 

107  000150 

108  000150 
109 

110  000150 

111  000150 
112 

113  000150 
IK  000150 
115 

116  000150 

117  000150 
118 

119  000150 

120  000150 
121 

122  000150 

123  000150 
124 

125  000150 

126  000150 
127 

128  000150 

129  000150 
130 

131  000150 

132  000150 
133 

134 
135 

136  000150 

137  000150 
138 

139  000150 


INITIALIZE  TABLE  GENERATION 


ISTATS  0BJSTB,0BJKT8 


STATES 
TRANS  $NUM8R,,SETYPE 

STATES 
TRANS  <',>,,SMOVPT 

STATES 
TRANS  SRAD50,,SETNAM 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETVFY 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETFLG 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SNUM8R,,SETCPY 

EXIT  STATE 

STATES  EXIT 
TRANS  SEOS.SEXIT 

STATES 


H  H 

UPDOBJ  -  CFE  UPDATE  OBJECT  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:54 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
W 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
'.0 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE 
.IDENT 


UPDPAR  -  CFE  UPDATE  PARTITION  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIASILITv  qF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  PARTITION  DEFINITIONS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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SETPHI  -  SET  THE  PRIORITY 
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290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 


.SBTTL  SETPRI  -  SET  THE  PRIORITr 

***  -  SETPRI  -  SET  THE  PROCESS  PRIORITY 

INPUT: 

.PNUMB  =  PRIORITY 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 

OUTPUT: 


000646 

000646  016702  177126 

000652  0162C1  000010 

000656  016700  OOOOOOG 

000662  004767  OOOOOOG 

000666  010067  OOOOOOG 

000672  000207 


SETPRI: 


MOV 

TEMP,R2 

MOV 

C.PRI(R2) 

MOV 

$08UF,R0 

CALL 

$CNVO 

MOV 

RO.SOBUF 

RETURN 

,R1 


GET  START  OF  TEMPLATE 

GET  PRIORITY 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  OCTAL 

UPDATE  POINTER  INTO  OUTPUT  BUFF'R 


UPDDDM  -  CFE  UPDATE  DEVICE  PROC  MACRO  V05.03b  Saturday  29-Jun-85  05:48 
SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 


05:4E 
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SUPDEC  -  UPDATE  DEC  DEFINITION 


H     2 


H9 
UO 
U1 
U2 
K3 

145 
1A6 
U7 
U8 
U9 
150 

151  000002 

152  000002 

153  000006 

154  000010 

155  000012 

156  OOOOU 

157  000022 
158 

159 
160 

161  000024 

162  000026 

163  000032 

164  000040 

165  000042 

166  000050 

167  000052 

168  000056 

169  000060 

170  000062 

171  000066 

172  000072 

173  000076 

174  000100 

175  0''0104 

176  000106 
177 

178 
179 

180  ooono 


.SBTTL  SUPDEC  -  UPDATE  DEC  DEFINITION 
***  -  SUPDEC  -  UPDATE  DECSDF  DEFINITION 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


012700 
010001 
011000 
001436 
122760 
001371 


011011 
010067 
032760 
001004 
012767 
000416 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPDEC:: 
10S: 


OOOOOOG  OOOOOOG 


MOV  #STMLST,RO 

MOV  RO.Rl 

MOV  (RO),RO 

BEQ  101$  , 

CMPB  #CS.DEC,C.STS(RO) 

BNE  1 0S 


POINT  AT  START  OF  TEMPLATES 
SAVE  PREVIOUS  TEMPLATE  ADDRESS 
GET  NEXT  TEMPLATE 
IF  EQ,  CANNOT  FIND  LLC  TEMPLATE 
;  IS  THIS  AN  DEC  TEMPLATE  ? 
IF  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


177746 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOC 

OOOOOOG  15$: 


000000' 
000000' 
OOOOOOG 

OOOOOOG 

20$: 
30$: 


MOV 

MOV 

SIT 

BNE 

MOV 

BR 

CALL 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


(R0),(R1) 

RO.TEMP 

#CS.M0D,C.STS 

15$ 

#$6UF1,$0FDB+ 

30$ 

$MOVST 

R5,-(SP) 

R1 

#DECKTB,R2 

#DECSTB,R5 

.TPARS 

20$ 

$ERR0R 

(SP)+,R5 


;  REMOVE  TEMPLATE  FROM  CHAIN 
;  SAVE  TEMPLATE  ADDRESS 
(ROS  ;  WAS  THIS  TEMPLATE  MODIFIED  ? 

;  IF  NE,  YES  ..  UPDATE  THE  RECORD 
F.NRBD+2  ;  ELSE,  OUTPUT  THE  INPUT  BUFFER 

AND  LEAVE 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


000167  OOOOOOG 


ERROR  CONDITIONS 
101$:   JMP     .CONER 


CONSISTENCY  ERROR 


UPDDEC  -  CFE  UPDATE  DEC$DF  DEFI  MACRO  V05.03b  Saturday  29-Jun-85 
SE^LKS  -  NUMBER  OF  LOGICAL  LINKS  PROCESS  SHOULD  SUPPORT 
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UPDDEC  CRE<\TED  BY     MACRO     ON  29-JUN-85   AT   05:49 

SYMBOL    CROSS  REFERENCE 
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PAGE   1 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

CD.LEN 

=  000022 

#4-52 

CS.DEC 

=   ****** 

GX 

6-156 

CS.MOD 

=   ****** 

GX 

6-163 

C.DELF 

000016 

#4-52 

12-300 

C.DELU 

000017 

#4-52 

13-321 

C.INAC 

000014 

#4-52 

11-279 

C.INCT 

000012 

#4-52 

9-237 

C.IPL 

000020 

#4-52 

14-342 

C.LKS 

000010 

#4-52 

7-196 

C.LST 

000021 

#4-52 

15-363 

C.NDC 

000006 

#4-52 

8-216 

C.OUTT 

000013 

#4-52 

10-258 

C.RETF 

000015 

#4-52 

16-384 

C.SEG 

000004 

#4-52 

17-404 

C.STS 

r      ****** 

GX 

6-156 

6-163 

DECKTB 

000000 

RG 

#5-67 

6-170 

DECSTB 

000000 

RG 

#5-67 

6-171 

F.NRBD 

=    ****** 

GX 

»6-165 

NtSOVR 

=  000022 

17-406 

SETDEF 

000300 

R 

#12-297 

SETDEW 

000330 

R 

#13-318 

SETINA 

000250 

R 

#11-276 

SETINC 

000170 

R 

#9-234 

SETIPL 

000360 

R 

#14-339 

SETLKS 

000114 

R 

#7-194 

^•ETLST 

000410 

R 

#15-360 

SETNDC 

000142 

R 

#8-214 

SETOUT 

000220 

R 

#10-255 

SETRET 

000440 

R 

#16-381 

SETSEG 

000470 

R 

#17-402 

TEMP 

000000 

R 

#4-59 

*6-162 

7-195 

8-215 

9-235 

14-340 

15-361 

16-382 

17-403 

SALPHA 

=  000022 

#5-67 

$ANY 

=  000020 

#5-67 

SBLANK 

=  000006 

#5-67 

$BUFI 

=  ****** 

GX 

6-165 

SCNVD 

:;     ****** 

GX 

7-198 
16-386 

8-218 
17-408 

9-239 

10-260 

11-281 

SDIGIT 

=  000024 

#5-67 

SDNUMB 

=  000014 

#5-67 

$EOS 

=  000012 

#5-67 

SERROR 

r     ****** 

GX 

»6-174 

SEXIT 

=  000000 

#5-67 

$FAIL 

=  Mim 

#5-67 

SGPRM 

-     ****** 

5-67 

SLAMDA 

=  000000 

#5-67 

SMOVST 

=    ****** 

GX 

6-167 

SNUMBR 

=  000002 

#5-67 

$QBUF 

-    ****** 

GX 

7-197 

»7-199 

8-217 

*8-219 

9-238 

♦11-282 

12-301 

*12-303 

13-322 

•13-324 

16-385 

*16-387 

17-407 

»1 7-409 

SOfDB 

-    ****** 

GX 

•6-165 

10-256  11-277  12-298  13-319 


12-302  13-323  14-344  15-365 


•9-240  10-259         ♦10-261  11-280 

14-3^5         ♦14-345  15-364         ♦15-366 


UPDDEC 
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roncc   DCCCDCMTC 


TRFF      oi.nn 
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UPDOLC  -  CFE  UPDATE  DLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:50  Page  10 
SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 


292 
293 
29^ 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 


.SBTTL   SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 
'♦**  -  SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 

'.PNUMB  =  NUMBER  OF  LINE  TABLE  TO  BE  SET  IN  PROCESS  SPACE 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

C.NLT  IN  TEMPLATE  MOVED  INTO  OUTPUT  BUFFER 


000376 

000376  016702  177376 

00C402  005001 

OOOAOA  156201  000012 

000A10  016700  OOOOOOG 

0004U  004767  OOOOOOG 

000420  010067  0000006 

000424  000207 


SETNLT: 


MOV 

TEMP,R2 

CLR 

Rl 

BISB 

C.NLT(R2) 

MOV 

$OBUF,R0 

CALL 

$CNVD 

MOV 

RO,$OBUF 

.Rl 


GET  THE  TEMPLATE  ADDRESS 

GET  THE  LINE  TABLE  COUNT 

..WITHOUT  SIGN  EXTEND 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  SUFFER 


RETUR.J 


UPDDLC  -  CFF  UPD.'/F  Dl '.  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:50  Page  11 
SETNCT  -  STORE  NUMbtK  OF  CONTROLLER  TABLES 
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Symbol  table 
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CS.NUM=  «•*♦••  GX  C.NUM   000004 

CS.SH1=  .»«♦»*  GX  C.SHI   000020 

CS.SLO=  **♦*♦»  GX  C.SLO   000016 

C.CUG   000022  DA$CUG=  »**♦**  GX 

r.LEN  =  000026  DSADF   OOOOOOR 


DSALN  =  000010 
F.NRBD=  ♦****♦  GX 
SBUFI  =  ******  GX 
$HVASC=  ****** 
iOBUF  =  ****** 


SOFDB  = 

******   GX 

$UDATA= 

****** 

GX 

GX 

$PTNUM= 

«*«*♦*  6X 

.BUFF  = 

****** 

GX 

GX 

$PTOPT= 

******   GX 

. COMMA= 

****** 

uX 

GX 

$PTR50= 

******  GX 

.FLAGS= 

****** 

GX 

GX 

SUPDSA 

000010RG 

.TEMP  = 

****** 

GX 

ABS.  000026    000 
000256    001 
Errors  detected:  0 

*♦»  Assembler  statistics 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


0 

0 

8830  Words      (   35  Pages) 

14A40  Words     (   55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system: 

3Y:UPDDSa1v2![°3^?13°]UPDDSA/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETL]B/ML,[132,10DUPDDSA 
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«»FILE««ID*«UPDDST 
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UPDDST  -  UPDATE  DESTINATION  DES  MACRO  V05.03b  Saturday  29-Jun-85 
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UPDDTE  -  UPDATE  LOCAL 
MACRO  CALLS  AND  LOCAL 

57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000000 

112  000000 
113 


H  7 

DTE  DESCR  MACRO  V05.03b  Saturday  29-Jun-85  05:51  Page  4 
DATA 

.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
.SBTTL  MACRO  DEFINITIONS 


LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


L: 


.IF  DIF 

<TE)(T><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERR 

.ENDM 

ERRORS 

.MACRO 

EPRINT  TEXT 

PRINT  TEXT  ON 

ERROR  LUN 

.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERl 

.ENDM 

EPRINT 

PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN  ROU 

.MACRO 

'ROU    OFS,OCTL.OPT.?L 

.IF  NB 

<OPT> 

MOV 

0PT.R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  NS 

<OCTL> 

MOV 

SP.Rl 

.IFr 

CLR 

Rl 

.ENDC  ; 

IF  N8  <OCTL> 

CALL 

•ROU 

.IFT   ; 

IF  NB  <OPT> 

.ENDC  ; 

IF  NB  <OPT> 

.ENDM  ; 

'ROU 

.ENDM  ; 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNMB 

GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


UPDDTE  -  UPDATE  LOCAL  DTE  DESCR  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  DEFINITIONS 
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UPDEVT  - 

CFE  UPDATE 

STATE  TABLES 

111 

112 

113 

1U 

115 

116 

117 

118 

000202 

119 

120 

121 

000202 

122 

000202 

125 

124 

000202 

125 

000202 

126 

127 

000202 

128 

000202 

129 

130 

000202 

131 

000202 

132 

133 

0C02O2 

13A 

000202 

135 

136 

000202 

137 

000202 

138 

139 

KO 

Kl 

U2 

000202 

K3 

000202 

UA 

U5 

U6 

U7 

148 

000202 

149 

000202 

150 

151 

000202 

152 

000202 

153 

000202 

154 

155 

000202 

H     8 

EVENT   DEFIN  MACF)0  V05.03b  Saturday  29-Jun-85   05:51      Page  6 

.SBTTL      STATE    TABLES 

■  »»*♦ 

;  INITIALIZE  TABLE  GENERATION 

;  *  *  *  * 

ISTATS  EVTSTS,EVTKTB 


STATES 
TRANS  SNdMeR,,SETCLS 

STATES 
TRANS  <",>,, SHOVPT 

STATES 
TRANS  LA,,SM0VPT 

STATES 
TRANS   lEVTMSK 

STATES 
TRANS  <',>,, SMOVPT 

STATES 
TRANS  SSTRNG,EXIT,SETSNK 


EXIT  STATE 


STATES  EXIT 
TRANS  SEOS.SEXIT 


EVENT  MASK  SUB-EXPRESSION 

STATES  EVTMSK 

TRANS  SNUM8R,,SETMSK 

STATES 

TRANS  RA,SEXIT, SMOVPT 

TRANS  <',>,EVTMSK, SMOVPT 

STATES 


UPDEVT  -  CFE  UPDATE  EVENT  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85  05:51 
SUPEVT  -  SETUP  EVENT  DEFINITION 
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MACRO  CALLS  AND  LOCAL  DATA 
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^6 

47 

48 

49 

50 

51 

52 

53 

54  000000 

55 

56 

57 

5fe 

59 

60 

61 

62  000000 

63 

64  000000 

65  000002 

66  000004 

67  000006 

68  000010 

69  000012 

70  000014 
71 

72  000010 

73 

74 

75 

76 

77 

78 

79 

80  000016 

81 

82  000000 

83  000002 

84  000004 

85  000005 
86 

87  000010 


.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
.MCALL  SAVRG.RESRG 


Oil 
000010 


000000 


000016 


000036 


000000 


000043 


106 


111 


;  LOCAL 

DATA 

.NLIST 

BEX 

FILDF: 

.ASCII 

<11>/FILJiDF/<11> 

FILLN=. 

-FILDF 

.EVEN 

.LIST 

BEX 

;  Define  FILSDF 

template 

.ASECT 

.  =  0 

.BLKW 

.BLKU 

F$SEC: 

.BLKW 

ESTER: 

.BLKW 

F$LD: 

.BLKW 

FSDJA: 

.BLKW 

FSDUM: 

.BLKW 

F$LEN=. 

.PSECT 


Define  file  descriptor  offsets 


MXFSP  =  30. 


F.LNK: 
F.CNT: 

F.DEV: 
F.LEN 


.ASECT 

.  =  0 

.BLKW 

.BLKW 

.BLK8 

^BLKB 

.PSECT 


1 

1 
1 
MXFSP 


Link 

Flags 

Secondary  loader  file  name 

Tertiary  loader  file  name 

Load  file  name 

Diagnostics  file  name 

Dump  file  name 


Undivided  Filespec  length 


Link  word 

Use  count 

Filespec  string  length 

Filespec  string  (ASCII) 


I  ? 


UPDFIL  -  CFE  UPDATE  REMOTE  CHAR  MACRO  V05.03b  Saturday  29-Jun-85  05:52  Page  5 
SUPFIL  -  SETUP  REMOTE  DEFINITION 
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UPDFEA  -  CFE  UPDATE  FEATURES  DE  MACRO  V05.03b  Saturday  29-Jun-85  05:52 
Symbol  table 


CS.FEA= 

«*•♦••  GX 

CS.MOD= 

»»«♦»♦  GX 

C.DEV 

000004 

C.LEN  = 

000014 

C.STS  = 

«••♦••  GX 

C.WDl 

000006 

C.WD2 

000010 

C.WD3 

000012 

EXIT 

000034R 

0 

.  ABS. 

OOOOU 

000 

000142 

001 

SSTATE 

000042 

002 

SKTAB 

000000 

003 

t<STR 

000000 

004 

Errors 

detected: 

0 

FEAKTB  OOOOOORG 

FEASTB  OOOOOORG 

F.NRBD=  ******   GX 

StTWD3  0001UR 

TEMP  OOOOOOR 

$ALPHA=  000022 

$ANY  =  000020 

$BLANK=  000006 

002  $BUFI  =  »«**»♦  GX 

(RW,],GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


003  $CLNUP=  •♦****  GX 
002  $CNV0  =  ***•*♦  GX 
$01GIT=  000024 
$DNUMB=  000014 
$EOS  =  000012 
$ERROR=  ♦**«•»  GX 
$EXIT  =  000000 
$FAIL  =  177777 
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$LAMDA=  000000 
$M0VPT=  ****** 
$MOVST=  ****** 
$NUMBR=  000002 
$OBUF  =  ******  GX 
iOFDB  =  ****** 
$RAD50=  000016 
$STRNG=  000004 


$SUBXP= 

000010 

GX 

$TMLST= 

*♦«*♦♦  GX 

GX 

SUPFEA 

000002RG 

$$$FLG= 

177777 

GX 

$$$KEY= 

■\mn 

GX 

$$$STA= 

000000 

.CONER= 

**»♦*♦  GX 

. TPARS=  **•♦♦*  GX 


*»*  Assembler  statistics 


Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10406  Words   (  41  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


SV?UPDFEA!v2;[l'32?°34]UPDFEA/CR/-SP=SY:C1,1JRSXMCM.SML/ML,t130,110]NETL]B/ML,[132,10DUPDFEA 
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UPDLLC  - 
SETPRl  - 

308 
309 
310 
311 
312 
313 
3K 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32^ 
325 
326 
327 
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.S8TTL  SETPRl  -  SET  THE  PRIORITY 
♦»*  -  SETPRl  -  SET  THE  PROCESS  PRIORITY 
INPUT: 


.PNUMB  =  PRIORITY 

.PNUMH  =  PRIORITY  (HIGH  ORDER) 


000500 

000500  016702  177274 

000504  005001 

000506  156201  000010 

000512  016700  OOOOOOG 

000516  004767  OOOOOOG 

000522  010067  OOOOOOG 

000526  000207 


OUTPUT: 


SETPRl: 


MOV 

TEMP,R2 

CLR 

R1 

BIS8 

C.PRI(R2) 

MOV 

$08UF,RO 

CALL 

$CNVO 

MOV 

R0,$OBUF 

,R1 


RETURN 


GET  START  OF  TEMPLATE 

GET  PRIORITY  WITHOUT  SIGN  EXTEND 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  THE  NUMBER  TO  OCTAL 

UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 


UPDLLC  -  CFE  UPDATE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:52  Page  10 
SETLIN  -  SET  LINE  NUMBER 


I  11 

05:5^ 
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UPDLOG  -  CFE  UPDATE  LOGGING  STA  MACRO  V05.03b  Saturday  29-Jun-85  05:55  Page  5 
LOCAL  DATA 


92 

93 

9^ 

95 

96 

97 

98 

99 
100 

101  000000 
102 

103  000000 
10^  000002 
105  OOOOOA 
106 

107  000000 
108 
109  000000 


OOOCOO 


000005 


.S8TTL   LOCAL  DATA 


•  »**♦ 

;  LOCAL  DATA 
■  **** 


;  DEFINE  THE  LOGGING  STATE  BUFFER  BLOCK 


C.STA: 
C.LEN=. 


NEXT: 


.ASECT 

.=0 

.BLKW 

.BLKW 

.8LK8 


.PSECT 
.BLKW   1 


C.LNK 
C.STS 

LOGGING  STATE 
LENGTH  OF  THE  BLOCK 


ADDRESS  OF  NEXT  LOCATION  IN  TEMPLATE 


■jPDlOG  -  CfE  UPDATE  LOGGING  STA  MACRO  V05.03b  Saturday  29-Jun-85 
S'ATE  TABLES 
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tUPNOO  -  UPDATE  NODE  DEFI^;1T10^I 


159 
160 
161 

;  + 

;  *  *  *  - 

.SBTTL 
$UPN0D 

$UPNOD  -  UPDATE  NODE  DEFINITION 
-  UPDATE  NODE  DEFINITION 

162 
163 

■  INPUT 

164 

■r3-R5 

-  TPARS  KFGISTERS 

165 
166 

■  OUTPUT: 

167 

C-8IT 

=  SUCCESS/FAILURE 

168 

169 
170 
171  000002 

;  - 

SUPNOD: 

172  000002 

012700 

OOOOOOG 

'mov 

#$TMLST,RO 

POINT  AT  START  OF  TEMPLATES 

173  000006 

010001 

10$: 

MOV 

R0.R1 
(R0),R0 

SAVE  CURRENT  TEMPLATE 

174  000010 

011000 

MOV 

GET  NEXT  TEMPLATE 

175  000012 

001436 

BEQ 

101$           ; 
#CS.NOD,C.STS(R0) 

IF  EQ,  END  OF  TEMPLATES 

176  000014 

122760 

0000006 

OOOOOOG 

CMPB 

;  IS  THIS  A  NODE  TEMPLATE  ? 

177  000022 

178 

179 

001371 

BNE 

10$ 

IF  NE,  NO  ..  KEEP  LOOKING 

;•  ASSUME  THIS 

IS  THE  RIGHT  TEMPLATE 

180 

181  000024 

011011 

MOV 

(R0),(R1) 

REMOVE  TEMPLATE  FROM  CHAIN 

182  000026 

010067 

177746 

MOV 

RO.TEMP        ; 
#CS.MOD,C.STS(R05 

SAVE  TEMPLATE  ADDRESS 

183  000032 

032760 

OOOOOOG 

OOOOOOG 

BIT 

;  WAS  THIS  TEMPLATE  MODIFIED  ? 

184  000040 

001004 

BNE 

15$ 

IF  NE,  YES  ..  UPDATE  THE  DEFINITION 

185  000042 

012767 

OOOOOOG 

OOOOOOC 

MOV 

#$BUFI,$0FDB+F.NRBD+2  ;  ELSE,  OUTPUT  THE  INPUT  BUFFER 

186  000050 

000416 

BR 

30$ 

AND  LEAVE 

187  000052 

004767 

OOOOOOG 

15$: 

CALL 

$MOVST 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

188  000056 

010546 

MOV 

R5,-(SP) 

SAVE  R5 

189  000060 

005C01 

CLR 

R1 

IGNORE  BLANKS 

190  000062 

012702 

000000' 

MOV 

#N0DKTB,R2 

KEYWORD  TABLE 

191  000066 

012705 

000000' 

MOV 

#N0DSTB,R5 

STATE  TABLE 

192  000072 

004767 

OOOOOOG 

CALL 

.TPARS 

PARSE  THE  REST  OF  THE  LINE 

193  000076 

103002 

BCC 

20$           ; 

NORMAL  RETURN  IF  NO  ERROR 

194  000100 

005267 

OOOOOOG 

INC 

$ERR0R 

INDICATE  SYNTAX  ERROR 

195  000104 

012605 

20$: 

MOV 

(SP)+,R5 

RESTORE  R5 

196  000106 

000207 

30$: 

RETURN 

197 

198 
199 

200  000110 

,'  ERROR 

CONDITIONS 

000167 

OOOOOOG 

i01$: 

JMP 

.CONER 

CONSISTENCY  ERROR 

UPDNOD  -  CFE  UPDATE  NODE  DEFINI  MACRO  VO5.03b  Saturday  29-Jun-85 
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{  13 

05:5 


53  Page  7 


H  H 
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SUPOBJ  -  SETUP  OBJECT  DEFINITION 


Page  6 


U1 
K2 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 

153  000150 

154  000150 

155  000156 

156  000160 

157  000164 

158  000166 

159  000170 

160  000172 

161  000200 
162 

163 
164 

165  000202 

166  000204 

167  000210 

168  000214 

169  000220 

170  000224 

171  000230 

172  000234 

173  000236 

174  000242 

175  000246 

176  000252 

177  000256 

178  000262 

179  000264 

180  000270 

181  000272 

182  000276 

183  0':'0302 

184  000306 

185  000312 

186  000514 

187  000316 

188  000324 


012767 
010546 
012700 
010001 
011000 
001451 
122760 
001371 


.SBTTL     SUPOBJ   -   SETUP  OBJECT  DEFINITION 
♦**   -  SUPOBJ   -   SETUP  OBJECT   DEFINITION 
INPUT: 


R3-R5       -   TPARS   REGISTERS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


SUPOBJ:  : 

000027'  OOOOOOC        MOV  #BUFF ,SOFDB+F .NRBD+2 

MOV  R5,-(SP) 

OOOOOOG        5S:     MOV  *STMLST,RO 

lOS:    MOV  RO.Rl 

MOV  (RO),RO 

BED  30S  , 

CMPB  #CS.OBJ,C.STS(R0) 

BNE  10$ 


011011 
010067 
012700 
012701 
012702 
004767 
010067 
005001 
012702 
012703 
012704 
012705 
004767 
103003 
005267 
000411 
016701 
162701 
010167 
004767 
000722 
012605 
012767 
000207 


OOOOOOG  OOOOOOG 


u  .  SET  NEW  OUTPUT  BUFFER 
SAVE  CURRENT  TPARS  STATE 
POINT  AT  START  OF  TEMPLATES 
SAVE  ADDRESS  OF  CURRENT  TEMPLATE 
GET  ADDRESS  OF  NEXT  TEMPLATE 
IF  EQ,  END  OF  TEMPLATES 
;  IS  THIS  AN  OBJECT  DEFINITION 
IF  NE,  NO  ..  KEEP  LOOKING 


FOUND  A  TEMPLATE 


177570 

000027' 

000017' 

000010 

OOOOOOG 

OOOOOOG 

000000' 

000014 

000002' 

000000' 

OOOOOOG 

OOOOOOG 

OOOOOOG 
000027- 
OOOOOOC 
OOOOOOG 


20$: 


OOOOOOG  OOOOOOC 


30$: 


MOV  (R0),(R1)  ;  REMOVE  TEMPLATE  FROM  CHAIN 

MOV  RO.TEMP  ;  SAVE  TEMPLATE  ADDRESS 

MOV  #BUFF,RO  ;  POINT  AT  START  OF  OUTPUT  BUFFER 

MOV  #08JDF,R1  ;  POINT  AT  START  OF  OBJECT  DEFINITION 

MOV  #08JLN,R2  ;  GET  LENGTH  OF  OBJECT  DEFINITION 

CALL  $MVASC  ;  MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

MOV  RO,$08UF  ;  SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CLR  R1  ;  IGNORE  BLANKS 

MOV  #0ejKTB,R2  ;  KEYWORD  TABLE 

MOV  *06JLEN,R3  ;  LENGTH  OF  OBJECT  DEFINITION 

MOV  #0BJDEF,R4  ;  ADDRESS  OF  OBJECT  DEFINITION 

MOV  #0BJSTB,R5  ;  STATE  TABLE 

CALL  .TPARS  ;  PARSE  THE  REST  OF  THE  LINE 

BCC  20$  ;  NORMAL  RETURN  IF  NO  ERROR 

INC  SERROR  ;  INDICATE  SYNTAX  ERROR 

BR  30$  ;  AND  LEAVE 

MOV  $0BUF,R1  ;  CALCULATE  LENGTH  OF  BUFFER 

SUB  #BUFF,R1 

MOV  Rl,$OFOBtF.NRBD  ;  SET  LENGTH  OF  BUFFER 

CALL  $WDATA  ;  WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

BR  5$  ;  AND  LOOK  FOR  MORE  OBJECT  TEMPLATES 

MOV  (SP)t,R5  ;  RESTORE  R5 

MOV  *SBUFI,$0FDB+F.NRBD+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 

RETURN 


UPDOBJ  -  CFE  UPDATE  OBJECT  DEFI  MACRO  V05.03b  Saturday  29-Jun-85 
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UPDPAR  - 

CFE  UPDATE  PARTITION  D 

MACRO  VC 

55 

5A 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

000000 

65 

66 

000002 

124 

117 

120 

67 

000003 

68 

000005 

123 

102 

120 

69 

000006 

70 

71 

72 

73 

Ik 

000000 

75 

000000 

76 

000000 

n 

000002 

78 

OOOOOA 

79 

000010 

80 

oooou 

81 

000016 

82 

000020 

83 

oooou 

84 

H  15 


;  MACRO 

CALLS 

•  **** 

.MCALL 

ISTAT$,S 

•  **** 

;  LOCAL 

DATA 

;  *  *  *  * 

lEMP: 

.BLKW 

1 

.NLIST 

BEX 

TOPSW: 

.ASCII 

/TOP/ 

TOPL=.- 

TOPSW 

SBPSW: 

.ASCII 

/SBPOOL/ 

SBPL=.- 

■SBPSW 

.EVEN 

;  DEFINE  PARTITION  TEMPL 

.ASECT 

.=0 

.8LKW 

1 

.BLKW 

1 

C.NAMO: 

.BLKW 

2 

C.NAM1: 

.8LKW 

2 

C.EXT: 

.BLKW 

1 

CALL: 

.BLKW 

1 

C.LEN=. 

.psEcr 


ADDRESS  OF  DLC  TEMPLATE 
TOP  DOWN  LOADING  SWITCH 
Server  Base  pool  switch 


C.LNK 

C.STS 

POOL  PARTITION  NAME  (RAD50) 

DYNAMIC  PARTITION  TO  CREATE  POOL  FROM  (RAD50) 

POOL  EXTENSION  SIZE 

NUMBER  OF  BLOCKS  TO  ALLOCATE  FOR  SINGLE  WORD  POOL 
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UPDPSN  -  UPDA'E  PSN  IN  CHAB    MACRO  V05.05b  Saturday  29-Jun-85  05:55 
Tabie  ot  contents 

k-       57    MACRO  DEFINITIONS 

5-  122         LOCAL    DATA 

6-  161  SLJPPSN  -  UPDATE    PSN  DEFINITION 
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SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 


05:1,1 


Page  10 


310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 

323  000674 

324  000674 

325  000700 

326  000702 

327  000706 

328  000712 

329  000716 

330  000722 


.SBTTL  SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 
'»*»  -  SETNLT  -  STORE  NUMBER  OF  LINE  TABLES 
INPUT 


.PNUMB  =  NUMBER  OF  LINE  TABLE  TO  BE  SET  IN  PROCESS  SPACE 
TEMP  =  TEMPLATE  ADDRESS 


OUTPUT 


C.NLT  IN  TEMPLATE  MOVED  INTO  OUTPUT  BUFFER 


016702  177100 

005001 

156201  000012 

016700  OOOOOOG 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


SETNLT: 


MOV 

TEMP,R2 

CLR 

R1 

BISB 

C.NLT(R2),R1 

MOV 

$OBUF,R0 

CALL 

SCNVD 

MOV 

RO,$OBUF 

RETURN 


GET  THE  TEMPLATE  ADDRESS 

GET  THE  LINE  TABLE  COUNT 

..WITHOUT  SIGN  EXTEND 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
19? 
193 
194 
195 
196 
197 
198 
199 
200 


.SBTTL  SETLKS  -  NUMBER  OF  LOGICAL  LINKS  PROCESS  SHOULD  SUPPORT 
♦**  -  SETLKS  -  SETUP  NUMBER  OF  LOGICAL  LINKS 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 

SOBUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


OUTPUT: 


000114 

000114  016702  177660 

000120  016201  000010 

000124  016700  OOOOOOG 

000130  004767  OOOOOOG 

000134  010067  OOOOOOG 

000140  000207 


SETLKS: 


MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


TEMP,R2 
C.LKS(R2),R1 
SOBUF, RO 
SCNVD 
RCSOBUF 


GET  START  OF  TEMPLATE 

GET  NUMBER  OF  LOGICAL  LINKS 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMU 

UPDATE  POINTER  INTO  OUT.'UT  BUFFER 
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UPDDEC     CREATED  BY 
SYMBOL  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  05:^9 
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PAGE  2 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

$RAD50 

=  000016 

#5-67 

SRONLY 

=   «♦*•** 

5-67 

SSTRNG 

=  OOOOOA 

#5-67 

SSUBXP 

=  000010 

#5-67 

STMLST 

r  ****** 

(iX 

6-152 

SUPDEC 

000002 

RG 

#6-151 

$$$FLG 

=  177777 

#5-67 

$I$<EY 

=  177777 

#5-67 

.CONER 

-   ****** 

(iX 

6-180 

.TPARS 

=   ****** 

GX 

6-172 

5-67 


5-67 
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CREF   04.00 


UPDDLC 
SETNCT 
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STORE   NUMbtK  OF    CONTROLLER   TABLES 


31A 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 

326  000«26 

327  000426 

328  000432 

329  000A3A 

330  000440 

331  0004A4 

332  000450 

333  000454 
334 

335 
336 


.SanL  SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 
'**♦  -  SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C.NCT  IN  TEMPLATE  MOVED  INTO  OUTPUT  BUFFER 


016702  177346 

005001 

156201  000013 

016700  OOOOOOG 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


000001 


SETNCT: 


MOV 

TEMP,R2 

CLR 

R1 

BIS8 

C.NCT(R2),R1 

MOV 

$08UF,R0 

CALL 

SCNVD 

MOV 

R0,$OBUF 

RETURN 

GET  THE  TEMPLATE  ADDRESS 

GET  THE  CONTROLLER  TABLE  COUNT 

..WITHOUT  SIGN  EXTEND 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


.END 
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SYMBOL 

VALUE 

REFERENCES 

CS.NUM 

; 

****** 

GX 

6-176 

CS.SHI 

~ 

****** 

GX 

6-178 

CS.SLO 

- 

****** 

GX 

6-177 

C.CUG 

000022 

#5-U3 

6-179 

C.LEN 

r 

000026 

#5-U4 

C.NUM 

000004 

#5-U0 

6-176 

C.SHI 

000020 

#5-U2 

6-178 

C.SLO 

000016 

#5-141 

6-177 

DASCUG 

r 

****** 

GX 

6-179 

DSADF 

000000 

R 

#5-K7 

5-148 

6-172 

DSALN 

- 

000010 

#5-U8 

6-7? 

F.NRBD 

- 

****** 

GX 

»6-166 

♦6-182 

•6-184 

SBUFI 

r 

****** 

GX 

6-184 

SMVASC 

- 

****** 

GX 

6-174 

SOBUF 

- 

****** 

GX 

*6-175 

6-180 

$OFDB 

r 

****** 

GX 

*6-166 

•6-182 

•6-184 

SPTNUM 

- 

****** 

GX 

6-77 

6-178 

SPTOPT 

= 

****** 

GX 

6-76 

6-177 

6-178 

$PTR50 

r 

****** 

GX 

6-176 

6-179 

SUPDSA 

000010 

RG 

#6-165 

SWDATA 

- 

****** 

GX 

6-183 

.BUFF 

= 

****** 

GX 

6-166 

6-171 

6-181 

.COMMA 

- 

****** 

GX 

*6-170 

.FLAGS 

~ 

****** 

GX 

•6-169 

.TEMP 

- 

****** 

GX 

•6-167 

6-179 


UPDDSA 
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MACRO  DEFINITIONS 
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11A 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 


PUT  RAD50  TEMPLATE  FIELD  TO  BUFFER 
OFS,WC,OPT,?L 


.MACRO 

$PTR50 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

MOV 

UCRI 

CALL 

$PTR50 

.IFT 

.ENDC 

.ENDM 

MACRO  CALLS 

.MCALL 

CALLR 

J  7 

UPDDTE  -  UPDATE  LOCAL  DTE  DESCR  MACRO  V05.03b  Saturday  29-Jun-85  05:51  Page  5 
LOCAL  DATA 


UPDEVT 
SUPEVT 
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157 
158 
159 
160 
161 
162 
163 
16A 
165 
166 
167 
168 

169  000202 

170  000202 

171  000210 

172  000212 

173  000216 
17A  000220 

175  000222 

176  00022A 

177  000232 
178 

179 
180 

181  00023A 

182  000236 

183  000242 

184  000246 

185  000252 

186  000256 

187  000262 

188  000266 

189  000270 

190  000274 

191  000300 

192  000304 

193  000310 

194  000314 

195  000316 

196  000322 

197  000324 

198  000330 

199  000334 

200  000340 

201  000344 

202  000346 

203  000350 

204  000356 


.SBTTL  SUPEVT  -  SETUP  EVENT  DEFINITION 
'***  -  SUPEVT  -  SETUP  EVENT  DEFINITION 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 


C-8IT   =   SUCCESS/FAILURE 


012767 
010546 
012700 
010001 
011000 
001451 
122760 
001371 


011011 
010067 
012700 
012701 
012702 
004767 
010067 
005001 
012702 
012703 
012704 
012705 
004767 
103003 
005267 
000411 
016701 
162701 
010167 
004767 
000722 
012605 
012767 
000207 


000062'  OOOOOOC 
OOOOOOG 


SUPEVT: 


5S: 
lOS: 


OOOOOOG  OOOOOOG 


177536 

000062- 

000030' 

000010 

OOOOOOG 

OOOOOOG 

000000" 

000023 

000004' 

000000' 

OOOOOOG 

OOOOOOG 

OOOOOOG 
000062' 
OOOOOOC 
OOOOOOG 


MOV 

MOV 

MOV 

MOV 

MOV 

BEQ 

CMPB 

BNE 


#BUFF,S0FDB+F.NRBD+2  ;  SET  NEW  OUTPUT  BUFFER 


R5,-(SP) 

#STMLST,RO 

RO.fil 

(R0),RO 

30S  , 

#CS.EVT,C.STS(R0) 

10$ 


FOUND  A  TEMPLATE 


20$: 


OOOOOOG  OOOOOOC 


30$: 


MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

CALL 

BCC 

INC 

BR 

MOV 

SUB 

MOV 

CALL 

BR 

MOV 

MOV 

RETURN 


(R0),(R1) 

RO.TEMP 

#BUFF,RO 

#EVTDF,R1 

#EVTLN,R2 

SMVASC 

R0,$OBUF 

Rl 

#EVTKTB,R2 

#EVTLEN,R3 

#EVTDEF,R4 

#EVTSTB,R5 

.TPARS 

20$ 

SERROR 

30$ 

$0BUF,R1 

#BUFF,R1 

R1,$0FDBtF.NRBD 

SWDATA 

5$ 

(SP)+,R5 

*$BUFI,$OF 


SAV^  CURRENT  TPARS  STATE 
POINT  AT  START  OF  TEMPLATES 
SAVE  ADDRESS  OF  CURRENT  TEMPLATE 
GET  ADDRESS  OF  NEXT  TEMPLATE 
IF  EQ,  END  OF  TEMPLATES 
;  IS  THIS  AN  EVENT  DEFINITION 
IF  N£,  NO  ..  KEEP  LOOKING 


REMOVE  TEMPLATE  FROM  CHAIN 

SAVE  TEMPLATE  ADDRESS 

POINT  AT  START  OF  OUTPUT  BUFFER 

POINT  AT  START  OF  EVENT  DEFINITION 

GET  LENGTH  OF  EVENT  DEFINITION 

MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

IGNORE  BLANKS 

KEYWORD  TABLE 

LENGTH  OF  EVENT  DEFINITION 

ADDRESS  OF  EVENT  DEFINITION 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

AND  LEAVE 

CALCULATE  LENGTH  OF  BUFFER 


SET  LENGTH  OF  BUFFER 
WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 
AND  LOOK  FOR  MORE  EVENT  TEMPLATES 
RESTORE  R5 
DB+F.NRBD+2  ;  SET  TO  OUTPUT  THE  "ENDSDF"  LINE 


UPDEVT  -  CFE  UPDATE  EVENT  DEFIN  MACRO  V05.03b  Saturday  29-Jun-85 
SETCLS  -  WRITE  OUT  EVENT  CLASS 
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90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102  000010 

i 

103  000010 

004567 

OOOOOOG 

^0l,   00001A 

016746 

OOOOOOC 

105  000020 

012767 

OOOOOOG  OOOOOOC 

106  000026 

010567 

OOOOOOG 

107  000032 

005725 

108  00003A 

010567 

OOOOOOG 

109  OOOOAO 

012700 

OOOOOOG 

110  000044 

012701 

000000' 

111  000050 

012702 

000010 

112  000054 

004767 

OOOOOOG 

113  000060 

010067 

OOOOOOG 

114 

115  000064 

004567 

000070 

116  000070 

000004 

117 

118  000072 

004567 

000062 

119  000076 

000006 

120 

121  000100 

004567 

000054 

122  000104 

000010 

123 

124  000106 

004567 

000046 

125  000112 

000012 

126 

127  000114 

004567 

000040 

128  000120 

000014 

129 

130  000122 

016701 

OOOOOOG 

131  000126 

124127 

000054 

132  000132 

001775 

133  000134 

005201 

134 

135  000136 

■t  i  i7ni 

OOOOOOG 

136  000142 

6l'oi67 

OOOOOOC 

137  000146 

004767 

0000006 

138  000152 

012667 

OOOOOOC 

139  000156 

000207 

.SBTTL  SUPFIL  -  SETUP  REMOTE  DEFINITION 
•**  -  SUPFIL  -  SETUP  REMOTE  DEFINITION 
INPUT: 


R5 


=  FILSDF  TEMPLATE  ADDRESS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


SUPFIL: 


lOS: 


JSR 

MOV 

MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

JSR 
.WORD 

JSR 
.UORD 

JSF( 
.WORD 

JSR 
.WORD 

JSR 
.WORD 

MOV 
CMPB 
BEQ 
INC 

SUB 

MOV 

CALL 

MOV 

RETURN 


R5,$SAVRG 

$0FD8+F.NRBD+2 

#.8UFF,$0FDBtF 

R5,.TEMP 

(R5)  + 

R5, .FLAGS 

#.BUFF,RO 

#FILDF,R1 

*FILLN,R2 

SHVASC 

RO.SOBUF 

R5,PUTFIL 
FSSEC 

R5,PUTFIL 
FSTER 

R5,PUTFIL 
FSLD 

R5,PUTFIL 
FSDIA 

R5,PUTFIL 
FSDUM 

S08UF,R1 

-(Rl),#<',> 

10$ 

R1 


;  SAVE  REGISTERS  R3-R5 
,-(SP)  ;  SAVE  REMSDF  ADDRESS 
,NRBD+2  ;  SET  NEW  OUTPUT  BUFFER 

;  SAVE  TEMPLATE  ADDRESS 

;  POINT  TO  C.STS 

;  SAVE  ADDRESS  OF  FLAGS  WORD 

;  POINT  TO  BUFFER 

;  POINT  AT  START  OF  FIL  DEFINITION 

;  GET  LENGTH  OF  FIL  DEFINITION 

;  MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

;  SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

;  SECONDARY  BOOT  FILE 


;  TERTIARY  BOOT  FILE 

;  LOAD  FILE 

;  DIAGNOSTIC  FILE 

;  DUMP  FILE 


;  CALCULATE  LENGTH  OF  BUFFER 

;  TRAILING  COMMA  ? 

;  IF  EQ,  YES 

;  ELSE  BACKED  UP  TOO  FAR 


#.BUFF,R1 

R1,S0FDB+F.NRBD  ;  SET  LENGTH  OF  BUFFER 

SWDATA         ;  WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

(SP)+,S0FDB+F.NRBD+2  ;  RESTORE  REMSDF  ADDRESS 
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PAGE  1 

CREf   0^.00 


SYMBOL 

VALUE 

REFERENCES 

CS.FEA 

-  ****** 

GX 

6-143 

CS.MOD 

=  ****** 

GX 

6-150 

C.DEV 

000004 

#4-82 

C.LEN 

=  oooou 

#4-86 

C.STS 

-  *** t* t 

GX 

6-143 

6-150 

C.WD1 

000006 

#4-83 

C.WD2 

000010 

#4-84 

C.WD3 

000012 

#4-85 

7-187 

FEAKTB 

000000 

RG 

#5-95 

6-157 

FEASTB 

000000 

RG 

#5-95 

6-158 

F.NRBD 

=    ****** 

GX 

♦6-152 

SETWD3 

0001  u 

R 

#7-184 

TEMP 

000000 

R 

#4-74 

*6-149 

tALPHA 

=  000022 

#5-95 

$ANY 

=  000020 

#5-95 

SBLANK 

=  000006 

#5-95 

SBUFI 

=  ****** 

GX 

6-152 

SCNVO 

=  ****** 

GX 

7-188 

SDIGIT 

=  00002A 

#5-95 

SDNUMB 

=  00001 A 

#5-95 

$EOS 

=  000012 

#5-95 

SERROR 

~      ♦♦**♦* 

GX 

•6-161 

SEXIT 

=  000000 

#5-95 

SFAIL 

=  177777 

#5-95 

$GPRM 

r  ****** 

5-95 

SLAMDA 

=  000000 

#5-95 

SMOVST 

:r  ****** 

GX 

6-154 

SNUMBR 

=  000002 

#5-95 

SOBUF 

=      ****** 

GX 

7-185 

•7-189 

$OFDB 

z:     ****** 

GX 

*6-152 

$RAD50 

=  000016 

#5-95 

SRONLY 

=      ****** 

5-95 

5-95 

SSTRNG 

=  OOOOOA 

#5-95 

SSUBXP 

=  000010 

#5-95 

STMLST 

r  ****** 

GX 

6-139 

SUPFEA 

000002 

RG 

#6-138 

$$$FLG 

=  W7777 

#5-95 

$$$KEY 

=  177777 

#5-95 

.CONER 

-   ****** 

GX 

6-167 

.TPARS 

r  ****** 

GX 

6-159 

7-186 


5-95 
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UPDLLC  - 
SETLIN  - 

329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
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SET  LINE  NUMBER 

.S8TTL   SETLIN  -  SET  LINE  NUMBER 

*♦*  -  SETLIN  -  SETUP  LINE  NUMBER 

INPUT: 


.PNUMB  =  LINE  NUMBER 

.PNUMH  =  LINE  NUMBER  (HIGH  ORDER) 


000530 

000530  016702  177244 

000534  005001 

000536  156201  000011 

000542  016700  OOOOOOG 

000546  004767  OOOOOOG 

000552  010067  OOOOOOG 

000556  000207 


OUTPUT: 


SETLIN: 


MOV 

TEMP,R2 

CLR 

R1 

BIS8 

C.LIN(R2) 

MOV 

$08UF,R0 

CALL 

$CNV0 

MOV 

RO,$08UF 

,R1 


RETURN 


GET  START  OF  TEMPLATE 

GET  NUMBER  OF  LINES  WITHOUT  SIGN  EXTEND 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 
CONVERT  BINARY  TO  OCTAL 
UPDATE  THE  BUFFER  POINTER 


UPDLLC  -  CFE  UPDATE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85 
SETNLT  -  SET  NUMBER  OF  LINE  TABLES  TO  ALLOCATE  SPACE 
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STATF  TABLES 


111 

112 

1'5 

lU 

115 

116  00000? 

117 

118 

119 

120 

121  000002 

122  000002 
123 

12A  000002 

125  000002 

126 

127  000002 


.S8TTL   STATE  TABLES 

f  *  *  * 
INITIALIZE  TABLES 

ISTATS  LOGSTB,LOGKTB 


PROCESS  "LOGSST" 

STATES 
TRANS     SNiJM8R,,SETNUM 

STATES 
TRANS     SEOS,$EXIT,SCLNUP 

STATES 
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20? 
203 
20^; 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 

216  0001U 

217  OOOIU 

218  000120 

219  000124 

220  000130 

221  000134 

222  000140 

223  000144 

224  000150 

225  000154 


.S8TTL  SETNAM  -  SET  UP  NODE  NAME 
•»*  -  SETNAM  -  SETUP  NODE  NAME 


INPUT: 


.PSTPT  =  START  ADDRESS  OF  THE  NODE  NAME  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  NODE  NAME 
TEMP  =  TEMPLATE  ADDRESS 
TEMPtC.NAM  =  NODE  NAME 


016700 
016702 
016201 
004767 
016702 
016201 
004767 
010067 
000207 


OOOOOOG 

177654 

000004 

OOOOOOG 

177640 

000006 

OOOOOOG 

OOOOOOG 


OUTPUT: 


SETNAM: 


MOV 

$08UF,R0 

MOV 

TEMP,R2 

MOV 

C.NAM(R2),R1 

CALL 

$C5TA 

MOV 

TEMP,R2 

MOV 

C.NAMt2(R2),R1 

CALL 

$C5TA 

MOV 

RO,$OBUF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

GET  TEMPLATE  ADDRESS 

GET  RAD50  NODE  NAME 

CONVERT  RAC50  TO  ASCII 

GET  TEMPLATE  ADDRESS 

GET  2ND  HALF  OF  NODE  NAME 

CONVERT  RAD50  TO  ASCII 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


UPDNOD  -  CFE  UPDATE  NODE  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:53  Page  8 
SETNID  -  SET  UP  NODE  ID 


i   13 

05:53 


UPDOBJ  -  CFE  UPDATE  OBJECT  DEFi 
SETVPE  -  WRITE  OUT  OBJECT  TYPE 


190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
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.SBTTL  SETVPE  -  WRITE  OUT  OBJECT  TYPE 

***   -   SETYPE  -  WRITE  OUT  OBJECT  TYPE 

INPUT: 

.PNUMB  =  THE  OBJECT  NUMBER 
.PNUMH  =  THE  OBJECT  NUMBER  (HIGH  ORDER) 
$OBUF  =  CURRENT  POSITION  IN  OUTPUT  LINE 
TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C-8IT  =  SUCCESS/FAILURE 


000326 

000326  016700  OOOOOOG 

000332  016702  177442 

000336  005001 

000340  156201  000004 

000344  004767  OOOOOOG 

000350  010067  OOOOOOG 

000354  0C0207 


SETYPE: 


MOV 

$08UF,RO 

MOV 

TEMP,R2 

CLR 

R1 

BIS8 

C.TVP(R2),R1 

CALL 

$CNVD 

MOV 

R0,$OBUF 

POINT  AT  CURRENT  POSITION  IN  LINE 

POINT  AT  TEMPLATE 

GET  OBJECT  TYPE  WITHOUT  SIGN  EXTEND 

CONVERT'bINARY  TO  DECIMAL 
UPDATE  POINTER  INTO  OUTPUT  LINE 


RETURN 
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■  INITIALIZE  TABLE  GENERATION 

•  **  ** 

ISTATS  PARSTB,PARKTB 

STATES 

TRANS  SRAD50,NEXT,SETNM0 

TRANS  $LAMDA,,SETNMO 

STATES  NEXT 

TRANS  <',>,,SMOVPT 

STATES 

TRANS  SRAD50,,SETNM1 

STATES 

TRANS  <',>,,SMOVPT 

STATES 

TRANS  SNUM8R,,SM0VPT 

STATES 

TRANS  <',>,TOP,SMOVPT 

TRANS  SLAMDA.EXIT 

STATES  TOP 

TRANS  "TOP",UMRS,SETTOP 

TRANS  SLAMDA,,SETTOP 

STATES  UMRS 

TRANS  SEOS.EXIT 

TRANS  <',>,,SMOVPT 

STATES 

TRANS  SNUM8R,ALLC,SM0VPT 

TRANS  "NONE",ALLC,SMOVPT 

TRANS  SLAMDA 


STATES  ALLC 

TRANS  SEOS,EXIT 

TRANS  <',>,,SMOVPT 

STATES 

TRANS  SNUM8R,,SETALL 

STATES  SBCHK 

TRANS  SEOS.EXIT 

TRANS  <',>,,SMOVPT 

STATES 

TRANS  "SBPOOL",EXIT,SETSBP 

EXIT  STATE 

STATES  EXIT 


8ft 

H/ 

88 

89 

90 

3000U 

91 

9,^ 

oooou 

9^ 

00001A 

9^ 

OOOOU 

9S 

96 

OOOOK 

9! 

00001A 

98 

99 

oooou 

100 

OOOOK 

101 

10^ 

000014 

10^ 

OOOOU 

104 

lOS 

00001A 

106 

OOOOU 

10/ 

108 

OOOOU 

109 

OOOOU 

110 

OOOOU 

111 

IV 

OOOOU 

in 

OOOOU 

IK 

OOOOU 

lis 

116 

OOOOU 

11/ 

OOOOU 

118 

OOOOU 

119 

VO 

OOOOU 

VI 

OOOOU 

^r■? 

OOOOU 

^?^ 

OOOOU 

Vi 

vs 

V6 

OOOOU 

v/ 

OOOOU 

VH 

OOOOU 

V9 

no 

OOOOU 

Ml 

OOOOU 

IV 

}'>', 

OOOOU 

1« 

OOOOU 

MS 

OOOOU 

^% 

IV 

OOOOU 

iw 

OOOOU 

1i9 

uo 

HI 

K2 

OOOOU 

pool  name 


;  partition 


block  extension 


loading  info 


;  UMR  unmapped  blocks 


;  pool  byte  extension 


J  15 


UPDPAR  -  CFE  UPDATE  PARTITION  D  MACRO  V05.03b  Saturday  29-Jun-85  05:54  Page  5-1 


UPDPSN  -  UPDATE  PSN  IN  CHAB    MACRO  V05.03b  Saturday  29-Jun-85 


W^ 


5  Page  I 


1 
2 
3 
t, 
5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
i? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  UPDPSN  -  UPDATE  PSN  IN  CETAB 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPVRIGHT  (C)  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  UPDATE  THE  PSN  DEFINITION 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


UPDPSN  -  UPDATE  PSN  IN  CETAB 
MACRO  DEFINITIONS 
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332 
333 

334 
335 
336 
337 
338 
339 
340 
341 
342 
343 

344  000724 

345  000724 

346  000730 

347  000732 

348  000736 

349  000742 

350  000746 

351  000752 
352 

353 
354 


.SBTTL  SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 
***  -  SETNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C.NCT  IN  TEMPLATE  MOVED  INTO  OUTPUT  BUFFER 


016702  177050 

305001 

156201  000013 

016700  OOOOOOG 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


000001 


SETNCT: 


MOV 

TEMP,R2 

CLR 

R1 

BISB 

C.NCT(R2) 

MOV 

$OBUF,R0 

CALL 

$CNVD 

MOV 

R0,$0BUF 

RETURN 

,R1 


GET  THE  TEMPLATE  ADDRESS 

GET  THE  CONTROLLER  TABLE  COUNT 

..WITHOUT  SIGN  EXTEND 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


.END 
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202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

21 '■ 

21 

216 

217 

218 

219 

220 


.SBTTL  SETNDC  -  NUMBER  OF  NODE  COUNTERS 
***  -  SETNDC  -  SETUP  NUMBER  OF  NODE  COUNTERS 
INPUT: 


TEMP  = 
SOSUF 


TEMPLATE  ADDRESS 
=  CURRENT  POSITION  IN  OUTPUT  BUFFER 


noou2 

142  016702  177632 

,:u0146  016201  000006 

000152  016700  OOOOOOG 

000156  004767  OOOOOOG 

000162  010067  OOOOOOG 

000166  000207 


OUTPUT: 


SETNDC: 


MOV 

TEMP,R2 

MOV 

C.NDC(R2),R1 

MOV 

$08Uf ,R0 

CALL 

$CNVD 

MOV 

R0,$OBUF 

RETURN 

GET  START  OF  TEMPLATE 

GET  NUMBER  OF  LOGICAL  LINKS 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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MACRO  CROSS  REFERENCE  CREF   OA.OO 


MACRO  NAME 

REFERENCES 

DBGTP$ 

#5-67 

)ECTP$ 

#4-50 

4-52 

ISTATt 

#4-50 

5-67 

ISGDFS 

#4-50 

4-53 

MTRANS 

stateI 

#5-67 
#4-50 

5-69 

#5-72 

#5-75 

#5-78 

#5-81 

#5-84 

#5-87 

#5-90 

#5-93 

#5-96 

#5-99 

#5-102 

#5-105 

#5-108 

#5-111 

#5-114 

#5-117 

#5-120 

#5-123 

#5-126 

#5-129 

#5-134 

#5-137 

TRANS 

#4-50 

#5-70 

#5-73 

#5-76 

#5-79 

#5-82 

#5-85 

#5-88 

#5-91 

#5-94 

#5-97 

#5-100 

#5-103 

#5-106 

#5-109 

#5-112 

#5-115 

#5-118 

#5-121 

#5-124 

#5-127 

#5-130 

#5-135 

K  3 
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BITS 

00001 6R 

002 

NCT 

000104R 

002 

ZF.TIM= 

****** 

GX 

BITO 

000030R 

002 

PRIOR 

000054R 

002 

ZMAN 

00001 IR 

CS.DLC= 

*«*•»»  GX 

SETFLG 

0001 70R 

ZMANL  = 

000007 

CS.MOD= 

•»♦*♦♦  GX 

SETNAM 

000132R 

$ALPHA=-- 

000022 

C.FLG 

000006 

SETNCT 

000426R 

$ANY  = 

000020 

C.LEN  = 

OOOOU 

SETNLT 

000376R 

$BLANK= 

000006 

C.NAM 

000004 

SETPRI 

000350R 

$BUFJ  = 

****** 

GX 

C.NCT 

000013 

TEMP 

OOOOOOR 

$CAT5  = 

****** 

GX 

C.NLT 

000012 

ZDLC 

000002R 

$CLNUP= 

****** 

GX 

C.PRl 

000010 

ZDLCL 

=  000007 

SCNVD  = 

****** 

GX 

C.STS  = 

♦♦*♦«♦  GX 

ZF 

0001 22R 

002 

$CNV0  = 

****** 

GX 

DLCKTB 

OOOOOORG 

003 

ZF.CDU 

=  ******   GX 

$DIGIT= 

000024 

DLCSTB 

OOOOOORG 

002 

ZF.MAN 

=  ******   GX 

$DNUMB= 

000014 

EXIT 

0001 30R 

002 

ZF.MFL 

=  ******   GX 

$EOS  = 

000012 

F.NRBD= 

******   GX 

.  ABS. 

OOOOU 
000456 

000 
001 

(RW.I, 
(RU,I, 

GBL.ABS.OVR) 
LCL.REL.CON) 

SSTATE 

000136 

002 

(RU,D, 

.CL,REL,CON) 

SKTAB 

OOOOU 

003 

(RW,D, 

.CL,REL,CON) 

SKSTR 

000027 

004 

(RW,D, 

.CL,REL,CON) 

Errors 

detected: 

0 

$ERR0R= 
SEXIT  = 
$FAIL  = 
$LAMDA= 
$HOVPT= 
$MOVST= 
$HVASC= 
$NUMBR= 
SOBUF  = 
$OFDB  = 
$RAD50= 
$STRN6= 
$SUBXP= 
$TMLST= 


****** 
000000 
U7777 
000000 
****** 
****** 
****** 

000002 
****** 
****** 
000016 
000004 
000010 
****** 


GX 


GX 
GX 
GX 

GX 
GX 


GX 


SUPDLC  000020RG 


****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 


$ZCOU  =  ****** 
$ZCOUL= 
$ZMFL  = 

$ZMFLL=  ****** 
$ZTIM  =  ****** 
$ZTIML=  ****** 
$$$FLG=  T77777 
$$$KEY=  000005 
$$$STA=  000000 
$$$TMP=  000024R 
.C0NER=  ******  GX 
.PSTPT=  ******  GX 
.TPARS=  ******  GX 


004 


♦♦*  Assembler  statistics 


Work  f'ile  reads:  0 

Uork   file  writes:  0 

Size  of  work  file:  10424  Words   (  41  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


Srf  UPDDLC  !v2;n  32, 134]UPDDLC/CR/-SP=SY:tl,nRSXMCM.SML/ML,Cl  30,  nOJNETL  IB/ML,  [1 32,  lODUPDDLC 


UPDDLC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:50 

c;VMRni  rRn";^  RFFFRFMfF      


K  i, 

PAGE  1 

CREF   04.00 


J  5 
UPDDSA     CREATED  BV  MACRO  ON  29-JUN-85  AT  05:50     PAGE  2 

MACRO  CROSS  REFERENCE  CREF   0^.00 


MACRO  NAME 

REFERENCES 

EPRINT 

#4-79 

ERRORS 

#A-68 

PRINT 

#4-63 

SPTNMB 

#4-112 

SPTNUM 

#4-111 

6-177 

^'VJ 

$PTR50 

#4-116 

6-176 

6-179 

$$$PTN 

#4-91 

4-111 

4-112 

K  5 

»»F!LE«MD««UPDDSC 
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8 

9 

10 
11 
12 
15 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


.TITLE  UPDDST  -  UPDATE  DESTINATION  DESCRIPTOR  IN  CETAB 
.IDENT  /V05.00/ 
.ENABL  LC 

COPrRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  DESTINATION  DESCRIPTOR  IN  CETAB 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF   ITS 


.^1 


UPDDST  -  UPDATE  DESTINATION  DES  MACRO  V05.03b  Saturday  29-Jun-85  05:51 
MACRO  CALLS  AND  LOCAL  DATA 
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UPDDTE  -  UPDATE  LOCAL  DIE  DESCR  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  DATA 


05:51 
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135 

136 

137 

138 

139 

HO  000000 

Ul 

K2  000000 

U3  000002 

HA  000004 

145  000016 

146  000020 

147  000026 

148  000030 

149  000032 

150  000034 
151 

152  000000 

153 

154 

155  000000 

156 

157 

158  000010 

159  000012 
160 

161 
162 
163 


.SBTTL  LOCAL  DATA 


000000 


000040 


Oil 
000010 

057760 
057266 


104 


;  DEFINE 

THE  DTE  DESCRIPTOR  BLOCK 

.ASECT 

.=0 

.BLKW 

1 

.BLKW 

1 

C.ADR: 

.8LKU 

5. 

C.LIN: 

.BLKW 

1 

.BLKW 

3 

C.STA; 

.BLKW 

1 

C.HSH: 

.BLKW 

1 

C.CT: 

.BLKW 

1 

C.NET: 

.BLKW 

2 

C.LEN=. 

.PSECT 

.NLIST 

BEX 

124  DTEDF: 

.ASCII 

<11>/DTE$DF/<11> 

DTELN=. 

-DTEDF 

ONSTR: 

.RAD50 

/ON/ 

.RAD50 

/OFF/ 

.LIST 

BEX 

.EVEN 

C.LNK 

C.STS 

RAD50  STRING  OF  1.-15.  DECIMAL  DIGITS 

LINE  ID:  RAD50  PROCESS  NAME 

CONTROLLER,  UNIT 
=0  ~>  OFF,  >0  — >  ON 
HASH  TABLE  SIZE  (32.-512.  ENTRIES) 
COUNTER  TIMER  VALUE  (0.-65535.) 
RAD50  NETWORK  NAME 
LENGTH  OF  THE  BLOCK 
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SUPDTE  -  UPDATE  DTE  DEFINITION 
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SETCLS   -  WRITE   OUT   EVENT    CLASS 
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206 
207 
208 
209 
210 
211 
212 
21? 
2U 
21 5 
216 
217 
218 
219 
220 
221 
222 
223 


.SBTTL  SETCLS   -  WRITE   OUT   EVENT   CLASS 

»*»  -   SETCLS  -  WRITE   OUT   EVENT    CLASS 

INPUT: 

.PNUMB  =  THE  CLASS  NUMBER 

.PNUMH  =   THE  CLASS  NUMBER  (HIGH  ORDER) 
$OBUF  :  CURRENT  POSITION  IN  OUTPUT  LINE 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


000360  016702  1774U  SETCLS:  MOV  TEMP,R2 

00036A  012767  000006  177410        MOV  *C.EVT,EVTOFF 

000372  016201  000004  MOV  C.CLS(R2),R1 

000376  000411  BR  SETNUM 


GET  ADDRESS  OF  EVENT  TEMPLATE 
SET  UP  EVENT  MASK  OFFSET 
GET  EVENT  CLASS 
WRITE  OUT  NUMBER 


UPDEVT  -  CFE  UPDATE  EVENT  DEFIN  MACRO  VO5.03b  Saturday  29-Jun-85  05:51 
SETMS<  -  WRITE  OUT  EVENT  MASK 
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U1 
142 
145 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 

155  000160 

156  000160 

157  000162 

158  000166 

159  000172 

160  000174 

161  000176 

162  000200 

163  000204 

164  000206 

165  000212 

166  000216 

167  000220 
168 

169 
170 

171  000222 

172  000224 

173  000226 

174  000232 

175  000234 

176  000236 

177  000240 
178 

179 


.SBTTL  PUTFIL  -  WRITE  OUT  FILE  SPEC 
'•*♦  -  PUTNOD  -  WRITE  OUT  FILE  SPEC 
CALLING  SEQUENCE: 


JSR 
.WORD 


R5, PUTFIL 
OFFSET 


OUTPUT: 


C-eiT   =   SUCCESS/FAILURE 


PUTFIL: 


016700  OOOOOOG 

016702  OOOOOOG 

062502 

011202 

001403 

004567  000016 

000005 

112720  000054 

010067  OOOOOOG 

000205 


010201 

062501 

116103  177777 

001402 

112120 

077302 

000205 

000001 


10$: 


SAVRG 

MOV 

MOV 

ADD 

MOV 

BEQ 

JSR 

.WORD 

Move 

MOV 

RESRG 

RTS 


MOVE  A  FIELD 


50$: 

30$: 
40$: 


MOV 

ADD 

MOVB 

BEQ 

MOVB 

SOB 

RTS 

.END 


R3 

$OBUF,RO 

.TEMP,R2 

(R5)+,R2 

(R2),R2 

10$ 

R5,20$ 

F.DEV 

#<',>,(RO)t 

RCiOBUF 

R3 

R5 


R2,R1 

(R5)+,R1 

-1(R1),R3 

40$ 

(R1)+,(R0)< 

R3,30$ 

R5 


SAVE  REGISTER 

POINT  AT  CURRENT  POSITION  IN  LINE 

POINT  AT  TEMPLATE 

POINT  TO  FILE  SPEC  IN  TEMPLATE 

POINT  TO  FILE  DESCRIPTOR 

IF  EQ,  NO  FILE 

MOVE  FILESPEC 

INSERT  COMMA 
RESTORE  BUFFER  POINTER 
RESTORE  REGISTER 
DONE 


COPY  ADDRESS  OF  FILE  DESCRIPTOR 
POINT  TO  FIELD  OF  INTEREST 
GET  FIELD  LENGTH 
IF  EQ,  NO  TEXT 
ELSE  MOVE  IT 

TO  OUTPUT  BUFFER 
DONE 
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Symbol  table 
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MACRO  CROSS  REFERENCE 
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PAGE  2 

CREf   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 

#5-95 

ISTATS 

#4-68 

5-95 

MTRANS 

#5-95 

PRINT 
STATES 

#4-59 
#4-68 

5-98 

#5-101 

#5-104 

#5-107 

#5-110 

#5-113 

#5-116 

#5-121 

TRAN$ 

#4-68 

#5-99 

#5-102 

#5-105 

#5-108 

#5-111 

#5-114 

#5-117 

#5-122 

#5-124 
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350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
36A 
365 
366 
367 
368 
369 


.SBTTL 
•♦•  -  SETNLT 
INPUTS; 


SETNLT  -  SET  NUMBER  OF  LINE  TABLES  TO  ALLOCATE  SPACE 
-  SET  NUMBER  OF  LINE  TABLES  TO  ALLOCATE  SPACE 


TEMP  =  TEMPLATE  ADDRESS 

$OBUF  =  CUf?RENT  POSITION  IN  OUTPUT  BUFFER 


OUTPUTS: 


000560 

000560  016700  1772U 

00056A  005001 

000566  156001  OOOOU 

000572  016700  OOOOOOG 

000576  004767  OOOOOOG 

000602  010067  OOOOOOG 

000606  000207 


SETNLT: 


MOV 

CLR 

BISB 

MOV 

CALL 

MOV 

RETURN 


TEMP.RO 

R1 

C.NLT(R0),R1 

$08UF,R0 

$CNVD 

R0,$OBUF 


GET  THE  TEMPLATE  ADDRESS 
GET  THE  NUMBER  OF  LINE  TABLES 
..WITHOUT  SIGN  EXTEND 

POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 
CONVERT  NUMBER  TO  DECIMAL 
UPDATE  THE  POINTER  INTO  THE  OUTPUT  BUFFER 


K  11 

UPDLLC  -  CFE  UPDATE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:52 
SETEXT  -  SET  THE  PROCESS  EXTENSION  SIZE 
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SUPLOG  -  UPDATE  LOGGING  STATE  TEMPLATE 
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129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
KO 
141 
H2 

143  000002 

144  000002 

145  000006 

146  000010 

147  000012 

148  000014 

149  000022 
150 

151 
152 

153  000024 

154  000026 

155  000032 

156  000040 

157  000042 

158  000050 

159  000052 

160  000060 

161  000064 

162  000066 

163  000070 

164  000074 

165  000100 

166  000104 

167  000106 

168  000112 

169  000114 
170 

171 
172 
173  000116 


.SBTTL  SUPLOG  -  UPDATE  LOGGING  STATE  TEMPLATE 
'.»»  -  SUPLOG  -  UPDATE  LOGGING  STATE  TEMPLATE 
THIS  ROUTINE  IS  CALLED  AS  AN  ACTION  ROUTINE  Br  TPARS. 
INPUT: 


OUTPUT 


R3-R5       -  TPARS   REGISTERS 
C-BIT   =  SUCCESS/FAILURE 


012700 
010001 
011000 
001441 
122760 
001371 


011011 
010067 
032760 
001004 
012767 
000421 
062767 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPLOG: 
lOS: 


OOOOOOG  OOOOOOG 


177746 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOC 

000004  177720 
OOOOOOG 


MOV  #STMLST,RO 

MOV  RO.Rl 

MOV  (R0),RO 

BEQ  101S  , 

CMPB  #CS.LOG,C.STS(R0) 

BNE  lOS  ; 


POINT  AT  TEMPLATE  LIST 

SAVE  CURRENT  TEMPLATE 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  LIST 

;  IS  THIS  THE  LOGGING  STATE  TEMPLATE 

IF  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


000000' 
000000' 
OOOOOOG 

OOOOOOG 


000167  OOOOOOG 


' 

MOV 

(R0),(R1) 

MOV 

RO.NEXT 

BIT 

#CS.MOD,C.STS 

BNE 

15$ 

MOV 

#SBUFI,SOFDB+ 

BR 

30$ 

15S: 

ADD 

#C. STA, NEXT 

CALL 

SMOVST 

MOV 

R5,-(SP) 

CLR 

R1 

MOV 

*L06KTB,R2 

MOV 

#L0GSTB,R5 

CALL 

.TPARS 

BCC 

20S 

INC 

SERROR 

20S: 

MOV 

(SP)+,R5 

30S: 

RETURN 

;  ERROR 
s 

CONDITIONS 

;  REMOVE  FROM  LIST 
;  SAVE  TEMPLATE  ADDRESS 
CR05  ;  WAS  THIS  TEMPLATE  MODIFIED  ? 

;  IF  NE,  YES  ..  UPDATE  THE  RECORD 
F.NRBD+2  ;  OUTPUT  THE  INPUT  BUFFER 

AND  LEAVE 

POINT  AT  FIRST  LOCATION  IN  TEMPLATE 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


;  CONSISTENCY  ERROR 
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UPDLOG  -  CFE  UPDATE  LOGGING  STA  MACRO  V05.03b  Saturday  29-Jun-85  05:53  Page  8 
5ETNUM  -  SET  THE  NEXT  NUMBER 


UPONOD  -  CFf  UPDATE  NODE  DEFINl  MACRO  V05.05b  Saturday  29-Jun-85 
SETNID  -  SET  UP  NODE  ID 


{5l?3 


Page  8 


227 
228 
229 
230 
231 
252 
233 
23'!, 
235 
236 
237 
238 

239  000156 

240  000156 

241  000162 
2A2  000166 
2A3  000172 
2AA  0001 7A 
2A5  000200 
2A6  00020A 
2A7  000210 


.S8TTL 

'•♦»  -  SETNID 

INPUT: 


SETNID  -  SET  UP  NODE  ID 
-  SETUP  NODE  ID 


TEMP  =  TEMPLATE  ADDRESS 
(TEMP)+C.NID  =  NODE  ID 


OUTPUT: 


016700  OOOOOOG 

016701  177612 
062701  000010 
012102 

00A767  OOOOOOG 

112720  000076 

010067  OOOOOOG 
000207 


SETNID: 


MOV 
MOV 
ADD 

MOV 

CALL 

MOVB 

MOV 

RETURN 


$08UF,R0 

TEMP.Rl 

#C.NID,R1 

(R1)+,R2 

SMVASC 

#'>,(R0)t 

RO,$OBUF 


POINT  AT  OUTPUT  BUFFER 

GET  START  ADDRESS  OF  NODE  ID 

GET  LENGTH  OF  NODE  ID 

MOVE  NODE  ID  INTO  OUTPUT  BUFFER 

INSERT  DELIMETER 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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UPDNOD  -  CFE  UPDATE  NODE  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:53  Page  9 
SETNNA  -  SET  EXEC  AREA 


UPDOBJ  -  CFE  UPDATE  OBJECT  DEFl 
SETNAM  -  WRITE  OUT  OBJECT  NAME 

215 
216 
217 
218 
219 
220 
221 
222 
225 
224 
225 
226 
227 
228 

229  000356 

230  000356  016702  177416 

231  000362  005762  000006 

232  000366  001003 

233  000370  005762  000010 

234  000374  001422 
235 

236  000376  016700  OOOOOOG 

237  000402  112720  000074 

238  000406  016201  000006 

239  000412  004767  OOOOOOG 

240  000416  016702  177356 

241  000422  016201  000010 

242  000426  004767  OOOOOOG 
2'.3  000432  112720  000076 

244  000436  010067  OOOOOOG 

245  000442  000207 


05:54 
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.SBTTL  SETNAM  -  WRITE  OUT  OBJECT  NAME 
»♦  -  SETNAM  -  WRITE  OUT  OBJECT  NAME 


INPUT: 


.PSTPT  =  START  ADDRESS  OF  THE  OBJECT  NAME  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  OBJECT  NAME 
SOBUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 
TEMP  =  TEMPLATE  ADDRESS 


OUTPUT 


THE  RAD50  TASK  NAME  IS  WRITTEN  INTO  THE  OUTPUT  BUFFER 


SETNAM: 


10$: 


20$: 


MOV 
TST 
BNE 
TST 
BEQ 

MOV 

M0V8 

MOV 

CALL 

MOV 

MOV 

CALL 

MOVB 

MOV 

RETURN 


TEMP,R2 

C.NAM(R2) 

10$ 

C.NAM+2(R2) 

20$ 

$08UF,R0 

#'<,(RO)t 

C.NAM(R2),R1 

$C5TA 

TEMP,R2 

C.NAM+2(R2),R1 

$C5TA 

#'>,(R0)+ 

RO.iOBUF 


GET  ADDRESS  OF  TEMPLATE 
IS  NAME  ALL  BLANKS  ? 
IF  NE,  NO 

STILL  ALL  BLANKS  7 
IF  EQ,  YES 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

INSERT  DELIMETER 

GET  RAD50  TASK  NAME 

CONVERT  TASK  NAME  TO  ASCII 

GET  TEMPLATE  ADDRESS  ..  AGAIN  I! 

GET  2ND  HALF  OF  TASK  NAME 

CONVERT  TASK  NAME  TO  ASCII 

INSERT  DELIMETER 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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SETVFV  -  SETUP  OBJECT  VERIFICATION  LEVEL 
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UPDPAR  -  CfE  uPDA'f  PARIITION  D  MACRO  V05.05b  Saturday  ?9-Jun-35  05:5^  Page  5-1 

U5  OOOOU  TRANS  $EOS,$E)(lT,tCLNUP 

HA 

U5  00001A  STATES 
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UPDPAR  -  CFE  UPDATE  PARTITION  D  MACRO  VO5.03b  Saturday  29-Jun-85  05:54  Page  6 
SUPPAR  -  UPDATE  PARTITION  DEFINITION 


UPDPSM  -  UPDATE  PSN  IN  CEIAB 
MAl-RO  DEFINITIONS 

57 

58 

59 

60 

61 

62 

63 

ti, 

65 

66 

67 

68 

69 

70 

71 

7? 

73 

7i, 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

Ql 

92 

93 

9A 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110  000000 

111  000000 
112 
113 
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.SBTTL  MACRO  DEflNITIONS 
LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BVTE  OF  THE  ERROR 
MESSAGE  STRING. 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


.IF  DIF 

<TEXr><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERR 

.ENDM 

ERRORS 

.MACRO 

EPRINT   TEXT 

PRINT  TEXT  ON 

ERROR  LUN 

.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRINT 

PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN   ROU 

.MACRO 

'ROU    OFS,OCTL,OPT,?L 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

.IF  NB 

<OCTL> 

MOV 

SP.RI 

.IFF 

CLR 

R1 

.ENDC  ; 

IF  NB  <OCTL> 

CALL 

'ROU 

.IFT   ; 

IF  N8  <OPT> 

.ENDC  ; 

IF  NB  <OPT> 

.ENDM  ; 

'ROU 

.ENDM  ; 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPIN 

SPTNMB 

GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


PUT  RAD5C  TEMPLATE  FIELD  TO  BUFFER 


K  16 
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UPDDDM  -  CFE  UPDATE  DEVICE  PROC  MACRO  V05.03lj  Saturday  29-Jun-85  05:48 
Symbol  table 


BITS 

BITO 

CS.DDM= 

CS.MOD= 

C.FLG 

C.LEN  = 

C.NAM 

C.NCT 

C.NLT 

C.PRI 

C.STS  = 

DDMKTB 

DDMSTB 

EXIT 

F.NRBD= 

NOT 

PRIOR 

SETFLG 

SETNAM 

.  ABS. 

SSTATE 

SKTAB 

tKSTR 


00001 6R 
000030R 


GX 
GX 


GX 


****** 
****** 
000006 
OOOOU 
000004 
000013 
000012 
000010 
****** 

OOOOOORG 
OOOOOORG 
0001 6AR 
******  GX 
OOOKOR 
00011  OR 
000252R 
0002HR 

OOOOK 
00075A 
000172 
000032 
000063 


002  SETNCT 

002  SETNLT 
SETPRI 
TEMP 
ZDDM 
2DDML  = 
ZDIA 
ZDIAL  = 
ZDLC 
ZDLCL  = 
ZDVP 

003  ZDVPL  = 
002  ZF 

002  ZF.COU= 

ZF.DIA=: 

002  ZF.DLC= 

002  ZF.DVP= 

ZF.KMX= 

ZF.LMC= 


000724R 

00067AR 

0C0646R 

OOOOOOR 

000002R 

000007 

000054R 

000007 

000011R 

000007 

000063R 

000007 

0001 56R 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 


ZF.MAN= 
ZF.MFL= 
ZF.MUX= 
ZF.PSE= 
ZF.TIM= 
ZKMX 
ZKMXL  = 
ZLMC 
ZLMCL  = 
ZMAN 
ZMANL  = 
ZMUX 
002  ZMUXL  = 
ZPSE 
ZPSEL  = 
$ALPHA= 
$ANY  = 
$BLANK= 


******  GX 

**»(**  GX 

******  GX 

******  GX 

******  GX 

000020R 

000007 

000036R 

000007 

000072R 

000007 

000027R 

000007 

000045R 

000007 

000022 

000020 

000006 


Page  11-1 


$BUFI  = 
SCATS  = 
$CLNUP= 
SCNVD  = 
SCNVO  = 
$DIGIT= 
$DNUMB= 
SEOS  = 
$ERROR= 
SEXIT  = 
SFAIL  = 
$LAMDA= 
$M0VPT= 
$H0VST= 
$MVASC= 
$NUMBR= 
SOBUF  = 
SOFDB  = 


»♦**** 

GX 

$RAD50= 

000016 

****** 

GX 

$STRNG= 

000004 

****** 

GX 

$SUBXP= 

000010 

****** 

GX 

$TMLST= 

******  GX 

****** 

GX 

SUPDDM 

0001 02RG 

000024 

SZCOU  = 

******  GX 

00001 4 

$ZCOUL= 

******  GX 

000012 

SZMFL  = 

******  GX 

****** 

GX 

$ZMFLL= 

******  GX 

000000 

SZTIM  = 

«♦»***  GX 

177777 

SZTIML= 

******  GX 

000000 

$S$FLG= 

\nm 

****** 

GX 

S$$KEY= 

000014 

****** 

GX 

S$$STA= 

000000 

****** 

GX 

$$$TMP= 

000060R 

000002 

.CONER^ 

******  GX 

»*♦**♦ 

GX 

.PSTPT= 

******  GX 

****** 

GX 

.TPARS= 

******  GX 

004 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RU,I,GBL,ABS,0VR) 
(RW.I,LCL,REL,C0N' 
(RW,D,LCL,REL,C0N) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


»»♦  Assembler  statistics 


0 

0 

10556  Words 

14440  Words 


Work  file  reads: 
Work  f i  le  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system:  RSX-11M/PLUS 

SYtuPDDDM]v2;C132,134:uPDDDM/CR/-SP=SY:[1,l]RSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]UPDDDM 
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222 
225 
22A 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 
240 
241 


.SBTTL  SETINC  -  INCOMING  TIMER 
'♦**  -  SETINC  -  SETUP  INCOMING  TIMER 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 

SOBUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


OUTPUT: 


000170 

000170  016702  177604 

000174  005001 

0001 7^  156201  000012 

000202  016700  OOOOOOG 

000206  004767  OOOOOOG 

000212  010067  OOOOOOG 

000216  000207 


SETINC: 


MOV 

CLR 

BISB 

MOV 

CALL 

MOV 

RETURN 


TEMP,R2 

R1 

C.INCT(R2),R1 

SOBUF, RO 

ICNVD 

RO, SOBUF 


GET  START  OF  TEMPLATE 
GET  INCOMING  TIMER 

GEt  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CS.DLC 

=  ****** 

GX 

6-178 

CS.MOD 

=  ****** 

GX 

6-185 

C.FLG 

000006 

#4-88 

8-247 

8-252 

8-257 

8-262 

C.LEN 

=  OOOOU 

#4-92 

C.NAM 

000004 

#4-87 

7-223 

C.NCT 

000013 

#4-91 

11-329 

C.NLT 

000012 

#4-90 

10-308 

C.PRI 

000010 

#4-89 

9-286 

C.STS 

r  ****** 

GX 

6-178 

6-185 

OLCKTB 

000000 

RG 

#5-100 

6-192 

DLC5TB 

000000 

RG 

#5-100 

6-193 

F.NRBD 

-    ****** 

GX 

*6-187 

SETFLG 

000170 

R 

#8-240 

SETNAM 

000132 

R 

#7-217 

SETNCT 

000426 

R 

#11-326 

SETNLT 

000376 

R 

#10-305 

SETPR! 

000350 

R 

#9-284 

TEMP 

000000 

R 

#4-73 

*6-184 

7-222 

8-242 

9-285 

ZDLC 

000002 

R 

#4-74 

4-75 

8-244 

ZDLCL 

=  000007 

#4-75 

8-245 

ZF.COU 

=  ****** 

GX 

8-257 

ZF.MAN 

r  ****** 

GX 

8-262 

ZF.MFL 

::  ****** 

GX 

8-252 

ZF.TIM 

3  ****** 

GX 

8-247 

ZMAN 

000011 

R 

#4-76 

4-77 

8-264 

ZMANL 

=  000007 

#4-77 

8-265 

SALPHA 

=  000022 

#5-100 

$ANY 

=  000020 

#5-100 

SBLANK 

=  000006 

#5-100 

SBUFI 

-      ****** 

GX 

6-187 

SCATS 

=   ****** 

GX 

7-221 

SCNVD 

=   **♦+** 

GX 

10-310 

11-331 

SCNVO 

=      ****** 

GX 

9-288 

SDIGIT 

=  000024 

#5-100 

SDNUMB 

=  000014 

#5-100 

$EOS 

=  000012 

#5-100 

SERROR 

r  ****** 

GX 

•6-196 

SEXIT 

=  000000 

#5-100 

SFAIL 

=   177777 

#5-100 

SGPRM 

-   ****** 

5-100 

SLAMDA 

=  000000 

#5-100 

SMOVPT 

=  ****** 

GX 

7-218 

SMOVST 

=    ****** 

GX 

6-189 

SMVASC 

=    «  *  *  .f  *  * 

GX 

8-246 

8-251 

8-256 

8-261 

8-266 

SNUMBR 

^  000002 

#5-100 

SOBUF 

=  ****** 

GX 

8-243 

•8-268 

9-287 

•9-289 

10-309 

soFce 

r  ****** 

GX 

*6-187 

$RAD50 

=  000016 

#5-100 

SRONLY 

-  ****** 

5-100 

5-100 

5-100 

SSTRNG 

=  000004 

#5-100 

SSUBXP 

=  000010 

#5-100 

STMLST 

-   ****** 

GX 

6-174 

10-306 


11-327 


•  10-311 


11-330 


•11-332 
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90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 
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103 

104 

105 

106 

107 

108 

109 

110 

111  000000 

112  000000 
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DESTINATION  DES  MACRO  V05.03b  Saturday  29-Jun-85  05:51  Page  4 
LOCAL  DATA 


.SBTTL 
.SBTTL 

LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


MACRO  CALLS  AND  LOCAL  DATA 
MACRO  DEFINITIONS 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  BUFFER 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  SSSPTN 
.MACRO   'ROU 
.IF  N8  <OPT> 
MOV     0PT,R2 
CALL    SPTOPT 
BCS     L 
.IFTF 

MOV     0FS,R2 
.IF  NB  <OCTL> 


ROU 
OFS,OCTL,OPT,?L 


MOV 
.IFF 
CLR 

.ENDC  ; 
CALL 
.IFT  ; 

.ENDC  ; 
.ENDM  ; 
.ENDM  ; 

SSSPTN 
SSSPTN 


SP,R1 

Rl 

IF  NB  <OCTL> 

'ROU 

IF  NB  <OPT> 

IF  NB  <OPT> 

'ROU 

SSSPTN 

SPTNUM 
SPTNMB 
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UPDDTE  ■ 
SUPDTE  ■ 

165 
166 
167 
168 
169 
170 
171 
172 
173 
17^ 
175 
176 
177 


K  7 

UPDATE  LOCAL  DTE  DESCR  MACRO  V05.03b  Saturday  29-Jun-85  05:51 
UPDATE  DTE  DEFINITION 


Page  6 


OOOOU 

178  OOOOK 

179  000022 

180  000026 

181  000030 

182  000034 

183  000042 

184  000046 

185  000052 

186  000056 

187  000062 

188  000066 

189  000102 

190  000106 

191  000120 

192  000132 

193  000136 

194  000164 

195  000170 

196  000174 

197  000200 

198  000204 

199  000212 
200 


012767 
010567 
005725 
010567 
012767 
012700 
012701 
012702 
004767 
010067 


016701 
162701 
010167 
004767 
012767 
000207 


.SBTTL  SUPDTE  -  UPDATE  DTE  DEFINITION 
'•♦*  -  SUPDTE  -  UPDATE  DTE  DEFINITION 
INPUT: 


R5  -  TEMPLATE  ADDRESS 


OUTPUT: 


C-BIT  =   SUCCESS/FAILURE 


OOOOOOG  OOOOOOC 
OOOOOOG 

OOOOOOG 

U7777     OOOOOOG 

OOOOOOG 

000000' 

000010 

OOOOOOG 

OOOOOOG 


SUPDTE:: 


004767  000152 


004767  000056 


OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG  OOOOOOC 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

SPTR50 

CALL 

SPTNUM 

SPTNUM 

CALL 

SPTR50 

MOV 

SUB 

MOV 

CALL 

MOV 

RETURN 


*.BUFF,SOF 

R5,.TEMP 

(R5)  + 

R5, .FLAGS 

#-1,. COMMA 

#.6UFF,R0 

#DTEDF,R1 

#DTELN,R2 

SMVASC 

RO.SOBUF 

*C.ADR,#5 

SETLJN 

#C.HSH 

#C.CT 

SETSTA 

#C.NET,#2 

S08UF,R1 

#.8UFF,R1 

R1,S0FDBtF 

SUDATA 

*$BUFI,$0F 


DB+F.NR8D+2  ;  SET  NEW  OUTPUT  BUFFER 

UPDATE  SCANNED  POINTER 

POINT  TO  C.STS 

SAVE  ADDRESS  OF  FLAGS  WORD 

INITIALIZE  FOR  OPTIONS 

POINT  AT  START  OF  OUTPUT  BUFFER 

POINT  AT  START  OF  DTE  DEFINITION 

GET  LENGTH  OF  DTE  DEFINITION 

MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

ADDRESS 

LINE 

HASH 

COUNTER  TIMER 

STATE 
*CS.NET  ;  NETWORK  NAME 

CALCULATE  LENGTH  OF  BUFFER 


.NRSD  ;  SET  LENGTH  OF  BUFFER 

UPDATE  RECORD 
DBtF.NRBD+2  ;  SET  TO  OUTPUT  THE 


'ENDSDF"  LINE 
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225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 


000400 
000404 
000410 
000412 
000420 


016702 
066702 
011201 
062767 
000400 


177374 
177372 

000002  177362 


.SBTTL  SETMSK  -  WRITE  OUT  EVENT  MASK 

***  -  SETMSK  -  URITE  OUT  EVENT  MASK 

INPUT: 

.PNUMB  =  THE  EVENT  MASK  NUMBER 
.PNUMH  =  THE  EVENT  MASK  NUMBER  (HIGH  ORDER) 
SOBUf  =  CURRENT  POSITION  IN  OUTPUT  LINE 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 


SETMSK: 


MOV 
ADD 
MOV 
ADD 
BR 


TEMP,R2 

EVT0fF,R2 

(fi2),Rl 

#2,EVT0FF 

SETNUM 


GET  ADDRESS  OF  EVENT  TEMPLATE 

POINT  TO  EVENT  MASKS 

GET  EVENT  MASK 

SAVE  UPDATED  EVENT  MASK  OFFSET 

WRITE  OUT  EVENT  MASK 
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Symbol  table 


FlLDF 
FlLLN 
F$DIA 
FSDUM 
FSLD 


OOOOOOR 

000010 

000012 

OOOOU 

000010 


ABS.  OOOOii? 
0002« 
Errors  detected: 


000 
001 
0 


F$LEN  =  000016 

F$SEC  OOOOOA 

FSTER  000006 

F.CNT  000002 

F.DEV  000005 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


F.LEN  =  000043 

F.LNK  000000 

F.NRBD=  ****♦♦  GX 

MXFSP  =  000036 

PUTFIL  000160R 


$MVASC=  ♦♦**♦♦  GX 
$OBUF  =  ******  GX 
$OFDB  =  ******  GX 
$SAVRG=  *♦♦*»•  GX 
SUPFIL  000010RG 


$WDATA=  **♦•*♦  GX 

.BUFF  =  *♦»**♦  GX 

.FLAGS=  ******  GX 

.TEMP  =  ******  GX 


•♦*  Assembler  statistics 


Work   tile  reads:  0 

Work   f i le  writes:  0 

Size  ot  work  file:  218  Words  (  1  Pages) 

Size  of  core  pool:  U440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 
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571 
372 
375 
574 
575 
576 
577 
578 
379 
380 
381 
582 
383 
38A 
585 
586 
387 
388 
589 


.S8TTL  SETEXT  -  SET  THE  PROCESS  EXTENSION  SIZE 

'***  -  SETEXT  -  SET  THE  PROCESS  EXTENSION  SIZE 

INPUTS: 

TEMP  =  TEMPLATE  ADDRESS 

$08UF  =  CURRENT  POSITION  IN  OUTPUT  SUFFER 


;  OUTPUTS: 

000610 

SETEXT: 

000610 

016700 

177164 

MOV 

TEMP.RO 

000614 

116001 

000015 

Move 

C.EXT(RO) 

000620 

016700 

OOOOOOG 

MOV 

$08UF,R0 

000624 

004767 

OOOOOOG 

CALL 

SCNVD 

000630 

010067 

OOOOOOG 

MOV 

R0,$0BUF 

000634 

000207 

RETURN 

,R1 


GET  TEMPLATE  ADDRESS 

GET  THE  PROCESS  EXTENSION  SIZE 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POSITION  IN  OUTPUT  BUFFER 


L  11 

UPDLLC  -  CFE  UPDATE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:52 
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175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 

189  000122 

190  000122 

191  000126 

192  000132 

193  0001 3A 
19A  000140 

195  000U4 

196  000150 
197 

198 
199 


.SBTTL     SETNUM  -   SET   THE   NEXT  NUMBER 
•»♦   -   SETNUM  -  SET   UP   THE   NEXT   NUMBER 
INPUT: 


$OBUF   =  CURRENT   POSITION   IN  THE   OUTPUT  BUFFER 

NEXT   =  ADDRESS   OF    NEXT   LOCATION   IN   THE    TEMPLATE   FILE 


OUTPUT: 

C-BIT 
$OBUf 


SUCCESS/FAILURE 

NEXT   LOCATION   IN  OUTPUT  BUFFER 


016700  OOOOOOG 

016702  177646 

112201 

010267  177640 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


000001 


SETNUM: 


MOV 

MOV 

MOVB 

MOV 

CALL 

MOV 

RETURN 


.END 


$08UF,R0 

NEXT,R2 

(R2)+,R1 

R2,NEXT 

$CNVO 

RO.SOBUF 


GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

GET  ADDRESS  OF  NEXT  LOCATION  IN  TEMPLATE 

GET  NEXT  VALUE 

SAVE  NEXT  LOCATION  IN  TEMPLATE 

CONVERT  NUMBER  TO  DECIMAL 

SAVE  CURRENT  POSITION  IN  BUFFER 

RETURN  TO  CALLER 


L  12 


UPDLOG  -  CFE  UPDATE  LOGGING  STA  MACRO  VO5.03b  Saturday  29-Jun-85  05:53  Page  8-1 
Symbol  table 


K  13 

UPDNOD  -  CFE  UPDATE  NODE  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:53  Page  9 
SETNMA  -  SET  EXEC  AREA 


2'.9 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 

261  000212 

262  000212 

263  000216 
26A  000222 

265  000230 

266  000232 

267  000236 

268  000242 

269  000244 

270  000246 

271  000250 

272  000254 

273  000260 
274 

275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 

287  000262 

288  000262 

289  000266 

290  000272 

291  000276 

292  000302 

293  000306 

294  000312 


.SSTTL   SETNNA  -  SET  EXEC  AREA 
***   -   SETNNA  -  SET  EXEC  AREA 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 
(TEMP)+C.HOS  =  NODE  ADDRESS 


OUTPUT: 


016700 
016702 
032762 
001413 
016201 
042701 
000301 
006201 
006201 
004767 
010067 
000207 


OOOOOOG 

177556 

OOOOOOG  OOOOOOG 

000052 
001777 


SETNi.A: 


OOOOOOG 
OOOOOOG 


10$: 


$08UF,RO 

TEMP,R2 

#NO$EXA,C. 

10$ 

C.NUM(R2), 

#1777, R1 

R1 

R1 

R1 

$CNVD 

RO,$08UF 


R1 


MOV 
MOV 
BIT 
BEQ 
MOV 

bIc 

SWAB 

ASR 

ASR 

CALL 

MOV 

RETURN 


.SSTTL  SETNNM  -  SET  NODE  NUMBER 


;  POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 
;  POINT  R2  AT  TEMPLATE 
STS(R2)  ;  EXEC  AREA  PARSED  ? 

NOPE 

GET  NODE  ADDRESS 

ONLY  AREA 


FORMAT  IT 


CONVERT  BINARY 
UPDATE  POINTER 


TO  DECIMAL 

INTO  OUTPUT  BUFFER 


»»*  -  SETNNM  -  SET  NODE  NUMBER 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 
(TEMP)+C.NUM  =  NODE  NUMBER 


016700  OOOOOOG 

016702  177506 

016201  000052 

042701  176000 

004767  OOOOOOG 

010067  OOOOOOG 
000207 


OUTPUT: 


SETNNM: 


MOV 

$OeUF,RO 

MOV 

TEMP,R2 

MOV 

C.NUM(R2),R1 

BIC 

#»C1777,R1 

CALL 

$CNVD 

MOV 

R0,$OBUF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  R2  AT  TEMPLATE 

GET  NODE  NUMBER 

CLEAR  AREA 

CONVERT  BINARY  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 
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247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 

262  000444 

263  000444 

264  000450 

265  000454 

266  000456 

267  000462 

268  000466 

269  000472 

270  000476 


.S8TTL  SETVFY  -  SETUP  OBJECT  VERIFICATION  LEVEL 

*••  -  SETVFY  -  WRITE  OUT  OBJECT  VERIFICATION  LEVEL 

INPUT: 

.PNUMB  =  THE  OBJECT  VERIFICATION  LEVEL 

.PNUMH  =  THE  OBJECT  VERIFICATION  LEVEL  (HIGH  ORDER) 

$OBUF  =  CURRENT  POSITION  IN  OUTPUT  LINE 

TEMP  =  TEMPLATE  ADDRESS 


016700  OOOOOOG 

016702  177324 
005001 

156201  000005 

042701  177770 

004767  OOOOOOG 

010067  OOOOOOG 
000207 


OUTPUT 


SETVFY: 


THE  VERIFICATION  LEVEL  IS  WRITTEN  TO  THE  OUTPUT  LINE 


MOV 

$OeUF,R0 

MOV 

TEMP,R2 

CLR 

R1 

81  SB 

C.FLG(R2),R1 

BIC 

#*C<7>,R1 

CALL 

SCNVO 

MOV 

RO,$OBUF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  LINE 

POINT  AT  TEMPLATE 

GET  THE  VERIFICATION  LEVEL 

..WITHOUT  SIGN  EXTEND 

CLEAR  ALL  BUT  THE  VERIFICATION  LEVEL 

CONVERT  BINARY  TO  OCTAL 

UPDATE  POINTER  INTO  OUTPUT  LINE 
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K7 
U8 
149 
150 
151 
152 
155 
154 
155 
156 
157 
158 

159  OOOOU 

160  OOOOK 

161  000020 

162  000022 

163  000024 

164  000026 

165  000034 
166 

167 
168 

169  000036 

170  000040 

171  000044 

172  000050 

173  000052 

174  000054 

175  000060 

176  000064 

177  000070 

178  000072 

179  000076 

180  000100 
181 

182 
183 
184  000102 


.SSTTL  SUPPAR  -  UPDATE  PARTITION  DEFINITION 
•*♦  -  SUPPAR  -  UPDATE  PARTITION  DEFINITION 
INPUT: 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 

C-8IT  =  SUCCESS/FAILURE 


012700 
010001 
011000 
001426 
122760 
001371 


011011 
010067 
004767 
010546 
005001 
012702 
012705 
004767 
103002 
005267 
012605 
000207 


OOOOOOG 


SUPPAR : : 
10S: 


OOCOOOG  OOOOOOG 


177734 
OOOOOOG 


MOV  #STML:)r,KO 

MOV  RO.fil 

MOV  (RO),RO 

BEQ  lOlS  ; 

CMP8  #CS.PAR,C.STS(R0; 

BNE  lOS 


POINT  AT  START  Of  TEMPLATES 

SAVE  CURRENT  TEMPLATE 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  PARTITION  TEMPLATE 

If  NE,  NO  ..  KEEP  LOOKING 


ASSUME  THIS  IS  THE  RIGHT  TEMPLATE 


000000' 
000000' 
OOOOOOG 

OOOOOOG 


20S: 
30S: 


MOV 

MOV 

CALL 

MOV 

CLR 

MOV 

MOV 

CALL 

BCC 

INC 

MOV 

RETURN 


(R0),(R1) 

RO.TEMP 

SMOVST 

R5,-(SP) 

R1 

*PARKTB,R2 

#PARSTB,R5 

.TPARS 

20$ 

SERROR 

(SP)t,R5 


000167  OOOOOOG 


ERROR  CONDITIONS 
101$:   JMP     .CONER 


REMOVE  TEMPLATE  FROM  THE  CHAIN 

SAVE  TEMPLATE  ADDRESS 

MOVE  FIRST  FIELD  INTO  OUTPUT  BUFFER 

SAVE  R5 

IGNORE  BLANKS 

KEYWORD  TABLE 

STATE  TABLE 

PARSE  THE  REST  OF  THE  LINE 

NORMAL  RETURN  IF  NO  ERROR 

INDICATE  SYNTAX  ERROR 

RESTORE  R5 


CONSISTENCY  ERROR 
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MACRO  DEflNlIIONS 

IK  1 

115  .MACRO  $PrR50  OFS.WC 

116  MOV  0FS,R2 

117  MOV  UC.RI 

118  CALL    $PrR50 

119  .ENDM 
120 
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LOCAL  DATA 
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SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREf   04.00 


SYMBOL 

VALUE 

REFERENCE 

5 

rS.DDM 

=    .«.»*.      GX 

6-205 

CS.MOD 

=   ,.»..*      GX 

6-212 

C.FLC 

000006 

#4-109 

8-274 

8-275 

8-282 

8-283 

8-284 

C.LEN 

=  OOOOK 

#4-113 

C.NAM 

OOOOOA 

#4-108 

7-250 

C.NCT 

000013 

#4-112 

11-347 

C.NLT 

000012 

#4-111 

10-326 

C.PRI 

000010 

#4-110 

9-304 

C.STS 

=   ...»*♦      GX 

6-205 

6-212 

DDMKTB 

000000  RG 

#5-120 

6-219 

DDM5TB 

000000  RG 

#5-120 

6-220 

F.NRBD 

=   «....»     GX 

*6-214 

5ETFLG 

000252  R 

#8-267 

SETNAM 

0002K  R 

#7-244 

SETNCT 

000724   R 

#11-344 

SETNLT 

000674   R 

#10-323 

SETPRI 

000646  R 

#9-302 

TEMP 

000000  R 

#4-89 

♦6-211 

7-249 

ZDDM 

000002  R 

#4-90 

4-90 

8-271 

ZDDML 

=  000007 

#4-90 

8-272 

ZOIA 

000054   R 

#4-96 

4-96 

8-282 

ZDIAL 

=  000007 

#4-96 

8-282 

ZDLC 

000011    R 

#4-91 

4-91 

8-276 

ZOLCL 

=  000007 

#4-91 

8-276 

ZDVP 

000063  R 

#4-97 

4-97 

8-283 

ZDVPL 

=  000007 

#4-97 

8-283 

ZF.COU 

=:     »**»♦«         GX 

8-277 

ZF.CIA 

=    ».«*.*      GX 

8-282 

ZF.DLC 

3    **t***      GX 

8-276 

ZF.DVP 

=    .♦».»«      GX 

8-283 

ZF.KMX 

=   »...«.      GX 

8-278 

ZF.LMC 

=   ......      GX 

8-279 

i^  .mn 

=   ......      GX 

8-284 

ZF.MFL 

=   .«»*.♦      GX 

8-2" 

ZF.MUX 

=    .*....      GX 

8-280 

Zf^.PSE 

=    •••»♦»      GX 

8-281 

ZF.TIM 

r;      ..,.♦.         GX 

8-274 

ZKMX 

000020  R 

#4-92 

4-92 

8-278 

ZKMXL 

=  000007 

#4-92 

8-278 

ZLMC 

0000 '6   R 

#4-94 

4-94 

8-279 

ZLMCL 

=  0000u7 

#4-94 

8-279 

ZMAN 

000072   R 

#4-98 

4-98 

8-284 

ZMANL 

=  000007 

#A-98 

8-284 

ZMUX 

000027  R 

#4-93 

4-93 

8-280 

ZMl;»l 

=  00000^ 

#4-93 

8-280 

ZPSf 

00004  5   R 

#4-95 

4-95 

8-281 

ZPSEl 

--  000007 

#4-95 

8-281 

SAlPhA 

=  000022 

#5--^20 

tAN* 

--  00002C 

#5-120 

SBl  AN« 

r   C00C06 

#5-120 

SB„FI 

=    ......     GX 

6-214 

8-276 


8-277 


8-278 


8-279 


8-280 


8-281 


8-269 


9-30 


10-324 


11-345 


UPDDDM     CREATES  BY  MACRO  ON  29-Jl'N-85  AT  05:'.9 
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SETOUT  -  OUTGOING  TIMER 


2^.5 
24A 
2A5 
2A6 
247 
248 
249 
250 
251 
252 
253 
254 

255  000220 

256  000220 

257  000224 

258  000226 

259  000232 

260  000236 

261  000242 

262  000246 


.SBTTL 
♦♦•  -  SEIOUT 
INPUT: 


SETOUT  -  OUTGOING  TIMER 
-  SETUP  OUTGOING  TIMER 


TEMP  =  TEMPLATE  ADDRESS 

SOBUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


OUTPUT: 


016702  177554 

005001 

156201  000013 

016700  OOOOOOG 

004767  OOOOOOG 

010067  OOOOOOG 

000207 


SETOUT: 


MOV 

CLR 

BIS8 

MOV 

CALL 

MOV 

RETURN 


TEMP,R2 

Rl 

C.0UTT(R2),R1 

SOBUf ,R0 

SCNVD 

RO, SOBUF 


GET  START  OF  TEMPLATE 
GET  OUTGOING  TIMER 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINVER  INTO  OUTPUT  BUFFER 


n  2 
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SETINA  -  INACTIVITV  TIMER 
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UPDDLC  -  CFE  UPDATE  DLC  PROtFSS  MACRO  V05.03b  Saturday  29-Jun-85  05:50 
Table  ot  contents 

UPDATE  DLC  DEFINTIOM 

CHECK  PROCESS  NAME 

SETUP  THE  FLAGS  WORD 

SET  THE  PRIORITY 

STORE  NUMBER  OF  LINE  TABLES 

STORE  NUMBER  OF  CONTROLLER  TABLES 


ft- 

161 

SUPDLC 

/- 

204 

SETNAM 

H- 

228 

SETFLG 

9- 

272 

SETPRI 

10- 

292 

SETNLT 

11- 

3U 

SETNCT 

n  3 
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UPDDLC 


CREATED  BY  MACRO  OM  29-JUN-85  AT  05:50 


SYMBOL  CROSS  REFERENCE 


L  4 

PAGE  2 

CREf   04.00 


SYMBOL 

VALUE 

REFERENCES 

SUPOLC 

000020 

RG 

#6-173 

szcou 

-    ****** 

GX 

8-259 

SZCOUL 

=  ****** 

GX 

8-260 

$ZMFL 

:^  ****** 

GX 

8-254 

SZMFLL 

=  ****** 

GX 

8-?55 

SZTIM 

=  ****** 

GX 

8-249 

SZTIML 

-  ****** 

GX 

8-250 

$$$FLG 

=  177777 

#5-100 

$$$KEY 

=  177777 

#5-100 

.CONER 

r  ****** 

GX 

6-202 

.PSTPT 

r  ****** 

GX 

7-219 

.TPARS 

-  ****** 

GX 

6-194 

UPODLC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:50 
Miron  rBn<;';  BFFFBFMfF     
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CREF   04.00 


u- 


UPDDSC  -  UPDATE  DESTINATION  CAL  MACRO  V05.05b  Saturday  29-Jun-85  05:50 
Table  ot  contents 

4-  57    MACRO  CALLS  AND  LOCAL  DATA 
A-   58    MACRO  DEFINITIONS 

5-  131    LOCAL  DATA 

6-  151    SUPDSC  -  UPDATE  DESTINATION  CALL  PARAMETERS 
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UPDDST  -  UPD^VTE  DESTINATION  DES  MACRO  V05.03b  Saturday  29-Jun-85  05:51  Page  4-1 
MACRO  DEFINITIONS 

114  ;  PUT  RAD50  TEMPLATE  FIELD  TO  SUFFER 

116  '      .MACRO  $PTR50  OFS,WC ,OPT, ?L 

117  "  ■■"  '""' 
118 
119 
120 
121 
122 
123 
124 
125 

126  L: 

127 
128 
129 


.MACRO 

$PTR50 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS,R2 

MOV 

UC,R1 

CALL 

$PTR50 

.IFT 

.ENDC 

.ENDM 

n  6 
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LOCAL  DATA 
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202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2H  0002U 

215  000220 

216  000222 

217  00022A 

218  000230 

219  000232 

220  000234 

221  0002A2 

222  000246 

223  000252 
22A  000256 
225 

226  000260 

227  000274 

228  000302 

229  000306 

230  000314 

231  000326 

232  000334 

233  000336 

234  000344 

235  000350 

236  000356 

237  000370 

238  000376 

239  000400 

240  000406 

241  000412 

242  000420 

243  000452 
244 

245 


.S8TTL  SETSTA  -  SET  STATE 
.S8TTL  SETLJN  -  SET  LINE  ID 

**  SETSTA  -  SET  STATE 
•♦  5ETLIN  -  SET  LINE  ID 

INPUT:        CURRENT  TEMPLATE. 

OUTPUT:       VALUE  LOADED  INTO  OUTPUT  BUFFER. 


016701 
010146 
005002 
105761 
001001 
122222 
012767 
012701 
004767 
012667 
000207 


112777 
005267 
012767 

032777 
001415 
112777 
005267 
012767 

032777 
001415 
112777 
005267 
012767 

000207 

000001 


OOOOOOG 


000026 


SETSTA: 


000010'  OOOOOOG  10$: 

000001 

OOOOOOG 

OOOOOOG 


SETLINi 
000055  OOOOOOG 
OOOOOOG 

\nin   OOOOOOG 

OOOOOOG  OOOOOOG 

000055  OOOOOOG 
OOOOOOG 
177777  OOOOOOG 

0000006  OOOOOOG  10$: 

000056  OOOOOOG 
OOOOOOG 
177777  OOOOOOG 

20$: 


MOV 

MOV 

CLR 

TSTB 

BNE 

CMPB 

MOV 

MOV 

CALL 

MOV 

RETURN 

$PTR50 

MOVB 

INC 

MOV 

$PTNUM 

BIT 

BEQ 

MOVB 

INC 

MOV 

$PTNUM 

BIT 

BEQ 

MOVB 

INC 

MOV 

$PTNUM 

RETURN 

.END 


.TEMP.RI 

R1,-(SP) 

R2 

C.STA(RI) 

10$ 

(R2)+,(R2)t 

#0NSTR,.TEMP 

#1,R1 

$PTR50 

(SP)t,.TEMP 


#C.LIN,#1 

#'-,5)$0BUF 

$0BUF 

#-1,. COMMA 

#C.L]N+2, OCTAL 

#CS. UNI, a. FLAGS 

10$ 

#'-,a$OBUF 

$OBUF 

#-1,. COMMA 

*C.LlN+4, OCTAL 

#CS.TRB,a.FLAGS 

20$ 

#'.,a$OBUF 

$OBUF 

#-1,. COMMA 

#C.LIN+6, OCTAL 


POINT  TO  TEMPLATE 

SAVE  TEMPLATE  ADDRESS 

ASSUME  STATE  =  ON 

CHECK  STATE 

IF  NO,  ON 

ELSE  STATE  =  OFF 

POINT  TO  START  OF  STRINGS 

ONE  RAD50  WORD 

OUTPUT  RAD50 

RESTORE  TEMPLATE  ADDRESS 


RAD50  DDM  NAME 

SEPARATOR 

ADVANCE  BUFFER  POINTER 

SUPPRESS  COMMAS 

CONTROLLER  NUMBER 

CHECK  OPTION 

IF  EQ,  NOT  SELECTED 

ELSE  BUFFER  CHAR 

BUMP  BUFPTR 

SUPPRESS  COMMAS 

OUTPUT  VALUE 

CHECK  OPTION 

IF  EQ,  NOT  SELECTED 

ELSE  BUFFER  CHAR 

BUMP  BUFPTR 

SUPPRESS  COMMAS 

OUTPUT  VALUE 


«  7 

UPDDTE  -  UPDATE  LOCAL  DTE  DESCR  MACRO  V05.03b  Saturday  29-Jun-85  05:51 
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UPDEVT  - 
SETNUM  - 

2A6 
247 
248 
249 
250 
251 
252 
253 
25A 
255 
256 
257 
258 
259 
260 
261 
262 
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WRITE  OUT  NUMBER 

.SBTTL  SETNUM  -  WRITE  OUT  NUMBER 
*»  -  SETNUM  -  WRITE  OUT  NUMBER 


INPUT; 


R1  -  NUMBER  TO  CONVERT 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


000422 

000422  016700  OOOOOOG 

000426  004767  OOOOOOG 

000432  010067  OOOOOOG 

000436  000207 


SETNUM: 


MOV  $0BUF,R0 

CALL  $CNVO 

MOV  RO.SOBUF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  LINE 

CONVERT  BINARY  TO  OCTAL 

UPDATE  POINTER  INTO  OUTPUT  LINE 


n   8 
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SETSNK  -  WRITE  OUT  SINK  NAME 
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PAGE    1 

CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

FILDF 

000000 

R 

#4-54 

4-55 

5-110 

FILLN 

=  OOOCIO 

#4-55 

5-111 

F$D!A 

000012 

#4-69 

5-125 

F$DUM 

000014 

#4-70 

5-128 

F$LD 

000010 

#4-68 

5-122 

FSLEN 

=  000016 

#4-71 

FSSEC 

000004 

#4-66 

5-116 

FSTER 

000006 

#4-67 

5-119 

F.CNT 

000002 

#4-83 

F.DEV 

000005 

#4-85 

6-163 

F.LEN 

=  000043 

#4-86 

F.LNK 

000000 

#4-82 

F.NRBD 

=  *♦***♦ 

GX 

5-104 

*5-105 

♦5-136 

♦^-138 

MXFSP 

=  000036 

#4-78 

4-85 

PUTFIL 

000160 

R 

5-115 

5-118 

5-121 

5-124 

SMVASC 

=   *♦♦■*■** 

GX 

5-112 

SOBUF 

=   ****** 

GX 

*5-113 

5-130 

6-157 

♦6-165 

SOFDB 

=   ****** 

GX 

5-104 

♦5-105 

♦5-136 

♦5-138 

SSAVRG 

3   ****** 

GX 

5-103 

SUPFIL 

000010 

RG 

#5-102 

SWDATA 

=  ****** 

GX 

5-137 

.BUFF 

-    ****** 

GX 

5-105 

5-109 

5-135 

.FLAGS 

-  ****** 

GX 

«5-108 

.TEMP 

::  ****** 

GX 

♦5-106 

6-158 

5-127 


#6-155 


UPDFIL           CREATED  BY     MACRO     ON  29-JUN-85   AT  05:52 
MATDn    roncc    DticpoPMrF 
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UPDLLC  -  CFE  UPDATE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85 
Table  ot  contents 


l55l?2 


6-  183  SUPLLC  -  UPDATE  LLC  DEFINITIOM 

7-  226  SETNAM  -  CHECK  IF  LLC  PROCESS  NAMES  MATCH 

8-  250  SETFLG  -  SETUP  THE  FLAGS  WORD 

9-  308  SETPRI  -  SET  THE  PRIORITY 

10-  329  SETLIN  -  SET  LINE  NUMBER                   „.^^ 

11-  350  SETNLT  -  SET  NUMBER  OF  LINE  TABLES  TO  ALLOCATE  SPACE 

12-  371  SETEXT  -  SET  THE  PROCESS  EXTENSION  SIZE 

13-  391  SETCTM  -  COUNTER  TIMER 


n  10 
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UPDLLC  -  CFE  UPDATE  LLC  PROCESS  MACRO  VO5.03b  Saturday  29-Jun-85 
SETCTM  -  COUNTER  MMER 


1,  11 


Page  15 


391 
?92 
393 
39A 
39S 
396 
397 
398 
399 
AOO 
A01 
402 
A03 
AOA 
A05 
406 
407 
408 
409 
410 
411 


.SBTTL 
«*«  -  SETCTM 
INPUT: 


SETCIM  -  COUNTER  TIMER 
-  SETUP  COUNTER  TIMER 


TEMP  =  TEMPLATE  ADDRESS 

SOBUF  =  CJRRENT  POSITION  IN  OUT^JT  BUFFER 


000636 

000636  016702  177136 

000642  016201  000016 

000646  016700  OOOOOOG 

000652  004767  OOOOOOG 

000656  010067  OOOOOOG 

000662  000207 

000001 


OUTPUT: 


SETCTM: 


MOV 

TEMP,R2 

MOV 

C.CTM(R2) 

MOV 

$08UF,RO 

CALL 

ICNVD 

MOV 

RO.SOBUF 

RETURN 

,R1 


GET  START  OF  TEMPLATE 

GET  NUMBER  OF  LOGICAL  LINKS 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


.END 
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L  12 

UPDLOG  -  CfE  UPDATE  LOGGING  STA  MACRO  V05.03b  Saturday  29-Jun-85  05:53 
Symbol  table 

$D]GIT=  000024 
$DNUM8=  OOOOU 
$EOS  =  000012 
$ERROR=  ******  GX 
$EXIT  =  000000 
$FAIL  =  177777 
$LAMDA=  000000 


CS.LOG= 

«•*»**  GX 

NEXT    OOOOOOR 

CS.MOD= 

••*»«*  GX 

SETNUM  0001 22R 

C.LEN  = 

000005 

$ALPHA=  000022 

C.STA 

000004 

$ANY  =  000020 

C.STS  = 

«»«*»*  GX 

$BLANK=  000006 

F.NRBD= 

»«»««*  GX 

$BUFI  =  ******  GX 

LOGKTE 

OOOOOORG 

00^ 

$CLNUP=  ******  GX 

LOGSTB 

OOOOOORG 

0U2 

$CNVO  =  ******  GX 

.  ABS. 

000005 

000 

(RW,I,GBL,ABS,OVR) 

000152 

001 

(RW,I,LCL,REL,CON) 

SSTATE 

000012 

()(!2 

(RW,D,LCL,REL,CON) 

tKTAB 

000000 

003 

(RW,D,LCL,REL,C0N) 

SKSTR 

000000 

004 

(RW,D,LCL,REL,CDN) 

Errors 

detected: 

0 

»**  Ass 

embler  statistics 

Work   f 

ile  reads 

:  0 

Work   t 

ile  writes 

:  0 

Page  8-1 


$MOVST=  ****«•  GX 
$NUMBR=  000002 
$OBUF  =  ******  GX 
$OFDB  =  ******  GX 
$RAD50=  000016 
$STRNG=  000004 
$SUBXP=  000010 


$TMLST=  ******  GX 

SUPLOG  000002RG 

$$$FLG=  \nm 

$$$KEY=  \mii 

$$$STA=  000000 

.CONER=  ******  GX 

.rPARS=  ******  GX 


Size  of  work  file:  10630  Words  (  42  Pages) 
Size  of  core  pool;  14440  Words  (  55  Pages) 
Operating  system:  RSX-11M/PLU5 

SYtuPDLCGlv2!c°3^?°54]UPDLOG/CR/-SP=SY:[1,1]RSXMCM.SML/|v|L,C130,110]NETLIB/ML,[132,10]UP[)LOG 


M  12 


UPDLOG           CREATED  BY     MACRO     ON  29-JUN-85   AT  05:53  PAGE   1 

<;¥MRni    rRn<;<;  rfffrfncf CREF       04.00 


UPDNOD  -  CfE  UPDATE  NODE  DEFINI  MACRO  V05.03b  Saturday  29-Jun-85  05:53  Page  10 
SETHOA  -  SET  HOST  NODE  AREA 


05:53 


296 
297 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 

308  0003U 

309  0003U 

310  000320 

311  00032A 

312  000332 

313  00033A 
31'!.  0003^0 

315  00034A 

316  000346 

317  000350 

318  000352 

319  000556 

320  000362 
321 

322 
323 
32A 
325 
326 
327 
328 
329 
330 
331 
332 
333 
33A  000364 

335  000364 

336  000370 

337  00037A 

338  000400 

339  000404 

340  000410 

341  000414 
342 

343 
344 


.SBTTL 
*♦*  -  SETHOA 
INPUT: 


SETHOA  -  SET  HOST  NODE  AREA 
-  SET  HOST  NODE  AREA 


TEMP  =  TEMPLATE  ADDRESS 
(TEMP)+C.HOS  =  NODE  ADDRESS 


OUTPUT: 


016700 
016702 
032762 
001413 
016201 
042701 
000301 
006201 
006201 
004767 
010067 
000207 


OOOOOOG 

177454 

OOOOOOG  OOOOOOG 

000054 
001777 


SETHOA: 


OOOOOOG 
OOOOOOG 


10$: 


MOV  $08UF,R0 

MOV  TEMP,R2  ; 

BIT  #N0$H0A,C.STS(R2) 

BEQ  10$ 

MOV  C.H0S(R2),R1 

BK  #1777, R1 

SWAB  R1 

ASR  R1 

ASR  R1 

CALL  $CNVD 

MOV  ROJOBUF 

RETURN 


.SBTTL  SETHOS  -  SET  HOST  NODE  ADDRESS 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  R2  AT  TEMPLATE 

;  HOST  AREA  PARSED  ? 

NOPE 

GET  HOST  NODE  ADDRESS 

ONLY  AREA 

FORMAT  IT 


CONVERT  BINARY  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


***  -  SETHOS  -  SET  HOST  NODE  ADDRESS 


INPUT: 


TEMP  =  TEMPLATE  ADDRESS 
(TEMP)+C.HOS  =  NODE  ADDRESS 


016700 
016702 
016201 
042701 
004767 
010067 
000207 


000001 


OOOOOOG 

177404 

000054 

176000 

OOOOOOG 

OOOOOOG 


OUTPUT: 


SETHOS: 


MOV 

$OBUF,RO 

MOV 

TEMP,R2 

MOV 

C.H0S(R2) 

BIC 

#*C1777,R 

CALL 

$CNVD 

MOV 

R0,$OBUF 

RETURN 

,R1 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  R2  AT  TEMPLATE 

GET  HOST  NODE  ADDRESS 

CLEAR  AREA 

CONVERT  BINARY  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


.END 
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SETFLG  -  WRITE  OUT  THE  FLAGS  BYTE 


05:51 


272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 


.SBTTL  SETFLG  -  WRITE  OUT  THE  FLAGS  BYTE 

*•♦  -  SETFLG  -  SET  FLAGS  BYTE 

INPUT: 

.PNUMB  =  FLAGS  BYTE 

.PNUMH  =  FLAGS  BYTE  (HIGH  ORDER) 

JOBUF  =  CURRENT  POSITION  IN  OUTPUT  LINE 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT 


THE  FLAGS  BYTE  IS  WRITTEN  TO  THE  OUTPUT  LINE 


000500 

000500  016700  OOOOOOG 

000504  016702  177270 

000510  005001 

000512  156201  0  ^05 

000516  042701     007 

000522  004767    OOOOG 

000526  010067  uOOOOG 

000532  000207 


SETFLG: 


MOV 

$OBUF,R0 

MOV 

TEMP,R2 

CLR 

R1 

BISB 

C.FLG(R2),R1 

BIC 

#7,R1 

CALL 

SCNVO 

MOV 

R0,$OBUF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  R2  AT  TEMPLATE 

GET  THE  FLAGS  BYTE 

..WITHOUT  SIGN  EXTEND 

GET  THE  FLAGS  ONLY 

CONVERT  NUMBER  TO  ASCII 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


n  u 
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SETCPv  -  WRITE  OUT  THE  MAXIMUM  NUMBER  OF  COPIES  ALLOWED 
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UPDPAR   - 

CFE  UP 

SETNMO  - 

SET   L)P 

186 

187 

188 

189 

190 

191 

192 

195 

194 

195 

'96 

•97 

198 

000106 

199 

000106 

200 

000112 

201 

000116 

202 

000122 

203 

000124 

204 

000130 

205 

000134 

206 

000140 

207 

000144 

208 

000146 

209 

000152 

210 

000156 

211 

000162 

212 

000166 

CFE  UPDATE  PARTITION  D  MACRO  V05.05b  Saturday  29-Jun-85 


05:54 
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.S8ITL  SETNMO  -  SET  UP  PARTITION  NAME  0 
'»••  -  SETNMO  -  SETUP  PARTITION  NAME  0 
INPUT: 


(TEMP)  =  TEMPLATE  ADDRESS 
(TEMP)+C.NAMO  =  RAD50  PARTITION  NAME 


016700 
016702 
005762 
001417 
016201 
004767 
016702 
005762 
001406 
016702 
016201 
004767 
010067 
000207 


OOOOOOG 

177662 

000004 

000004 
OOOOOOG 
177640 
000006 

177626 
000006 
OOOOOOG 
OOOOOOG 


OUTPUT: 


SETNMO: 


10$: 


MOV 

$08UF,RO 

MOV 

TEMP,R2 

Tsr 

C.NAM0(R2) 

BEQ 

10$ 

MOV 

C.NAM0(R2),R1 

CALL 

$C5TA 

MOV 

TEMP,R2 

TST 

C.NAM0t2(R2) 

BEQ 

10$ 

MOV 

TEMP,R2 

MOV 

C.NAM0+2(R2),R1 

CALL 

$C5TA 

MOV 

R0,$O8UF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUfFER 

POINT  AT  TEMPLATE 

IS  THERE  A  PARTITION  NAME  ? 

IF  EQ,  NO  ..  LEAVE 

GET  RAD50  PARTITION  NAME 

CONVERT  RAD50  NAME  TO  ASCII 

POINT  AT  TEMPLATE 

IS  2ND  HALF  OF  NAME  BLANK  ? 

IF  EQ,  VES  ..  LEAVE 

POINT  AT  TEMPLATE 

GET  2ND  HALF  OF  PARTITION  NAME 

CONVERT  RAD50  NAME  TO  ASCII 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


UPDPAR  -  CFf  UPDATE  PARTITION  D 
SETNM1  -  SET  UP  PARTITION  NAME 
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UPDPSN  -  UPDATE  PSN  IN  CHAB    MACRO  V05.03b  Saturday  ?9-Jun-85 
LOCAL  DATA 


W^ 


5  Page  5 


000000 


1?2 
123 
12A 
125 
126 
127 
128 

129  000000 

130  000002 

131  OOOOOA 

132  000010 

133  000012 
13A  OOOOK 
135  000016 
136 

137  000000 
138 

139  000000 
000003 
000006 
KO 
K1 
K2 
U3 

UA  000010 
1A5  000010 
1A6  00001 A 
1A7  000020 
1A8  00002A 
KQ  000030 

150  00003A 

151  OOOOAO 

152  OOOOAA 

153  000050 
15A  00005A 
155  000060 
156 

157  00006A 

158  000070 
159 


000000 


000020 


Oil 

116 

106 

000010 


000072' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


120 
OAA 

Oil 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


C.NAM 
C.POR 
C.FLG 
C.TLO 
C.THI 
C.LEN= 


123  PSNDF: 
10A 


.SBTTL  LOCAL  DATA 


DEFINE  THE  PSN  BLOCK 


.ASECT 

iSLKW  1 

.BLKW  1 

.BLKW  2 

.BLKW  1 

.BLKW  1 

.BLKW  1 

.BLKW  1 

.PSECT 

.ASCII  <11>/PSN$DF/<11> 


C.LNK 

C.STS 

RAD50  NETWORK  NAME 

NUMBER  OF  PORTS  SUPPORTED  (1-256) 

FLAGS 

TRANSPORT  SUBADDRESS  LOW 

TRANSPORT  SUBADDRESS  HIGH 

LENGTH  OF  THE  BLOCK 


PSNLN=. -PSNDF 
.EVEN 
.LIST   BEX 


DIST8L: 


OOOOOOG  OOOOOOG 
000000 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


SUPPSN, 
$UPX3P, 
SUPDTE, 
SUPCHN, 
SUPPVC  , 
SUPCUG, 
SUPDST, 
$UPDSA, 
SUPDSC, 
SUPRDT, 
$UP)(2P, 
SUPSVC, 
$UPX29, 
0 


CS.PSN 
CS.X3P 
CS.DTE 
CS.CHN 
CS.PVC 
CS.CUG 
CS.DST 
CS.DSA 
CS.DSC 
CS.RDT 
CS.X2P 
CS.SVC 
CS.X29 
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$UPPSN  -  UPDATE  PSN  DEFINITION 
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jPDDD«     CREATED  B*  MACRO  ON  29--JJN-85  AT  05:'.9 
SVMBCl  ;'R0S5  BtfERENCE 


H     1 

PAGE   2 

CREf       0^.00 


SYMBOL      VALUE 


$CA^5 

ICNVC 

$DIGF 

$DNUWB 

$EOS 

tERRDR 

$E«IT 

SfAlL 

SGPRI" 
SlANIDA 
tMOvPT 
$M07ST 

SMvASC 

SNUMBR 

$CBUf 

SGFDB 

$RAD5C 

$RONl» 

SSTRNG 

SSJBXP 

SuPDD" 

tzcou 

SZCOUl 

$ZMFL 

SZMf.L 

SZTIW 

$ZTI«(L 

$$$f.G 

CONEB 

D^TpT 


r  «♦»*** 
r     »  1 1 • ♦* 

=  G0002A 
=  GOOOH 
=  0000 '2 

-  «*»*»« 

=  000000 
=   177777 

=  000000 

r  **»*•♦ 

-  ****** 

-  ****** 


GX 
GX 

GX 


GX 


GX 
GX 
GX 


GX 
GX 


GX 


=  C0GO02 

-  ****** 

-  ••***» 

=  000016 

r  ****** 

=  000004 
=  C00010 

~    ****** 

OOOiQ?  RG 

=   ••••••  GX 

=  ......  GX 

r  ......  GX 

-.  ......  GX 

=  ......  GX 

i  ......  GX 

r  177777 

-  177777 

-  ......  GX 

-  ......   GX 

^  .••...  GX 


REFERENCES 

7-248 

10-?28 

9-506 
#5-120 
#5-120 
#5-120 
«6-223 
#5-120 
#5-120 

5-120 
#5-120 

7-245 

6-216 

8-273 

8-282 
#5-120 

8-270 
.6-214 
#5-120 

5-120 
#5-120 
#5-120 

6-201 
#6-200 

8-277 

8-277 

8-275 

8-275 

8-274 

8-274 
#5-120 
#5-120 

6-229 

7-246 

6-221 


11-349 


8-274 
8-285 

«8-286 


5-120 


8-275 
8-284 

9-305 
5-120 


8-276 
•9-307 


8-277  8-278  8-279  8-280 

10-327         .10-529  11-348         ♦11-350 


8-281 


■■JPDDDM  CREATED   BV     MACRO     ON  29-JUN-85   AT    05:49 

MACRO   CROSS  REFERENCE 


N     1 

PAGE   3 

CREF       OA.OO 


n  2 

-  CFE  UPDATE  DECSpF  DEFi  MACRO  V05.03b  Saturday  29-Jun-85  05:«9  Page  11 

.SBTTL  SETINA  -  INACTIVITY  TIMER 
****   -   SETINA  -  SETUP  INACTIVITY  TIMER 
INPUT: 


UPDDEC  -  CFE  UP 

)ATE  DECSDF  DEFI 

SETINA  -  INACTIVITY  TIMER 

26A 

265 

266 

267 

268 

269 

270 

271 

272 

273 

27A 

275 

2^6  000250 

277  000250 

016702  17752A 

278  00025A 

005001 

279  000256 

156201  OOOOK 

280  000262 

016700  OOOOOOG 

281  000266 

00^767  OOOOOOG 

282  000272 

010067  OOOOOOG 

283  000276 

000207 

TEMP  =  TEMPLATE  ADDRESS 

$OBUF  :  CURRENT  POSITION  IN  OUTPUT  BUFFER 


OUTPUT: 


SETINA: 


MOV 

TEMP,R2 

CLR 

R1 

BISB 

C.INAC(R2),R1 

MOV 

$OeUF,RO 

CALL 

$CNVD 

MOV 

R0,$OBUF 

RETURN 


GET  START  OF  TEMPLATE 
GET  INACTIVITY  TIMER 

GET  CURRENT  POSITION.  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


N  2 

UPDDET  -  CFE  UPDATE  DECSDF  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:49 
SETDEF  -  DELAY  FACTOR 
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n  3 

IPDDLC  -  CFE  UPDATE  DLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05:50  Page  3 


1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
59 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE 
.IDENT 


UPDDLC  -  CFE  UPDATE  DLC  PROCESS  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  DLC  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF  ITS 


N  3 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

DBGTPS 
ISTATS 
MTRANS 

#5-100 

#4-67 

#5-100 

#5-116 
5-100 

#5-123 

#5-124 

#5-125 

#5-135 

#5-139 

#5-143 

PRINT 
STATES 

TRANS 

#4-58 

#4-67 

#5-133 

#4-67 

#5-124 

#5-146 

5-102 
#5-137 
#5-103 
#5-125 
#5-149 

#5-105 
#5-141 
#5-106 
#5-128 
#5-152 

#5-108 
#5-145 
#5-109 
#5-131 
#5-157 

#5-111 
#5-148 
#5-112 
#5-134 

#5-114 
#5-151 
#5-115 
#5-135 

#5-118 
#5-156 
#5-116 
#5-138 

#5-121 
#5-159 
#5-119 
#5-139 

#5-127 

#5-122 
#5-142 

#5-130 

#5-123 
#5-143 

N  4 

'♦FILE*»ID"UPDDSA 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
-2 
15 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  UPDrSC  -  UPDATE  DESTINATION  CALL  PARAMETERS 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

UPDATE  DESTINATION  CALL  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-AUG-81 

DECNET-llM/S  V3.1 
DECNET-llM-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


N  5 
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M  6 

UPDD5T  -  UPDATE  DESTINATION  DES  MACRO  V05.03b  Saturday  29-Jun-85  05:51 

LOCAL  DATA 
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131 

132 

133 

134 

135 

136  000000 

137 

138  000000 

139  000002 
1A0  000004 

141  000006 

142  000012 

143  000013 

144  000014 
145 

146  000000 

147 

148  000000 

149 

150 

151 

152 


.S8TTL  LOCAL  DATA 


DEFINE  THE  DESTINATION  DESCRIPTOR  BLOCK 


000000 


000020 


on 

000010 


104 


C.TYP 
C.NAM 
C.PRI 
C.OB  J 
C.TSK 
C.LEN=. 


123  DSTDF: 


.ASECT 

.=0 

.8LKW 

.8LKW 

.BLKW 

.BLKW 

.SLK8 

.BLK8 

.BLKW 

.PSECT 
.NLIST 
.ASCII 


DSTLN=. -DSTDF 
.LIST   BEX 
.EVEN 


BEX 
<11>/DST$DF/<11> 


C.LNK 

C.STS 

RAD50  "X25  OR  X29" 

RAD50  DESTINATION  NAME 

LIST  INSERTION  PRIORITY 

OBJECT  NUMBER 

RAD50  TASK  NAME 

LENGTH  OF  THE  BLOCK 


UPDDST 
tUPDST 


N  6 

UPDATE  DESTINATION  DES  MACRO  VO5.03b  Saturday  29-Jun-85  05:51 
UPDATE  DESTINATION  DESCRIPTOR 
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UPDDTE  -  UPDATE  LOCAL  DTE  DESCR  MACRO  V05.03b 
Symbol  table 

M  7 

Saturday  29-Jun-85  05:51 

CS.NET=  ♦«»♦»♦  GX 
CS.TRB=  •*••*♦  GX 
CS.UNI=  ••*••*  GX 
C.ADR   000004 
C.CT    000032 
C.HSH   000030 

C.LEN  =  000040 
C.LIN   000016 
C.NET   000034 
C.STA   000026 
DTEDF   OOOOOOR 
DTELN  =  000010 

F.NR8D=  ♦♦**»*  GX 
ONSTR   00001  OR 
SETLIN  000260R 
SETSTA  000214R 
$8UFI  =  .»«*»*  GX 
$MVASC=  ♦**«**  GX 

.  ABS.  000040    000 
000454    001 
Errors  detected:  0 

(RW,I,G8L,A8S,0VR) 
(RW,I,LCL,REL,CON) 

•♦*  Assembler  statistics 

Work   tile  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  8846  Words  (  35  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Sy;UPDDTE!v2![132,134]UPDDTE/CR/-SP=SY:[1,1]RSXMCM.SML/ML,C130,110]NETL 
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$08LIF  =  **♦♦♦*  GX 
SOFDB  =  «♦»***  GX 
$PTNUM=  «•*»»*  GX 
$PTOPT=  ******  GX 
$PTR50=  ******  GX 
SUPDTE  000014RG 


$WDATA=  ******  GX 
.BUFF  =  ******  GX 
.C0MMA=  ******  GX 
.FLASS=  ******  GX 
.TEMP  =  ******  GX 
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26A 
265 
266 
267 
268 
269 
d^O 
271 
272 
273 
274 
275 
276 
277 
278 

279  0004A0 

280  000440 

281  000444 

282  000450 

283  000454 

284  000460 

285  000464 

286  000470 

287  000472 

288  000476 

289  000502 

290  000506 

291  000510 

292  000514 

293  000520 

294  000524 

295  000530 

296  000532 
297 


.SBTTL  SETSNK  -  WRITE  OUT  SINK  NAME 

'♦•*  -  SETSNK  -  WRITE  OUT  S'NK  NAME 

INPUT: 

.PSTPT  =  START  ADDRESS  OF  THE  SINK  NAME  IN  ASCII 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  SINK  NAME 
$08UF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 
TEMP  =  TEMPLATE  ADDRESS 

OUTPUT: 

THE  SINK  NAME  IS  WRITTEN  INTO  THE  OUTPUT  BUFFER 


016702 
016246 
016700 
012701 
012702 
032716 
001013 
012701 
012702 
032716 
001004 
012701 
012702 
004767 
010067 
005726 
000207 
000001 


177334 

000016 

OOOOOOG 

000040' 

000007 

000004 

000047' 

000004 

000002 

000053' 
000007 
OOOOOOG 
OOOOOOG 


SETSNK: 


10$: 


MOV 

MOV 

MOV 

MOV 

MOV 

BIT 

BNE 

MOV 

MOV 

glT 

BNE 

MOV 

MOV 

CALL 

MOV 

TST 

RETURN 

.END 


TEMP,R2 

C.SNK(R2),-(SP) 

$08UF,RO 

#M0N1TR,R1 

#M0NL,R2 

#FF.MON,(SP) 

10$ 

#FILE,R1 

#FILEL,R2 

#FF.FIL,(SP) 

10$ 

*C0NSLE,R1 

#C0NL,R2 

$MVASC 

RO,$08UF 

(SP)  + 


GET  ADDRESS  OF  EVENT  TEMPLATE 

GET  SINK  TYPE  OF  TEMPLATE 

POINT  AT  CURRENT  POSITION  IN  LINE 

POINT  AT  START  OF  MONITOR  STRING 

GET  LENGTH  OF  MONITOR  STRING 

MONITOR  SINK  TYPE? 

BR  IF  YES 

POINT  AT  START  OF  FILE  STRING 

GET  LENGTH  OF  MONITOR  STRING 

FILE  SINK  TYPE? 

BR  IF  YES 

POINT  AT  START  OF  CONSOLE  STRING 

GET  LENGTH  OF  CONSOLE  STRING 

MOVE  INTO  OUTPUT  BUFFER 

UPDATE  POINTER  INTO  OUTPUT  LINE 

CLEAN  UP  STACK 
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UPDFIL  CREATED  BY     MACRO     ON  P9-JUN-85   AT  05:52 

MACRO   CROSS   REFERENCE 
MACRO  NAME  REFERENCES 


N    9 

PAGE   2 

CREF        04.00 


RESRG 
SAVRG 


#4-48 
#4-48 


6-166 
6-156 


N    9 


•  •FILE«MD«'UPDFEA 
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1 

2 

3 

^ 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2^. 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 

42 
43 

Ai, 
45 
46 
47 
48 
49 
50 
51 


.TITLE 
.IDENT 


UPDLLC  -  CFE  UPDATE  LLC  PROCESS  DEFINITION  IN  CETAB 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOIICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIEi,  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENl  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

STATE  TABLE  TO  PARSE  THE  LLC  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Symbol  table 


Page  13-1 


BITS 

BITO 

CL.LEN= 

CS.LLC= 

CS.MOD= 

CTIM 

C.CTM 

C.DEV 

C.EXT 

C.FLG 

C.LIN 

C.NAM 

C.NCTD= 

C.NLT 

C.NLTD= 

C.PRl 

C.STS  = 

EXIT 

EXT 

F.NRBD= 

LLCKTB 

LLCSTB 


00001 6R 

000030R 

000020 

.*»««*  GX 

.*»t*t  GX 

0001 70R 

000016 

000012 

000015 

000006 

000011 

00000^ 

000013 

000014 

000012 

000010 

«*♦»♦*  GX 

0002KR 

0001 50R 

**»**«  GX 

OOOOOORG 

OOOOOORG 


002  NLT 

002  NM$ARA= 
NM$NOD= 
NT$AKD= 
NT$AKI= 

002  NT$CC  = 
NT$CON= 
NT$CTL= 
NT$DAT= 
NTSDC  = 
NT$D1S= 
NT$OLS= 
NT$1LS=: 
NT$IMS= 
NT$INT= 
NT$RET= 
NT$ROU= 

002  NT$HTR= 

002  NT$TSP= 
N$$ACK= 

003  N$$HDR= 
002  N$$OVR= 


000130R 

176000 

001777 

000020 

000022 

000016 

000000 

000000 

000002 

000012 

OOOOU 

000006 

000010 

000002 

000004 

000032 

000024 

000030 

000026 

000011 

000007 

000022 


002  PRIOR 
SETCTM 
SETEXT 
SETFLG 
SETLIN 
SETNAM 
SETNLT 
SETPRI 
TEMP 
ZCOU 
ZCOUL  = 
If 

ZF.C0U= 
ZF.INI= 
ZF.MFL=: 
ZF.MTM= 
ZF.SLI= 
ZF.nM= 
ZF.X3P= 
ZINI 
ZINIL  = 
ZLLC 


000070R 

000636R 

00061  OR 

000224R 

000530R 

0001 66R 

000560R 

000500R 

OOOOOOR 

000020R 

000007 

000206R 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

000045R 

000007 

000002R 


002  ZLLCL  = 
ZMTM 
ZMTHL  = 
ZSLI 
ZSLIL  = 
ZX3P 
ZX3PL  = 
$ALPHA= 
$ANY  = 
$BLANK= 
$BUFI  = 

002  SCATS  = 
$CLNUP= 
tCNVD  = 
SCNVO  = 
$DIGIT= 
$DNUMB= 
$E0S  = 
$ERROR= 
SEXIT  = 
SFAIL  = 
$LAMDA= 


000007 

OOOOIIR 

000007 

000036R 

000007 

000027R 

000007 

000022 

000020 

000006 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

000024 

000014 

000012 

******  GX 

000000 

rmn 

000000 


000020 
000664 
000222 
000022 
000043 
Errors  detected: 


.  ABS. 

SSTATE 

SKTAB 

tKSTR 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REL,CON) 
(RU,D,LCL,RCL,CON) 
(RW,D,lCL,REL,CON) 
CRW,D,LCL,REL,CON) 


♦♦♦  Assembler  statistics 


C 

0 

10760  Words  (  43  Pages) 

14440  Words  (  55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  tile: 
Size  of  core  pool : 
Operating  system: 

SY:UPDLLclv2!r?32?134]UPDLLC/CR/-SP=SY:ri,nRSXMCM.SML/ML,C130,110]NETLIB/ML,C132,10]UPDLLC 


$MOVPI= 

$M0VST= 

$MVASC= 

$NUMBR= 

SOBUF  = 

$OFDB  = 

$RAD50= 

$STRNG= 

$SUBXP= 

$TMLST= 

SUPLLC 

SZMFL  = 

$ZMFLL= 

SZTIM  = 

$ZTII«1L  = 

$$$FLG= 

$$$KEY= 

$$$STA= 

$$$TMP= 

.CONER= 

.PSTPT= 

.TPARS= 


****** 
****** 
****** 
000002 

****** 
****** 

000016 
000004 
000010 
****** 
000054RG 


GX 
GX 
GX 

GX 
GX 


GX 


GX 
GX 


****** 
****** 
******  GX 
******  6X 
177777 
000010 
000000 
000040R 
******  GX 
******  GX 
******  GX 


004 
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CREF   04.00 


SYMBOL  VALUE 


CS.LOG 

CS.MOD 

C.LEN 

C.STA 

C.STS 

F.NRBD 

LOGKTB 

LOGSTB 

NEXT 

SETNUM 

SALPHA 

tANY 

SBLANK 

SBUFI 

SCNVG 

SOIGIT 

tDNUMB 

$EOS 

SERROR 

lEXIT 

$FAIL 

SGPRM 

SLAMDA 

SMOVST 

SNUMBR 

tOBUF 

$OFDB 

$RAD50 

SRONLY 

SSTRNG 

SSUBXP 

STMLST 

lUPLOG 

$$$FLG 

$$$<EY 

.CONER 

.TPARS 


=  •»*«•«  GX 

=  000005 
OOOOOA 

=  ««»♦«*  GX 

=  »♦»»««  GX 
000000  RG 
000000  RG 
000000  R 
000122  R 

=  000022 

=  000020 

=  000006 

r  ****** 
=  ****** 

=  00002A 
=  OOOOU 
=  000012 

=  ****** 

=  000000 

=  Miin 

~    ****** 

=  000000 

-  **  V*** 

=  000002 

r  ****** 

-  ****** 

=  000016 

~      ****** 

=  000004 
=  000010 

-  ■v***** 

000002  RG 

=  Mim 

=  177777 

=  ,*.»..  GX 

-  ,.,*.«  GX 


GX 
GX 


GX 


GX 


GX 
GX 


GX 


REFERENCES 

7-K8 

7-155 
#5-106 
#5-105 

7-U8 
»7-157 
#6-115 
#6-116 
#5-109 
#8-189 
#6-116 
#6-116 
#6-116 

7-157 

8-194 
#6-116 
#6-116 
#6-116 
»7-167 
#6-116 
#6-116 

6-116 
#6-116 

7-160 
#6-116 

8-190 
•7-157 
#6-116 

6-116 
#6-116 
#6-116 

7-144 
#7-143 
#6-116 
#6-116 

7-173 

7-165 


7-159 
7-155 

7-163 

7-164 

*7-154 


♦7-159 


8-191 


*8-193 


♦8-195 
6-116 


6-116 
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ADD2 
CS.MOD= 
CS.NGD= 
C.HOS 

LEN  = 

NAM 

NID 

NUM 

STS  = 
EXIT 
F.NRBD- 
H0S2 

.  ABS. 

SSTATE 
SICTAB 
$<STR 
irr-  '■'■, 

♦  ♦•  Ai 


000052R 
••«*«•  GX 
«•»*«•  GX 

000054 
000056 
000004 
000010 
000052 
««•♦«*  GX 
00011  OR 
*»«••♦  GX 
0001 OOR 

000056 
000416 
000126 
000000 
000000 
detected: 


002  ID 
LA 

NODKTB 
NODSTB 
NO$EXA= 
NO$HOA= 
RA 

SETHOA 
SETHOS 

002  SETNAM 
SETNID 

002 


000116R 

000074 

OOOOOORG 

OOOOOORG 

«♦♦*«•  GX 

«****»  GX 

000076 

000314R 

000364R 

000n4R 

0001 56R 


002  SETNNA 
SETNNM 

003  TEMP 
002  SALPHA- 

$ANY  = 
$BLANK= 
$BUF1  = 
$CLNUP= 
$CNVD  = 
$C5TA  = 
$D1GIT= 


000212R 

$DNUMB= 

000014 

000262R 

$EOS  = 

000012 

OOOOOOR 

$ERROR= 

♦«***» 

GX 

000022 

SEX  T  = 

000000 

000020 

$FA  L  = 

wm 

000006 

$LAMDA= 

000000 

«***♦»  GX 

$MOVPT= 

****** 

GX 

»..»»«  GX 

$MOVST= 

****** 

GX 

»*»**♦  GX 

$MVASC= 

****** 

GX 

*«»»»♦  GX 

$NUMBR= 

000002 

000024 

SOBUF  = 

»»«•»• 

GX 

SOFDB  =  ******   GX 
$RAD50=  000016 
$$rRNG=  000004 
$SUBXP=  000010 
$TMLST=  •♦•**♦  GX 
SUPNOD  000002RG 
$$$FLG=  ]77?77 
$$$KEY=  ^77777 
$$$STA=  0001 16R 
.CONER=  ♦♦»♦»♦  GX 
.TPARS=  ******   GX 


002 


000 
001 
002 
003 
004 
0 


(RU,I,GBL,ABS,0VR) 
(RU,1,LCL,REL,C0N) 


(RW, 
(RW, 
(RW, 


LCL.REL.CON) 
LCL,REL,CON) 
,LCL,REL,C0N) 


'er  statistics 


0 

0 

10422  Words 

14440  Words 


Work  file  reads: 

Work  file  writes 

Size  of  work  file 

Size  of  core  pool 

Operating  system:  RSX-11M/PLUS 

SYtuPDNOD!v2!c?52?°34]UPDNOD/CR/-SP=SY:[1,1]R5XMCM.SML/ML,C130,110]NETLIB/ML,[132,10]UPDNOD 


(  41  Pages) 
(  55  Pages) 
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CREF   04.00 


n  H 

UPDOBj  -  CFE  UPDATE  OBJECT  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:5^ 
SETCP*  -  WRITE  OUT  THE  MAXIMUM  NUMBER  OF  COPIES  ALLOWED 


Page  T1 


297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 


.SBTTL  SETCPY  -  WRITE  OUT  THE  MAXIMUM  NUMOER  OF  COPIES  ALLOWED 

'•«•  -  SETCPY  -  WRITE  OUT  THE  MAXIMUM  NUMBER  OF  COPIES  ALLOWED 

INPUT: 

.PNUM8  =  THE  MAX.  *  OF  COPIES  ALLOWED 

.PNUMH  =  THE  MAX.  #  OF  COPIES  ALLOWED  (HIGH  BVTE) 

tOBUF  =  CURRENT  POSITION  IN  OUTPUT  LINE 

TEMP  =  TEMPLATE  ADDRESS 


OUTPUT: 


THE  NUMBER  OF  COPIES  IS  WRITTEN  TO  THE  OUTPUT  BUFFER 


000534 

000534  016700  OOOOOOG 

000540  016702  177234 

000544  116201  000012 

000550  004767  OOOOOOG 

000554  010067  OOOOOOG 

000560  000207 


000001 


SETCPY: 


MOV 

$08UF,R0 

MOV 

TEMP,R2 

MOVB 

C.CPY(R2),R1 

CALL 

SCNVO 

MOV 

R0,$08UF 

RETURN 

GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

POINT  AT  TEMPLATE 

GET  THE  CURRENT  NUMBER  OF  COPIES  ALLOWED 

CONVERT  NUMBER  TO  ASCII 

UPDATE  CURRENT  POSITION  IN  OUTPUT  BUFFER 


.END 


N  U 

UPDOBj  -  CFE  UPDATE  OBJECT  DEFI  MACRO  V05.03b  Saturday  29-Jun-85  05:54 
Symbol  table 
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nnnni l 


M  15 


n    17 

UPDPA^  -  rfF   UPDATE  PARriTION  D  MACRO  v05.03b  Saturday  29-Jun-85  05:54     Page  8 
SFTNM'    -   SfT    UP  PARTITION  NAMF    1 


?15 
?T6 
217 
218 
219 
220 
221 
222 
223 
22i, 
225 

226  000170 

227  000170 

228  000174 

229  000200 

230  000204 

231  000210 

232  0002U 

233  000216 

234  00022? 

235  000226 

236  000232 
23"  000236 
238 


.S8TTL  SETNM1  -  SET  UP  PARTITION  NAME  1 
'..»  -  SETNM1  -  SETUP  PARTITION  NAME  1 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 
(TEMP)H.NAMI  =  RAD50  PARTITION  NAME 


016700 
016702 
016201 
004767 
005761 
001406 
016702 
016201 
004767 
010067 
000207 


OOOOOOG 

177600 

000010 

OOOOOOG 

000012 

177556 
000012 
OOOOOOG 
OOOOOOG 


OUTPUT: 


SETNM1: 


10$: 


MOV 

$08UF,RO 

MOV 

TEMP,R2 

MOV 

C.NAM1(R2),R1 

CALL 

$C5TA 

TST 

C.NAMU2(R1) 

BEQ 

10$ 

MOV 

TEMP,R2 

MOV 

C.NAM1t2(R2),R1 

CALL 

$C5TA 

MOV 

RO,$08UF 

RETURN 


POINT  AT  CURRENT  POSITION  IN  OUTPUT  BUFFER 

GET  TEMPLATE  ADDRESS 

GET  RAD50  PARTITION  NAME 

CONVERT  RAD50  NAME  TO  ASCII 

IS  2ND  HALF  OF  NAME  BLANK  ? 

IF  EQ,  VES  ..  LEAVE 

POINT  AT  TEMPLATE 

GET  2ND  HALF  OF  PARTITION  NAME 

CONVERT  RAD50  TO  ASCII 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


N  15 
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LIPDPSN  -  UPDATE  PSN  iN  CETAB 
luPPSN  -  UPDATE  PSN  DEFINITION 


161 
162 
16? 
16^ 
165 
166 
167 
168 
169 
170 
171 
172 
173 
17A 
175 
176 

177  000072 

178  000072  016700 

179  000076  001533 

180  000100  010067 

181  OOOlO'i  005720 

182  000106  010067 

183  000112  012700 

184  000116  010067 

185  000122  012701 

186  000126  012702 

187  000132  00A767 

188  000136  010067 

189  000142  010546 

190  000144  012767 

191  000152 

192  000166 

193  000200 

194  000224 

195  000250 
196 

197 
198 

199  000274  016701 

200  000300  162701 

201  000304  010167 

202  000310  004767 

203  000314  017705 

204  000320  001415 

205  000322  012700 

206  000326  116501 

207  000332  012002 

208  000334  001404 

209  000336  020120 

210  000340  001374 

211  000342  004712 

212  000344  000763 

213  000346  010567 

214  000352  000760 
215 

216  000354  012605 

217  000356  012767 


n  16 
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.SBTTL  SUPPSN  -  UPDATE  PSN  DEFINITION 
«♦•  -  SUPPSN  -  UPDATE  PSN  DEFINITION 
INPUT: 


R3-R5   -  TPARS  REGISTERS 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 
ALL  PSI  TEMPLATES  UPDATED 

ACTIONS 

UPDATES  PSNSDF  FROM  TEMPLATE.  ALL  PSI  TEMPLATES  ARE 
UPDATED  FROM  THE  INTERNAL  LIST. 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

000000' 

000010 

OOOOOOG 

OOOOOOG 

M7m     OOOOOOG 


lUPPSN: 


10$: 


MOV  $PSIPT,R0      ;  POINT  TO  PSNSDF  TEMPLATE 

BED  101$  ;  IF  EQ,  INTERNAL  PROBLEM 

MOV  RO,.TEMP       ;  SAVE  POINTER 

TST  (fiO)*         ;  POINT  TO  C.STS 

MOV  RO,. FLAGS      ;  SAVE  FOR  OPTION  TESTING 

MOV  #.8UFF,R0       ;  POINT  AT  START  OF  OUTPUT  BUFFER 

MOV  R0,$OFDBtF.NRBD+2  ;  SET  NEW  OUTPUT  BUFFER 

MOV  #PSNDF,R1       ;  POINT  AT  START  OF  X3P  DEFINITION 

MOV  #PSNLN,R2      ;  GET  LENGTH  OF  X3P  DEFINITION 

CALL  $MVASC         ;  MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 

MOV  R0,$OBUF       ;  SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 

MOV  R5,-(SP)       ;  SAVE  R5 

MOV  #-!,. COMMA     ;  SUPPRESS  ..ITIAL  COMMA 

$PTR50  *C.NAM,*2      ;  NAME 

$PTNUM  #C.POR         ;  PORTS 

$PTNUM  #C.fLG, OCTAL, #CS.FLG  ;  OPTIONAL  FLAGS 

$PTNUM  #C.TLO,,*CS.TLO  ;  OPTIONAL  TRANSPORT  LOW  SUBADDRESS 

$PTNUM  #C.THI,,*CS.THI  ;  OPTIONAL  TRANSPORT  HIGH  SUBADDRESS 


PROCESS  REMAINING  PSI  TEMPLATES 


OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 

000010' 
OOOOOOG 


OOOOOOG 


OOOOOOG  OOOOOOC 


15$:    MOV  $08UF,R1 

SUB  *.8UFF,R1 

MOV  R1,$0FDBtF.NRBD 

CALL  $WDATA 

20$:    MOV  a.TEMP,R5 

BEQ  40$ 

MOV  #DISTBL,RO 

MOVB  C.STS(R5),R1 

30$:    MOV  (R0)*-,R2 

BEQ  35$ 

CMP  R1,(R0)+ 

BNE  30$ 

CALL  (R2J 

BR  20$ 

35$:    MOV  R5,.TEMP 

BR  20$ 

40$:    MOV  (SP)+,R5       ;  RESTORE  R5 

MOV  *$8UFI,$0FDB+F.NRBDt2  ;  SET  TO  OUTPUT  THE  "END$DF"  LINE 


CALCULATE  LENGTH  OF  BUFFER 

SET  LENGTH  OF  BUFFER 

WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

POINT  TO  PSN$DF  TEMPLATE 

IF  EQ,  NO  MORE  TEMPLATES 

POINT  TO  DISPATCH  TABLE 

GET  TEMPLATE  TYPE  CODE 

PICK  UP  ROUTINE  ADDRESS 

IF  EQ,  END  OF  PSI  TEMPLATES 

CHECK  TYPE 

IF  NE,  NEXT  ENTRY 

ELSE  DISPATCH  TO  UPDATE  ROUTINE 

PROCESS  NEXT  TEMPLATE 

POINT  TO  NEXT  TEMPLATE  IN  LIST 

CONTINUE  SCAN 


B  1 
C   1 


J  5 

K  5  UPDDSC 


E  10 
F  10 


M  14 
N  14 
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MACRO  NAME 

IS^ATS 
MTRANS 
PRIN' 
PUTFlG 

STATES 

'RAN$ 


REfERENCES 

#5-120 

#5-151 

#4-6A 

#4-82 

#5-12: 

#4-59 

#4-69 

8-283 
#4-82 
#5-160 
#4-82 
#5-144 
#5-158 
#5-184 


#5-136 

#5-152 

4-90 

5-120 


8-274 
8-284 
5-122 
#5-164 
#5-123 
#5-145 
#5-161 


#5-143 

#5-162 

4-91 


8-275 

#.  -125 
#5-168 
#5-126 
#5-146 
#5-162 


#5-144 

#5-166 

4-92 


8-276 

#5-128 
#5-172 
#5-129 
#5-147 
#5-165 


#5-145 

#5-170 

4-93 


8-277 

#5-131 
#5-175 
#5-132 
#5-148 
#5-166 


#5-146 

#5-147 

#5-148 

#5-14' 

#5-150 

4-94 

4-95 

4-96 

1-97 

4-98 

8-278 

8-279 

8-280 

8-281 

8-282 

#5-134 
#5-178 
#5-135 
#5-149 
#5-169 

#5-138 
#5-183 
#5-136 
#5-150 
#5-170 

#5-141 
#5-186 
#5-139 
#5-151 
#5-173 

#5-154 

#5-142 
#5-152 
#5-176 

#5-157 

#5-143 
#5-155 
#5-179 

UPDDEC  - 
SETDEf  - 

285 
286 
287 
288 
289 
290 
291 
292 
293 
29^ 
295 
295 
297 
298 
299 
300 
301 
302 
303 
30A 


N  2 
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.SBTTL  SETDEF  -  DELAY  FACTOR 
♦♦•  -  SETDEF  -  SETUP  DELAY  FACTOR 
INPUT: 


TEMP  =  TEMPLATE  ADDRESS 

$08UF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


OUTPUT: 


000300 

000500  016702  17747A 

000304  005001 

000306  156201  000016 

000312  016700  OOOOOOG 

000316  0047  7  OOOOOOG 

000322  OlOOb.  OOOOOOG 

000326  000207 


SETDEF: 


MOV 
CLR 

Bise 

MOV 
CALL 
MOV 
RETURN 


TEMP,R2 

Rl 

C.DELF(R2),R1 

$OBUF,RO 

$CNVD 

RO.SOBUF 


GET  START  OF  TEMPLATE 
GET  DELAY  FACTOR 

GET  CURRENT  POSITION  INTO  OUTPUT  BUFFER 

CONVERT  NUMBER  TO  DECIMAL 

UPDATE  POINTER  INTO  OUTPUT  BUFFER 


N  3 
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54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 

73  000000 

74  000002 
000005 
000010 

75 

76  000011 
000014 
000017 

77 

78 

79 

80 

81 

82 

83  000000 

84 

85  000000 

86  000002 

87  000004 

88  000006 

89  000010 

90  000012 

91  000013 
92 

93  000020 
94 


132 
104 
041 

000007 
132 
115 
041 

000007 


000000 


000014 


106 
114 


106 
101 


**** 
LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


;  POINT  RO  Al  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


MACRO  CALLS 
**** 


.MCALL   ISTATS, STATES, TRANS 


LOCAL  DATA 


TEMP: 
056  ZDLC: 
103 


056  ZMAN: 
116 


.BLKW   1 

.ASCII   /ZF.DLCl/ 


ZDLCL=.-ZDIC 
.ASCII   /ZF.MANI/ 


ZHANL=.-ZMAN 
.EVEN 


ADDRESS  OF  DLC  TEMPLATE 
MARK  PROCESS  AN  A  DLC 


AND  LENGTH 

SUPPORT  FOR  NETWORK  MANAGEMENT  FUNCTIONS 


DEFINE  DLC  TEMPLATE 


.ASECT 

.=0 

.BL(,W 

.BLKW 

.BLKW 

.8LKW 

.BLKW 

.BLK8 

.BLKB 


C.NAM 
C.FLG 
C.PRI 
C.NLT 
C.NCT 
C.LEN 


AND  LENGTH 


C.LNK 

C.STS 

DLC  PROCESS  NAME 

DLC  FLAGS  WORD 

DLC  PROCESS  PRIORITY 

NUMBER  OF  LINE  TABLES  IN  PROCESS  SPACE 

NUMBER  OF  CONTROLLER  TABLES 


.PSECT 


**F!LE«MD««UPDDSA 


LL 

ssssssss 

LL 

ssssssss 

-L 

ss 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

Ll 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

TTTTT 
TTTTT 


HTT 
rTTTT 


N    A 


UU    uu 

pppppppp 

DDDDDDDD 

DDDDDDDD 

ssssssss 

AAAAAA 

uu    uu 

pppppppp 

DDDDDDDD 

DDDDDDDD 

SSSSSSSS 

AAAAAA 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

SS 

AA      AA 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

SS 

AA      AA 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

SS 

AA      AA 

uu    uu 

pp    pp 

DD 

DD 

DD 

DD 

SS 

AA      AA 

uu    uu 

pppppppp 

DD 

DD 

DD 

DD 

SSSSSS 

AA      AA 

uu    uu 

pppppppp 

DD 

DD 

DD 

DD 

SSSSSS 

AA      AA 

uu    uu 

pp 

DO 

DD 

DD 

DD 

ss 

AAAAAAAAAA 

uu    uu 

pp 

D> 

DD 

DD 

DD 

ss 

AAAAAAAAAA 

uu    uu 
uu    uu 

pp 
pp 

D) 

DD 
DD 

DD 
DD 

DD 
DD 

ss 
ss 

AA      AA 
AA      fA 

uuuuuuuuuu 

pp 

DDDDDDDD 

DDDDDDDD 

ssssssss 

AA      AA 

uuuuuuuuuu 

pp 

DDDDDDDD 

DDDDDDDD 

ssssssss 

AA      AA 

UPDDSC  -  UPDATE  DESTINATION  fAL 
MACRO  CALLS  AND  LOCAL  DATA 

57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000000 

112  000000 
113 
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.SBTTL  MACRO  CALLS  AND  LOCAL  DATA 
.SBTTL  MACRO  DEFINITIONS 

LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFERR 

.ENDM 

ERRORS 

.MACRO 

EPRINT   TEXT 

PRINT  TEXT  ON 

ERROR  LUN 

.IF  DIF 

<TEXT><RO> 

MOV 

TEXT.RO 

.ENDC 

CALL 

SCFER1 

.ENDM 

EPRINT 

PUT  NUMERIC  FROM  TEMPLATE  TO  OUTPUT  B 

.MACRO 

SSSPTN  ROU 

.MACRO 

•ROU    0FS,OCTL,0PT.?L 

.IF  NB 

<OPT> 

MOV 

0PT,R2 

CALL 

SPTOPT 

BCS 

L 

.IFTF 

MOV 

0FS.R2 

.IF  N8 

<OCTL> 

MOV 

SP.Rl 

.IFF 

CLR 

R1 

.ENDC  ; 

IF  NB  <OCTL> 

CALL 

'ROU 

.IFT   ; 

IF  NB  <OPT> 

.ENDC  ; 

IF  NB  <OPT> 

.ENDM  ; 

'ROU 

.ENDM  ; 

SSSPTN 

SSSPTN 

SPTNUM 

SSSPTN 

SPTNM8 

GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


-J^ 
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154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
16-1 
165 

166  000010 

167  000010 

168  000016 

169  000022 

170  000024 

171  000030 

172  000036 

173  000042 

174  000046 

175  000052 

176  000056 

177  000062 

178  000076 

179  000112 

180  000124 

181  000136 

182  000164 

183  000170 

184  000174 

185  000200 

186  000204 

187  000212 
188 

189 
190 


.SBTTL     SUPDST   -  UPDATE   DESTINATION  DESCRIPTOR 

**♦  -  SUPDST  -  UPDATE   DESTINATION  DESCRIPTOR 

INPUT: 

R3-R5   -  TPARS  REGISTERS 

OUTPUT: 

C-eiT   =  SUCCESS/FAILURE 


012767 
010567 
005725 
010567 
012767 
012700 
012701 
012702 
004767 
010067 


016701 
162701 
010167 
004767 
012767 
000207 


OOjOOI 


OOOOOOG  OOOOOOC 
OOOOOOG 

OOOOOOG 

177777     OOOOOOG 

OOOOOOG 

000000' 

000010 

OOOOOOG 

OOOOOOC 


OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG  OOOOOOC 


SUPDST: 


MOV 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

SPTR50 

$PTR50 

SPTNMB 

SPTNMB 

SPTR50 

MOV 

SUB 

MOV 

CALL 

MOV 

RETURN 


.END 


#.BUFF,$0fDB+F.NRBD+2 

R5,.TEMP 

(r5)  + 

R5, .FLAGS 

#-1,. COMMA 

#.BUFF,RO 

#DSTDF,R1 

#DSTLN,R2 

SMVASC 

RO.SOBUF 

#C.TYP,#1 

*C.NAM,#2 

#C.PRI 

*C.OBJ 

#C.TSK,#2,*CS.TSK 

SOBUF.Rl 

*.BUFF,R1 

RI.SOFDB+F.NRBD 

SUDATA 


SET  NEW  OUTPUT  BUFFER 
SAVE" TEMPLATE  ADDRESS 
POINT  TO  C.STS 
SAVE  ADDRESS  OF  FLAGS  WORD 
INITIALIZE  FOR  OPTIONS 
POINT  AT  START  OF  OUTPUT  BUFFER 
POINT  AT  START  OF  DST  DEFINITION 
GET  LENGTH  OF  DST  DEFINITION 
MOVE  1ST  PART  OF  LINE  INTO  OUTPUT  BUFFER 
SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 
DESTINATION  TYPE 
DESTINATION  NAME 
LISl  INSERTION  PRIORITY 
OBJECT  NUMBER 
;  TASK  NAMJ 
CALCULATE  LENGTH  OF  BUFFER 

SET  LENGTH  OF  BUFFER 
WRITE  THE  RECORD  TO  THE 


#$BUFI,S0FDB+F.NRBD+2  ;  SET  TO  OUTPUT  THE 


OUTPUT  FILE 
"ENDSDF"  LINE 
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CREf   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CS.NET 

=    ****** 

GX 

6-193 

CS.TRB 

=    ****** 

GX 

7-23i' 

CS.UNI 

-    ****** 

GX 

7-231 

C.ADR 

000004 

#5-144 

6-188 

C.CT 

000032 

#5-149 

6-191 

C.HSH 

000030 

#5-148 

6-190 

C.LEN 

=  000040 

#5-151 

C.LIN 

000016 

#5-145 

7-226 

7-230 

7-236 

7-242 

C.NET 

000034 

#5-150 

6-193 

C.STA 

000026 

#5-147 

7-217 

DTEDF 

000000 

R 

#5-155 

5-156 

6-184 

OTELN 

=  000010 

#5-156 

6-185 

F.NRBD 

=  ****** 

GX 

*6-178 

*6-196 

•6-198 

ONSTR 

000010 

R 

#5-158 

7-220 

SETLIN 

000260 

R 

6-189 

#7-226 

SETSTA 

0002U 

R 

6-192 

#7-214 

SBUFI 

=  ****** 

GX 

6-198 

SMVASC 

-  ****** 

GX 

6-186 

SOBUF 

=  ****** 

GX 

*6-187 

6-194 

7-227 

•7-228 

7-233 

SOFDB 

=  ****** 

GX 

*6-178 

*6-196 

*6-198 

SPTNUM 

=  ****** 

GX 

6-190 

6-191 

7-230 

7-236 

7-242 

SPTOPT 

=  ****** 

GX 

6-193 

$PTR50 

:;     ****** 

GX 

6-188 

6-193 

7-222 

7-226 

SUPDTE 

oooou 

RG 

#6-177 

SUDATA 

=    ****** 

GX 

6-197 

.BUFF 

=   ****** 

GX 

6-178 

6-183 

6-195 

.COMMA 

=    ****** 

GX 

*6-182 

♦7-229 

*7-235 

•7-241 

.FLAGS 

=    ****** 

GX 

*6-181 

7-231 

7-237 

.TEMP 

=    ****** 

GX 

*6-179 

7-214 

•7-220 

•7-223 

•7-234 


7-239 


•7-240 


N     8 

UPDEVT   -   CFE  UPDATE   EVENT   DEflN  MACRO  V05.0?b  Saturday  29-Jun-85   05:51 
Symbol   table 


Page  11-1 


BUFF 

000062R 

EXIT    000032R 

002  F.CEV 

9889^9 

CONL  = 

000007 

FF.ADD=  000020 

f.CIR 

000024 

CONSLE 

000053R 

FF.CIR=  000040 

F.CLS 

000002 

CS.EVT= 

»«*♦*»  Gx 

FF.CON=  000001 

F.EVT 

OC0004 

C.CLS 

000004 

FF.FIL=  000002 

F.FLG 

2925]^ 

C.EVT 

000006 

FF.HST=  040000 

F.LEN 

000016 

C.LEN  = 

000020 

FF.LIN=  000010 

F.LIN 

000020 

C.SNK. 

000016 

FF.MOD=  000100 

F.LNK 

000000 

C.STS  = 

.*•*«*  GX 

FF.MON=  000004 

F.MOD 

000022 

EVTDE"^ 

000004R 

FF.MSK=:  000077 

F.NR8D= 

»**«**  GX 

EVTDF 

000030R 

FF.PRT=  000200 

F.REM 

000026 

EVTKTB 

OOOOOORG 

003 

FF.QUL=  000370 

F.SEV 

000004 

EVTLEN= 

000023 

FF.REM=  100000 

LA 

000074 

EVTLN  = 

000010 

FILE    000047R 

MONITR 

000040R 

EVTMSK 

000036R 

002 

FILEL  =  000004 

MONL  = 

000007 

EVTOFF 

000002R 

F.ADD   000016 

RA 

000076 

EVTSTB 

OOOOOORG 

002 

.  AB5. 

000040 

000 

(RW,I,GBL,A8S,0VR) 

000534 

001 

(Ry,I,LCL,PEL,CON) 

SSTATE 

000056 

002 

(RW,D,LCL,REL,CON) 

SKTAB 

000000 

003 

(RW,D,LCL,REL,CON) 

$K5TR 

000000 

004 

(RU,D,LCL,REL,CON) 

Errors 

detected: 

0 

SETCLS 
SETMSK 
SETNUM 
SETSMK 
TEMP 
$ALPHA= 
$ANY  = 
$BLANK= 
$BUFI  = 
$CNVO  = 
$DIGIT= 
$DNUM8= 
$EOS  = 
$ERROR= 
SEXIT  = 
$FAIL  = 


000360R 

000400R 

000422R 

000440R 

OOOOOOR 

000022 

000020 

000006 

*♦*»*♦  GX 

******  GX 

000024 

000014 

000012 

******  GX 

000000 

M7177 


».»  Assembler  statistics 


Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  11216  Words  (  44  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


Sy?UPDEV^V2;[132,134]UPDEVT/CR/-SP=Sy:C1,1]RSXMCM.SML/ML,C130,n0]NETLIB/ML,[132,10]UPDEVT 


$LAMDA= 

$M0VPT= 

$M"ASC= 

$NUMBR= 

$0BUF  = 

$OFDB  = 

$RAD50= 

$STRNG= 

$SUBXP= 

$TMLST= 

SUPEVT 

$WDATA= 

$$$FLG= 

$$$KEY= 

$$$STA= 

.TPARS= 


000000 

****** 
****** 

000002 

****** 

****** 

000016 

000004 

000010 

****** 

000202RG 

******  GX 

ymn 

177777 
000036R 
******  GX 


GX 
GX 


GX 
GX 


GX 


002 


N    9 


♦*FILE>«lD*«uPDfEA 


uu    uu 

pppppppp 

DDDDDDDD     F 

FFFFFFFFF 

EEEEEEEEEE 

AAAAAA 

uu    uu 

pppppppp 

DDDDDDDD     F 

FFFFFFFFF 

EEEEEEEEEE 

AAAAAA 

uu    uu 

pp    pp 

DD 

DD   F 

EE 

AA      AA 

uu    uu 

pp    pp 

DO 

DD   F 

EE 

AA      AA 

uu    uu 

pp    pp 

DD 

DD   F 

EE 

AA      AA 

uu    uu 

pp    pp 

DD 

DD   F 

EE 

AA      AA 

uu    uu 

pppppppp 

DD 

DD   F 

FFFFFFF 

EEEEEEEE 

AA      AA 

uu    uu 

pppppppp 

DD 

DD   F 

FFFFFFF 

EEEEEEEE 

AA      AA 

uu    uu 

pp 

DD 

DD   F 

e; 

AAAAAAAAAA 

uu    uu 

pp 

DD 

DD   F 

1  ; 

AAAAAAAAAA 

uu    uu 

pp 

DD 

DD   F 

1  [ 

AA      AA 

uu    uu 

pp 

DD 

DD   F 

E  • 

AA      AA 

uuuuuuuuuu 

pp 

DDDDDDDD     F 

EEEEEEEEEE 

AA      AA 

uuuuuuuuuu 

pp 

DDDDDDDD     F 

EEEEEEEEEE 

AA      AA 

SiSSSSSS 

TTTTT 

TTTTT 

FSSSSSSS 

TTTTT 

TTTTT 

ss 

T 

ss 

T 

ss 

r 

ss 

T 

ssssss 

T 

ssssss 

T 

ss 

T 

ss 

ss 

ss 

T 

LLLLLLLLLl 
LLLLLLLLLL 

ssssss:s 
ssssssss 

T 

T 

UPOLL! 


N  10 

-  CfE  UPDATE  LLC  PROCESS  MACRO  V05.03b  Saturday  29-Jun-85  05-52 


55 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
6^ 
68  000000 


000000 


000000 
000002 
OOG004 
^'V006 
...0010 
000011 
000012 

oooou 

000015 
000016 


000000 


000020 

000000 

000012 
000013 

69  000000 

70 

71 

72 

73 

74 

75  000000 

76  000002 

132 

106 

000005 

114 

114 

000010 

041 

11 

000007 

78  000011 

132 

106 

000014 

115 

124 

000017 

041 

79 

000007 

80  000020 

132 

106 

000023 

103 

117 

000026 

041 

81 

000007 

82  000027 

132 

106 

000032 

130 

063 

000035 

041 

056 
103 


056 
115 


056 
125 


056 
120 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


Page  4 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


MACRO  CALLS 

.MCALL   I  STATS,  STATES,  TRAN*,i»IS6Df$,LLCTP$ 
LLCTPS  LIST  ;  DEFINE  LLCSDF  TEMPLATE  OFFSETS 

DEFINE  LLC  TEMPLATE 

.ASECT 

.=0 

.BLKW 

.BLKW 
C.NAM:  .BLKU 
C.FLG:  .BLKW 
C.PRI:  .8LKS 
C.LIN:  .BLKB 
C.DEV:  .BLKW 
C.NLT:  .BLKB 
C.EXT:  .BLKB 
C.CTM:  .BLKU 
CL.LEN: 


.PSECT 
.NLTD  =  12 
.NCTD  =  13 

MSGDFS 

LOCAL  DATA 


TEMP: 
ZLLC: 


.BLKW   1 

.ASCII   /ZF. LLC!/ 


ZLLCL=.-ZLLC 
ZMTM:   .ASCII   /ZF.MTMI/ 


ZMTML=.-ZMTM 
ZCOU:    .ASCII   /ZF.COUl/ 


ZCOUL=.-ZCOU 
ZX3P:   .ASCII  /ZF.X3PI/ 


C.LNK 

C.STS 

LLC  PROCESS  NAME 

LLC  FLAGS  WORD 

LLC  PROCESS  PRIORITY 

NUMBER  OF  LINES  ASSIGNED  TO  THIS  LLC 

PSEUDO  DEVICE  NAME  FOR  THIS  LLC 

NUMBER  OF  LINE  TABLE  TO  ALLOCATE 

PROCESS  EXTENSION  IN  BLOCKS 

COUNTER  TIMER 


NLT  FOR  DDM/DLC  PROCESSES 
NCT  FOR  DDM/DLC  PROCESSES 


;  ADDRESS  OF  LLC  TEMPLATE 
;  MARK  PROCESS  AS  AN  LLC 


;  AND  LENGTH 

;  MARK  PROCESS  AS  NEEDING  MULTIPLE  TIMERS 


;  AND 

LENGTH 

;  MARK 

PROCESS 

AS 

SUPPORTING 

COUNTERS 

;  AND 

LENGTH 

;  MARK 

PROCESS 

AS 

NEEDING  X. 

25  LEVEL  3 

UPDLLC  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:52 

SYMBOL    CROSS  PEFERENCE 


SYMBOL      VALUE 


REFERENCES 


CL.LEN 

=  000020 

#4-68 

CS.LLC 

=   **♦♦** 

GX 

6-200 

CS.MOD 

-   ****** 

GX 

6-207 

C.CTM 

000016 

#4-68 

C.DEV 

000012 

#4-68 

C.EXT 

000015 

#4-68 

C.FLG 

000006 

#4-68 

C.LIN 

000011 

#4-68 

C.NAM 

000004 

#4-68 

C.NCTD 

=  000013 

#4-6!: 

C.NLT 

000014 

#4-68 

C.NLTD 

=  000012 

#4-68 

C.PRI 

OOOOIO 

#4-68 

C.5TS 

-   t*y  <♦* 

GX 

6-200 

F.NRBD 

=  ****** 

GX 

♦6-209 

LLCKTB 

000000 

RG 

#5-94 

LLCSTB 

000000 

RG 

#5-94 

SETCTM 

000636 

R 

#13-403 

SETEXT 

000610 

R 

#12-383 

SETFLG 

000224 

R 

#8-261 

SETLIN 

000530 

R 

#10-341 

SETNAM 

000166 

R 

#7-23? 

SETNLT 

000560 

R 

#11-362 

SETPRI 

000500 

R 

#9-320 

TEMP 

000000 

R 

#4-75 

2C0U 

000020 

R 

#4-80 

ZCOUL 

=  000007 

#4-81 

2F.C0U 

~      ****** 

GX 

8-283 

ZF.INI 

-      ♦*♦**♦ 

GX 

8-298 

ZF.MFL 

=      ****** 

GX 

8-273 

ZF.MTM 

-   ****** 

GX 

8-278 

ZF.SLI 

=   ****** 

GX 

8-293 

ZF.TIM 

=   ****** 

GX 

8-268 

ZF.X3P 

~      ****** 

GX 

8-288 

ZINl 

000045 

R 

#4-86 

ZINIL 

=  000007 

#4-87 

ZLLC 

000002 

R 

#4-76 

ZLLCL 

=  C00007 

#4-77 

ZMTM 

OuOOII 

R 

#4-78 

ZMTML 

=  000007 

#4-79 

ZSLI 

000036 

R 

#4-84 

ZSLIL 

=  000007 

#4-85 

ZX3P 

000027 

R 

#4-82 

ZX3PL 

=  000007 

#4-83 

SALPHA 

=  000122 

#5-94 

SANV 

=  000020 

#5-94 

SBLANH 

=  C00006 

#5-94 

$BUF[ 

-   ****** 

GX 

6-209 

$CAT5 

r  ****** 

GX 

7-243, 

SCNVD 

-  ****** 

GX 

11-367 

$CNV0 

=  ****** 

GX 

9-325 

SDIGIT 

=  000024 

#5-94 

13-405 

12-385 
8-268 
10-344 
7-245 

11-365 

9-323 
6-207 

6-214 
6-215 


♦6-206 
4-81 
8-286 


4-87 
:-301 

i,.77 

8-266 

4-7? 

8-281 

4-85 

8-296 

4-83 

8-291 


12-387 
10-346 


N  11 
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CREf       04.00 


8-273 


8-278 


8-283 


8-288 


8-293 


8-298 


7-244 
8-285 


8-263 


9-321 


10-342 


11-363 


12-384 


13-404 


8-300 
8-265 
8-280 
8-295 
8-290 


13-407 


UPDLOG     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:53 
MACRO  CROSS  REFERENCE 


N  12 

PAGE  ? 

CREF   OA.OO 


MACRO  NAME 

REFERENCES 

DBGTPS 

#6-116 

EPRINT 

*4-77 

ERRORS 

#4-66 

ISTATS 

#4-90 

6-116 

MTRANS 

#6-116 

PRINT 

#4-61 

STATES 

#4-90 

6-121 

#6-124 

TRANS 

#4-90 

#6-122 

#6-125 

#6-127 


UPDNOD     CREATED  BY  MACRO  ON  29-JUN-85  AT  05; 53 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


CS.MOD 
CS.NOD 
CMOS 
C.LEN 

NAM 

NID 

NUM 

STS 
F.NRBD 
LA 

NODK.TB 
NODSTB 
NOSEXA 
NOtHOA 
RA 

SETHOA 
SETHOS 
SETNAM 
SETNID 
SETNNA 
SETNNM 
TEMP 
SALPHA 
$ANY 
SBLANK 
SBUFI 
SCNVD 
$C5TA 
SDIGIT 
SDNUMB 
$EOS 
SERROR 
$EXIT 
SFAIL 
$GPRM 
SLAMDA 
SMOVST 
SMVASC 
SNUMPR 
SOBUf 

$OFDB 

$RAD50 

SRGNLY 

SSTRNG 

SSUBXP 

STMLST 

SUPNOD 

$$$FLG 

$$$KEY 

.CONER 

.TPARS 


=  ****** 
=  ****** 
00005A 
=  000056 
OOOOOA 
000010 
000052 


GX 
GX 


GX 
GX 


****** 
000074 
000000  RG 

000000  RG 
*»♦**»  GX 
****** 
000076 
0003U 
00036A 

0001  U 
000156 
000212 


GX 


000262  R 

000000  R 

000022 

000020 

000006 

****** 

****** 

****** 

000024 

OOOOU 

000012 

****** 

000000 

ym77 

•  ****** 

:  cooooo 

:  ****** 
****** 

:  000002 

:  f ***** 


GX 
GX 
GX 


GX 


GX 
GX 


GX 

******  GX 
000016 

****** 

000004 
000010 
******  GX 
000002  RG 

Mini 

«***(♦     GX 
***«»♦     GX 


REFERENCES 

6-183 

6-176 
#4-91 
#4-92 
#4-86 
#4-88 
#4-90 

6-176 
•6-185 
#4-75 
#5-101 
#5-101 

9-264 

10-311 
#4-76 
#10-308 
#10-334 
#7-216 
#8-239 
#C-261 
#9-287 
#4-77 
#5-101 
#5-101 
#5-101 

6-185 

9-271 

7-220 
#5-101 
#5-101 
#5-101 
»6-194 
#5-101 
#5-101 

5-101 
#5-101 

6-187 

8-244 
#5-101 

7-217 
*10-319 
•6-185 
#5-101 

5-101 
#5-101 
#5-101 

6-172 
#6-171 
#5-101 
#5-101 

6-200 

6-192 


10-315 

7-219 
8-242 
9-266 
6-183 


6-190 
6-191 


•6-182 


9-292 
7-223 


♦7-224 
10-335 


5-101 


N  13 
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10-337 

7-222 

9-290 
9-264 


10-311 


7-218     7-221 


10-318    10-339 


8-241 


9-263 


9-289 


10-310 


10-336 


8-240     *8-246 
•10-340 


5-101 


9-262 


•9-272 


9-288 


•9-293 


10-309 


UPDOBj   -   CFE   UPDATE   OBJECT    DEf 
Symbol    table 


N  U 

MACRO  V05.03b  Saturday  29-Jun-85  05:5«  Page  11-1 


BUfF 

000027R 

OBJDEF  000002R 

SETVPE 

000326R 

$E0S  = 

000012 

$RAD50= 

000016 

CS.0BJ= 

•«•••«  Gx 

OBJDF   00001 7R 

TEMP 

OOOOOOR 

$ERROR= 

****** 

GX 

$STRNG= 

000004 

c.cpy 

000012 

OBJKTS  000OO0R6 

003 

$ALPHA= 

$EXIT  = 

oogooo 

$SUBXP= 

000010 

C  FlG 

000005 

OBJLEN=  000014 

$ANY  = 

000020 

$FAIL  = 

177777 

$TMLSr= 

******  GX 

C.lEN  = 

w  V  w  V  y 

00001 3 

OBJLN  =  000010 

$8LANK= 

000006 

$LAMDA= 

000000 

SUPOBJ 

0001 50RG 

C.NAM 

000006 

OBJSTB  OOOOOORG 

002 

$BUFI  = 

•••«•♦  GX 

$MOVPT= 

****** 

GX 

$WDATA= 

******  GX 

C  STS  = 

>>*•«•  GX 

RA    =  000076 

$CNVD  = 

♦.».».  GX 

$MVASC= 

****** 

GX 

$$$FLG= 

177777 

C.TYP 

000004 

SETCPY  000534R 

$CNVO  = 

•»•*•*  GX 

$NUMBR= 

000002 

$$$KEY= 

"[77777 

EXIT 

000044R 

002 

SETFLG  000500R 

$C5TA  = 

»»•»«»  GX 

SOBUF  = 

****** 

GX 

$$$STA= 

000000 

F.NReD= 

«•••«•  GX 

SETNAM  000356R 

$DIG1T= 

9522?^ 

$OFDB  = 

****** 

GX 

.TPARS= 

******  GX 

LA 

000074 

5ETVFY  000444R 

$DNUM8= 

000014 

.  ABS. 

000013 
000562 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 

tSTATE 

000050 

002 

(RU,D,LCL,REL,C0N) 

SKTAB 

000000 

003 

(RU,D,LCL,REL,CON) 

$KSTR 

000000 

004 

(RU,D,LCL.REL,C0N) 

Errors 

detected: 

0 

•••  Assembler  statistics 


Work  tile  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10440  Words  (  41  Pages) 

Size  of  core  pool :  14440  Words  (  55  Pages) 

Operatir.g  s/stem:  RSX-11M/PLUS 


SYfuP0O8j!v2;c152,134]UPDOBJ/CR/-SP=SY:[1,1]RSXMCM.SML/ML,C130,110]NETL]B/ML,i:i32,10]UPD0BJ 


yPOPAK  .  CPE   UPDATE   PARI  I  r  ION  D  MACRO   V05.03b   Saturday  ^9-Juri-85 
SET4LI    -  SET    'HE   BVE-ARFA  EXTENSION 


gsll 


Page  9 


240 
2A1 
2A2 
2A? 
244 
245 
246 
247 
248 
249 
250 
2:1 
252 
253 
254 

255  0C0240 

256  000240 

257  000244 

258  000250 

259  000254 

260  000256 

261  000262 

262  000264 

263  000270 

264  000274 

265  000276 
266 

267 
268 
269 
270 

271  000312 

272  000316 

273  000522 


016700 

016701 

020127 

1010'" : 

020  '..7 

103i.'  :■ 

016?^ 

062701 

000241 

006001 

000005 


004767 
010067 
000207 


.SBTTL 
•*•  -  SETALL 
INPUT: 


SETALL  -  SET  THE  BYTE-AREA  EXTENSION 
-  SET  THE  POOL  BYTE-AREA  EXTENSION 


lOBUf  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 

SBYTXI  =  CURRENT  BYTE  EXTENSION  IN  BYTES 

tSr.'MN  =  MINIMUM  BYTE  EXTENSION  IN  BYTES 


OUTPUT 


BYTE-AREA  EXTENSION  VALUE  IS  STORED  IN  THE  OUTPUT  BUFFER 
$OBUF  IS  UPDATED 


OOOOOOG 
OOOOOOG 
177700 

OOOOOG 

OOOOOOG 
000077 


OOOOOOG 
OOOOOOG 


SETALL: 


5$: 
10$: 


MOV 

MOV 

CMP 

BHJ 

CMP 

BHIS 

MOV 

ADD 

CLC 

ROR 

.REPT 

ASR 

.ENDR 


$08UF,RO 

SBYTXT.RI 

R1,«<l623.«64.> 

5$ 

R1,$8YTMN 

lOi 

SBYTMN.RI 

#63.,R1 

R1 

5 
R1 


CALL    $CNVD 
MOV     R0,$08UF 
RETURN 


GET  CURRENT  POSITION  IN  OUTPUT  BUFFER 

GET  CURRENT  BYTE  EXTENSION 

COMPARE  WITH  MAXIMUM 

IF  HI,  OVERFLOW  -  USE  MINIMUM  INSTEAD 

COMPARE  WITH  MINIMUM 

IF  HIS,  GO  WITH  IT 

ELSE  USE  MINIMUM  VALUE 

ALWAYS  ROUND  UP  TO  NEXT  BLOCK  BOUNDARY 

DIVIDE  BY  64.  FOR  NUMBER  OF  BLOCKS  (UNSIGNED) 


STORE  NUMBER  IN  OUTPUT  BUFFER 

UPDATE  CURRENT  POSITION  IN  OUTPUT  BUFFER 


B 

C 

0 

F 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

f 

D 

E 

F 

G 

H 

I 
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